vb中HScroll和VScroll控件的使用

Question

VB中用一个picture box显示较大的图像时，需要用到HScroll和VScroll；本人刚涉及这个领域，所以希望哪位好心大侠给段实例代码，特别申明一下，只用一个box哦   O(∩_∩)O~多谢啦。

Answer 1

'增加一个 picture1  。在picture1 中再增加一个 image1
'增加一个 Hscroll1 与 VScroll1
'在 image1 中加载一个大一点的图片
Private Sub Form_Load()
  Image1.Stretch = True
  Image1.Top = 0
  Image1.Left = 0
  
  VScroll1.Min = 1
  VScroll1.Max = Image1.Height - Picture1.Height
  
  HScroll1.Min = 1
  HScroll1.Max = Image1.Width - Picture1.Width
  
  
  
End SubPrivate Sub HScroll1_Change()
     Image1.Left = -HScroll1.Value
End SubPrivate Sub HScroll1_Scroll()
   Image1.Left = -HScroll1.Value
End SubPrivate Sub VScroll1_Change()
   Image1.Top = -VScroll1.Value
End SubPrivate Sub VScroll1_Scroll()
Image1.Top = -VScroll1.Value
End Sub

Answer 2

这样的程序其实网上太多：百度一下
http://www.baidu.com/s?bs=vb+picturebox+%B9%F6%B6%AF&f=8&wd=vb+picturebox%D4%F6%BC%D3%B9%F6%B6%AF%CC%F5