Question

如何用VB实现可以上一张下一张的浏览图片？求代码

我加了1个image,2个command，有p1、p2、p3共3张图片，图片和VB工程在同一个文件夹，要求点击command时图片依次在image中出现，代码应该怎么写？还需要其他什么控件吗？

Answer 1

我这没装VB下边是自己直接打在BAIDU的,有错知没误你改下就可以,思路就是这样搭轿纳!

Dim PicUrl(2) as string
Dim Num as integer
private sub form1_load()
Num=0
PicUrl(0)="p1"
PicUrl(1)="p2"
PicUrl(2)="p3"
end sub
private sub command1_click()
num=iif(num-1<帆瞎0,2,num-1)
image.loadpicture(picurl(num))
end sub
private sub command1_click()
num=iif(num+1>2,0,num+1)
image.loadpicture(picurl(num))
end sub

Answer 2

请参败态晌手考察谨源：
http://hi.baidu.com/xnzhrx/blog/item/04c2663d9608eacd9e3d62fa.html