怎样用VScroll1和HScroll1控制图片

Question

当我用loadpicture连接图片时，图片较小的话，倒没有什么问题
但如果图片较大时，已经超出了picture控件的范围，这时我们也只能用
VScroll1和HScroll1控制图片，看不到可以拖动来观看，但我试了很久，
还是没有解决，哪位能告诉我具体怎么实现吗？又怎么样是最简单的呢？

Answer 1

你可以用两个图片控件呀，一个做容器，一个做显示用，用vs和hx来控制那个显示控件在容器中的位置即可

Answer 2

Private Sub Form_Load()
 Form1.ScaleMode = 3
 Picture1.ScaleMode = 3
 Picture1.ScaleMode = 3
 Picture1.Appearance = 0
 Picture2.Appearance = 0
 Picture2.AutoSize = True
 Picture1.AutoSize = False
 Picture2.Left = 0
 Picture2.Top = 0
 HScroll1.Min = 0
 VScroll1.Min = 0
 VScroll1.Left = Picture1.ScaleWidth - VScroll1.Width
 VScroll1.Top = 0
 VScroll1.Height = Picture1.ScaleHeight - HScroll1.Height
 HScroll1.Left = 0
 HScroll1.Top = Picture1.ScaleHeight - HScroll1.Height
 HScroll1.Width = Picture1.ScaleWidth - VScroll1.Width
 HScroll1.Visible = False
 VScroll1.Visible = False
 Picture2_Resize '如果用loadpicture就不用加这句了
End Sub
Private Sub HScroll1_Change()
  Picture2.Left = -HScroll1.Value
End Sub
Private Sub Picture2_Resize()
 If Picture2.Width > Picture1.Width Then
  HScroll1.Visible = True
  HScroll1.Max = Picture2.Width - Picture1.Width
 End If
 If Picture2.Height > Picture1.Height Then
  VScroll1.Visible = True
  VScroll1.Max = Picture2.Height - Picture1.Height
 End If
End SubPrivate Sub VScroll1_Change()
  Picture2.Top = -VScroll1.Value
End Sub
这个是两个picturebox做成的，