做图片浏览器遇到的小问题,急救!!!!!!!!!!!!

zhushizu 2003-05-13 06:11:39
怎么点一个按钮就可以浏览下一张图片??
...全文
11 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
qbilbo 2003-05-15
新建一个工程,在窗体上放一个ListBox控件,一个Image控件。
贴入下面的代码:

Option Explicit

Private Sub Form_Load()
Dim strFile As String

strFile = Dir("C:\windows\*.bmp")

If strFile <> "" Then
Do
List1.AddItem strFile
strFile = Dir
Loop Until strFile = ""
End If

Image1.Stretch = True
End Sub

Private Sub List1_Click()
Image1.Picture = LoadPicture("C:\windows\" + List1.List(List1.ListIndex))
End Sub
回复
zhushizu 2003-05-15
谢谢风之兄!!
回复
zhushizu 2003-05-14
online(龙卷风)好方法,但小弟不才,要怎么做才能获得所有路径并放入数组呢???
回复
online 2003-05-14
你还不如直接将一个目录下的所有图片显示出来,像acdsee
初始化数组,将图片的路径放入数组中
其余的在数组中操作就可以了

回复
zhushizu 2003-05-14
你可能没有理解,我说的是怎样找到下一个文件的文件名,你怎么知道下一个文件是什么呢?


知道现在这个文件,怎么知道下一个文件的文件名???????????
回复
qbilbo 2003-05-13
Picture1.Picture = LoadPicture("下一个图片文件名")
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-13 06:11
社区公告
暂无公告