VBA：多個PictureBox的多張圖片

Question

喜其目錄應用 我有我的文件夾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 

幫助PLZ

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 

ñ ote：我只是在這裏寫了這段代碼。它沒有測試。