VBa：多个图片框上的多张图片

Question

在它的目录应用程序中 我在我的文件夹上有50张图片，但我想在应用程序中加载显示12张图片框中的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

注意：我这里只是写了这段代码。它没有经过测试。