Question

VB中，在一个窗体中放了一个Image图片，但图片太长，想用一个 VScroll bar 控件，怎么用？

具体就是：在运行时，拖动滚动条，或者滚动鼠标滚轮，图片就能上下移动，这样就可以看到图片上所有的内容了，代码是什么？谢谢！！！
感谢两位的回答，不过我不太明白，用其它的方法也可以，只要能看到整个图片的内容就行，谢谢！！！

Answer 1

这个关于图片显示的问题，一般是用一个图片框作为容器，再在这个图片框里面添加第二个图片框，第二个图片框里面加载图片。
由于第二个图片框的大小比第一个要大，所以显示不全的，因此要假如滚动条，也就是scrollbar
利用滚动条的当前值，来改变第二个图片框的top参数或者left参数，达到在有限的窗口内显示较大的图片的目的。也就是每改变因此滚动条的值，就要用代码去改变第二个图片框的top参数或者left参数。这样这个图片可以随滚动条的变化而改变位置，进而可以看到图片的全貌。

Answer 2

加一个垂直滚动条和一个水平滚动条，设其smallchang为100，加入以下代码，看看是不是你想要的。
Private Sub HScroll1_Change()
Image1.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Image1.Top = -VScroll1.Value
End Sub

Answer 3

Dim a2 As Long

Private Sub Form_Load()

a1=Image1.Top

End Sub

Private Sub Command1_Click()'改成你的下滚动事件即可，俺只用了一个按钮做实验

a1=a1-1000‘上滚动事件里+1000即可，这个1000要根据背景比如form的.ScaleMode 属性来定，默认的是0-twip

Image1.Move Image1.Left,a1
'即可
End Sub

Answer 4

=0=