求助。VB滚动条的问题，大神请进。

这算是典型的伸手党啊

这斯不晓得百度?

给个示例，图片地址自己改一下。
'使用Image控件，让控件来自己调整。
Public H, W As Single
Private Sub Form_Load()
Image1.Stretch = True
Image1.Picture = LoadPicture("D:\My Documents\My Pictures\20070825\111.jpg")
VScroll1.Max = 100
VScroll1.Min = 0
VScroll1.SmallChange = 1
VScroll1.LargeChange = 5
HScroll1.Max = 100
HScroll1.Min = 0
HScroll1.SmallChange = 1
HScroll1.LargeChange = 5
H = Image1.Height
W = Image1.Width
End Sub
Private Sub VScroll1_Change()
Image1.Height = H * (1 + VScroll1.Value / 100)
Image1.Picture = LoadPicture("D:\My Documents\My Pictures\20070825\111.jpg")
End Sub
Private Sub HScroll1_Change()
Image1.Width = W * (1 + HScroll1.Value / 100)
Image1.Picture = LoadPicture("D:\My Documents\My Pictures\20070825\111.jpg")
End Sub
欢迎转载 欢迎使用。

能帮的请帮 我求你评论了？

http://sanyexue.ys168.com/
放大图片.zip 145KB很淡疼的一个实例。[编辑]
好了，我该做的也做完了。

我那个比你那个高级多了。