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 

N ote : 방금이 코드를 여기에 작성했습니다. 그것은 테스트되지 않았습니다.