在它的目录应用程序中 我在我的文件夹上有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
答案 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
注意:我这里只是写了这段代码。它没有经过测试。