Question

如何用VB实现，上一张下一张浏览图片

我是要做一个类似ACDSEE那种浏览图片的软件，那种软件里的上一张下一张浏览功能有谁能用VB代码来实现

Answer 1

代码我写好了.
建一个文件列表框.图象框.,和2个命令按钮.

Dim strPic() As String, k%

Private Sub cmdBack_Click()
If k <> 0 Then k = k - 1
Image1.Picture = LoadPicture(strPic(k))
End Sub

Private Sub cmdNext_Click()
If k <> UBound(strPic) Then k = k + 1
Image1.Picture = LoadPicture(strPic(k))
End Sub

Private Sub Form_Load()
Dim i%
File1.Path = "e:\我的文件\My Pictures"
File1.Pattern = "*.jpg;*.bmp;*.gif"
ReDim strPic(File1.ListCount - 1)
For i = 0 To File1.ListCount - 1
If Right(File1.Path, 1) = "\" Then
strPic(i) = File1.Path & File1.List(i)
Else
strPic(i) = File1.Path & "\" & File1.List(i)
End If
Next i
Image1.Stretch = True
Image1.Picture = LoadPicture(strPic(0)) '初始化图象
File1.Top = -File1.Height

End Sub

Answer 2

读取文件夹下的图片文件列表 记录在数组中

操作数组

Answer 3

这个东西做得好，真是太受益了，真是太谢谢了

Answer 4

去我博客留个邮箱www.trydo.net,我发我的原代码给你,基本功能都有,包括浏览图像,浏览文件夹,全屏浏览,自动播放,另存为,打印,翻转,放大缩小,转到...等