程序代码：

Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i As Integer
i = i + 1
If i = 10 Then i = 1
Form1.PaintPicture LoadPicture("D:\1111\" & i & ".jpg"), 0, 0
End Sub

[此贴子已经被作者于2016-9-5 19:35编辑过]

程序代码：

Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i As Integer
For i = 1 To 9
Form1.PaintPicture LoadPicture("D:\1111\" & i & ".jpg"), 0, 0
Next
End Sub

程序代码：

Private Sub Command1_Click()
Form1.AutoRedraw = True
If File1.ListIndex < File1.ListCount - 1 Then       '如果选择的图像小于总图像数
    File1.ListIndex = File1.ListIndex + 1           '无选择时，listindex =-1 ，加1后就变成第1项。
Else
    File1.ListIndex = 0         '返回到第一项
End If
Form1.Cls '先清除
'载入当前选择的图像
Form1.PaintPicture LoadPicture("D:\1111\" & File1.List(File1.ListIndex)), 0, 0
End Sub
Private Sub Form_Load()
File1.Path = "d:\1111"
File1.Visible = False
End Sub

[此贴子已经被作者于2016-9-6 14:14编辑过]