VB中用滚动条浏览图片的代码

VB中用滚动条浏览图片的代码

窗体上添加两个同样大小的Picture控件Picture1、Picture2，再添加HScrollBar滚动条，ID为HScroll1 ，添加VScrollBar滚动条，ID为VScroll1
添加如下代码
Private Sub Form_Load()
Picture2.AutoSize = True
Picture2.BorderStyle = 0
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
HScroll1.Max = Picture2.Width - Picture1.ScaleWidth
VScroll1.Max = Picture2.Height - Picture1.ScaleHeight
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub

Private Sub HScroll1_Scroll() '实现拖动滚动条时图像即时滚动
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll() '实现拖动滚动条时图像即时滚动
Picture2.Top = -VScroll1.Value
End Sub
即可实现滚动浏览图片，其实Picture2的属性Picture设置为要浏览的图片

画一个Picture1、VScroll1、HScroll1，再在Picture1里画一个Image1。将Image1的Stretch设为False，AutoSize(如果有这个属性的话)设为True，Left、Top都设为0，图片要放到Image1中。将VScroll1、HScroll1的Min都设为0。
在Form_Load中打
VScroll1.Max = Image1.Height - Picture1.ScaleHeight
HScroll1.Max = Image1.Width - Picture1.ScaleWidth
在VScroll1的Scroll中打
Image1.Top = 0 - VScroll1.Value
在HScroll1的Scroll中打
Image1.Left = 0 - HScroll1.Value
最后要注意以上代码要求Image1中的图片大小必须超过Picture1所能显示的范围，而且Image1中的图片不宜过大，否则会报错。