색인을 사용하여 요소를 참조 할 수 있도록 내 자원 목록을 어떻게 만듭니 까? - VB.NET

Question

다음은 제가 가지고있는 것입니다 : PictureBox와 TrackBar가있는 간단한 Windows 폼 응용 프로그램입니다. 그래서 여기에 내가 원하는 : 나는 어떤 문자열 또는 문자열 배열에 그들의 이름을 지정하지 않고도 TrackBar1.Value에 의해 그들을 참조 할 수있는 리소스에 jpeg 또는 png를 넣을 수 있기를 원합니다.

내가 보는 유일한 방법은 어떻게 든 리소스에 포함 된 배열을 참조하는 것입니다.

참조, 나는이 코드 느릅 나무와 함께 한 잘 작동합니다 :

Dim list() As String = {"2013-04-03 22.53.41", "2013-04-10 12.43.47", 
     "2013-05-24 01.44.00", "2013-05-25 11.49.51", "2013-05-25 16.37.10", 
     "2013-06-06 23.22.46", "2013-07-04 19.59.29", "2013-09-14 12.31.09", 
     "2013-11-20 20.28.07", "2014-01-03 15.30.21", "2014-01-24 20.12.16", 
     "2014-03-18 19.03.21", "2014-05-27 20.40.07", "2014-07-21 19.46.37", 
     "2014-08-05 14.05.09", "2014-09-01 17.41.46", "2014-09-01 22.13.08", 
     "2014-09-14 17.49.31", "2014-09-15 17.27.55", "2015-05-30 12.45.58"} 
     ' These are 19 iPhone pictures 

Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll 
    picbox.Image = CType(My.Resources.ResourceManager.GetObject(list(TrackBar1.Value)), Image) 
End Sub 

그러나 그런 식으로, 내가 직접 ... 문자열 배열에

덕분에 많은 이름을 입력해야 .

Answer 1

이런 식으로 뭔가가

Private _resourceNames As String() 
Public ReadOnly Property ResourceNames As String() 
    Get 
     If _resourceNames Is Nothing Then 
      Dim thisExe As System.Reflection.Assembly 
      thisExe = Me.GetType.Assembly 

      System.Reflection.Assembly.GetExecutingAssembly() 
      _resourceNames = thisExe.GetManifestResourceNames() 
     End If 
     Return _resourceNames 
    End Get 

End Property