vb中怎么让图片依次加载？

来源：百度知道 编辑：UC知道 时间：2024/07/02 10:59:48
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("E:\我的文档\My Pictures\风光\0003.jpg")
Picture1.Picture = LoadPicture("E:\我的文档\My Pictures\风光\0004.jpg")
End Sub

点一下按钮，加载0003.jpg，再点一下，加载0004.jpg，就像图像浏览器一样。怎么办？请各位不吝指教。

Private Sub Command1_Click()
Static i
i = format(i + 1,"0000")
Picture1.Picture = LoadPicture("E:\我的文档\My Pictures\风光\" & i & ".jpg")
End Sub

先将文件路径存入数组中,再进行调用就可以了
Dim PN(2) As String
Dim i As Integer
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(PN(i))
i = i + 1
End Sub

Private Sub Form_Load()
PN(1) = "E:\我的文档\My Pictures\风光\0003.jpg"
PN(2) = "E:\我的文档\My Pictures\风光\0004.jpg"
i = 1
End Sub

自己加上判断就可以了

你也可以将图片有序的命名
例
将图片命名为1.jpg,2.jpg,3.jpg............
Dim i As Integer
Dim pat As String
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(pat & i & ".jpg")
i = i + 1
End Sub

Private Sub Form_Load()
i = 1
pat = "E:\我的文档\My Pictures\风光&#