一串图片在图片框里浏览 然后按纽控制上一张 下一张的代码怎么写
发现点击按纽只能执行一次...所以不知道怎么办了
速度~~~谢谢

兄弟救我啊

方法很多，提供二个思路
方法一：把图片文件使用号码编号，比如p01.jpg\p02.jpg
if page=0 or page="" then
page=1
end if
if len(cstr(page))=1 then
p="0" & cstr(page)) '本程序只能少于９９张图
else
p=cstr(page)
end if
filename="p"& p & ".jpg"

picture1.picture=app.Path & filename

下一页的按钮：
page=page+1
call 上面这段程序


方法二，把图片路径存入数据库，用数据库的分页方法来显示．

还有其他好多方法，自己想吧

[此贴子已经被作者于2006-11-20 21:41:06编辑过]

观点同楼上.........

第1个方法能详细点吗？我新手
学VB才2天...

我也是新手
3楼的方法我不会
这个方法你看行不行？
虽然有点复杂
但是可以解决你的问题


Private Sub Command1_Click() '下一张按钮
Static i As Integer
If i = 1 Then
Picture1.Picture = LoadPicture("app.Path & filename")
ElseIf i = 2 Then
Picture1.Picture = LoadPicture("app.Path & filename")
ElseIf i = 3 Then
...
...
...
Else
i = 1
End If
i = i + 1
End Sub

Private Sub Command6_Click()
Static a As Integer
If i = 1 Then
Image1.Picture = LoadPicture("D:\Bmp图片\2.bmp")
ElseIf i = 2 Then
Image1.Picture = LoadPicture("D:\Bmp图片\3.bmp")
ElseIf i = 3 Then
Image1.Picture = LoadPicture("D:\Bmp图片\4.bmp")
Else
i = 1
End If
i = i + 1
End Sub
不行啊 点了没反应 刚开始我也是这么写的...

我也想知道

Static a As Integer --> Static i As Integer

...........