VBA：複数のPictureBox上の複数の画像

Question

HIそのカタログアプリケーション 私は私のフォルダに写真50枚を持っていますが、私は12のPictureBox で12枚の写真は、私はこのコードを使用するアプリケーションのロードショーにしたいが、それは私に何も与えない

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim pic As PictureBox 

    For i = 0 To 12 
     pic = Me.Controls("picturebox" & i) 
     pic.Image = Image.FromFile("C:\Dev\Images\TEST400.jpg") 
    Next i 



End Sub 

ヘルププラザ

Answer 1

あなたの画像ファイルがTEST1.jpg、TEST2.jpg、として保存しなければならない...... TEST12.jpgなど

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim pic As PictureBox 

    For i = 1 To 12 
     pic = Me.Controls("picturebox" & i) 
     pic.Image = Image.FromFile(@"C:\Dev\Images\TEST" + i.ToString +".jpg") 
    Next i 



End Sub 

N ote：私はここでこのコードを書きました。そのテストされていません。