这样的程序用VB该怎么编？关于图片的...

Question

我在窗体上新建一个命令按钮，一个picture   我一点命令按钮，picture就会显示图片，再点一下命令按钮，picture就会显示另一张图片…………

Answer 1

在F盘的pic文件夹里，有1.jpg、2.jpg、3.jpg三个图片文件。
下述简单程序可使:  当点击按钮时，上述三个图片在图片框中轮流切换。
Private Sub Command1_Click()
Static n As Integer
  n = n + 1          '切换到下一张
  If n > 3 Then n = n - 3       '若超过三张则回到第一张
  Picture1.Picture = LoadPicture("F:\pic\" & n & ".jpg")
End Sub

Answer 2

上述方法的不便之处，在于必须为图片的文件名编号。
下述方法可不必为图片的文件名编号（可使用任意的文件名）。先假定在F盘的pic文件夹里全都是jpg图片文件。
添加一个File控件，其Visible属性False(运行时不必可见)
窗体装载时进行如下初始化
Private Sub Form_Load()
  File1.Path = "F:\pic"
End Sub
按钮程序如下：
Private Sub Command1_Click()
Static n As Integer
  If n >= File1.ListCount Then n = n - File1.ListCount
  Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))
  n = n + 1
End Sub
再假定F盘的pic文件夹里还有其他非图片文件。
则可在初始化过程中添加一句
  File1.Pattern = " *.jpg "