VB中用滚动条浏览图片的代码是什么？

窗体上添加两个同样大小的Picture控件Picture1、Picture2，再添加HScrollBar滚动条，ID为HScroll1 ，添加VScrollBar滚动条，ID为VScroll1\x0d\x0a添加如下代码\x0d\x0aPrivate Sub Form_Load()\x0d\x0aPicture2.AutoSize = True\x0d\x0aPicture2.BorderStyle = 0\x0d\x0aPicture1.ScaleMode = 3\x0d\x0aPicture2.ScaleMode = 3\x0d\x0aHScroll1.Max = Picture2.Width - Picture1.ScaleWidth\x0d\x0aVScroll1.Max = Picture2.Height - Picture1.ScaleHeight\x0d\x0aEnd Sub\x0d\x0aPrivate Sub HScroll1_Change()\x0d\x0aPicture2.Left = -HScroll1.Value\x0d\x0aEnd Sub\x0d\x0a \x0d\x0aPrivate Sub HScroll1_Scroll()'实现拖动滚动条时图像即时滚动\x0d\x0aPicture2.Left = -HScroll1.Value\x0d\x0aEnd Sub\x0d\x0aPrivate Sub VScroll1_Change()\x0d\x0aPicture2.Top = -VScroll1.Value\x0d\x0aEnd Sub\x0d\x0aPrivate Sub VScroll1_Scroll() '实现拖动滚动条时图像即时滚动\x0d\x0aPicture2.Top = -VScroll1.Value\x0d\x0aEnd Sub\x0d\x0a即可实现滚动浏览图片，其实Picture2的属性Picture设置为要浏览的图片

可以的，具体的方法如下：

1、第一种方法，代码如图。高度必须要有，overflow属性为auto。如果要出现水平滚动条，overflow-x:auto，如果出现垂直滚动条为，overflow-y:auto 。

2、然后查看结果，如图所示。

3、第二种方法，如图。也需要设置宽高。

4、查看结果，如图所示。

5、第三种方法代码如图。必须要设置宽和高。

6、打开浏览器查看，如图。

---