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

时间:2016-07-16 20:29:59

标签: image vba picturebox

在它的目录应用程序中 我在我的文件夹上有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

1 个答案:

答案 0 :(得分: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

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