Question

vb图片浏览器中如何实现 上一张,下一张

图片是随机的
打开一个图片库时,点下一个按扭时图片变成图片库里的下一张

Answer 1

楼上的没有调试过，我改改
Dim i As Integer '声明i为整形全局变量
'上一张 按钮的代码：
If i > 0 Then
i = i-1
Picture.Picture=Loadpicture(App.Path & "\" & i & ".Jpg" )
Else
Msgbox "已经是第1张图片了"
End If
'下一张 按钮的代码：
'假设有n张图片
If i < n Then
i = i + 1
Picture1.Picture=Loadpicture(App.Path & "\" & i & ".Jpg" )
Else
Msgbox "已经是第" & n & "张图片了"
End If
'把这n张图片重名名为0.jpg 1.jpg 2.jpg...n-1.jpg，然后复制到程序所在目录。

Answer 2

'在窗体通用模块里声明下面这个 i 为全局变量
Dim i As Integer
'上一张 按钮的代码：
if i>0 then
i=i-1
picture1.picture=laodpicture(app.path & "\" & i & ".jpg" )
else
msgbox "没了"
end if
'下一张 按钮的代码：
'假设有6张图片
if i<5 then
i=i+1
picture1.picture=laodpicture(app.path & "\" & i & ".jpg" )
else
msgbox "没了"
end if
'把这6张图片重名名为0.jpg 1.jpg 2.jpg...4.jpg，然后复制到程序坐在目录。

Answer 3

能具体点吗