Question

vb在一个图片框中滚动显示多个图片

我想设计显示出在一个窗口，其中有多个图片，通过滚动条查看每个图片。类似于网页内容显示，通过滚动条上下查看内容，只不过我的内容都是图片。
先设计了一个picture1控件，在其中想放多个图片，在其中的图片大小都超过picture1，可以用滚动条滚动显示。但现在只会滚动显示第一个图片，滚动条对其他图片没有作用。请高手教一下，本人毕设等着答辩。有的分全都给了，谢谢！
网上的都只是两个图片，我想弄的是多个图片。

Answer 1

可以参考的思路：
用image控件数组存放多个图片，autoresize=True，这样Image控件的大小就是图片的大小。然后将image控件按顺序摆放。滚动条控制Image控件的位置。

追问

能不能够再详细一点，我自己试了不成功。我对vb不熟，代码弄不对。三个图片显示的代码就好。

追答

你要怎么显示图片，单行？单列？还是矩阵（多行多列）？
picture控件内部添加一个Image控件，index设为0，visible设为false
代码中根据图片个数载入image控件：
Load Image(i)'以下假设是单列
Image(i).Left=0
Image(i).Top=i*Image(i).Height
Image(i).Visible=True
设置滚动条适当的值，当点击条时,当前显示的所有图片往上移动：
Image(k).Top=Image(k).Top-nScrollValue
如果下面的图片上移出现空档，继续载入下一个图片

追问

就是单列的，在第二个imgae上显示图片，但是图片大小大于picutrebox。通过滚动条（vs和hs）依次显示image中读取的图片。都说到这了，就再麻烦你一下，谢谢啦！

追答

单个图片移动的代码：
Private Sub Form_Load()
VScroll1.Max = 100
VScroll1.SmallChange = 10
End Sub

Private Sub VScroll1_Change()
Image1.Top = -Image1.Height * VScroll1.Value / 100
End Sub
不考虑性能的话，多个图片可以一起显示
Private Sub Form_Load()
VScroll1.Max = 100
VScroll1.SmallChange = 10
nTop=0
for i=1 to nCount 'nCount 是图片个数
Load image1(i)
image1(i).Piture=LoadPicture("图片文件")
image1(i).top=nTop
image1(i).left=0
image1(i).visible=true
ntop=ntop+image1(i).height
next i
End Sub

Private Sub VScroll1_Change()
dim nTopBuff as long
nTopBuff=Image1(1).height * VScroll1.Value / 100
for i=1 to nCount
Image1(i).Top =Image1(i).Top-nTopBuff
next i
End Sub

Answer 2

计时器控制每30秒转换一张图片，根据图片大小重设滚动条最大值即可，可以加一些图片转换效果