怎么在一嗰picture里面放图片`按下一张,他就变`高手进来..

Question

如题,高手帮忙`谢谢

Answer 1

Private Sub Command1_Click()
Dim ARR
Static i As Integer
ARR = Array("1.JPG", "2.JPG", "3.JPG", "4.JPG")
If i > 3 Then i = 0
Command1.Picture = LoadPicture(App.Path & "\" & ARR(i))
i = i + 1
End SubPrivate Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\1.JPG")
Command1.DownPicture = LoadPicture(App.Path & "\2.JPG")
End Sub

Answer 2

Private Sub Command1_Click()
Dim ARR
Static i As Integer
ARR = Array("1.JPG", "2.JPG", "3.JPG", "4.JPG")
If i > 3 Then i = 0
Command1.Picture = LoadPicture(App.Path & "\" & ARR(i))
i = i + 1
End SubPrivate Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\1.JPG")
Command1.DownPicture = LoadPicture(App.Path & "\2.JPG")
End Sub