如何用 滚动条实现 图片的滚动！

Question

http://www.csdn.net/expert/topic/559/559353.xml?temp=.068371

Answer 1

www.dapha.net
用两个picturebox！

Answer 2

Private Sub VScroll1_Change() Image1.top = Image1.top + iyy - VScroll1.Value
 iyy = VScroll1.ValueEnd Sub
Private Sub HScroll1_Change() Image1.left = Image1.left + ixx - HScroll1.Value
 ixx = HScroll1.Value
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = 0
If Button = 1 Then
Image1.Width = Image1.Width * 1.25
Image1.Height = Image1.Height * 1.25
Image1.left = Frame1.left + Frame1.Width / 2 - 1.25 * X
Image1.top = Frame1.top + Frame1.Height / 2 - 1.25 * YElse
Image1.Width = Image1.Width * 0.8
Image1.Height = Image1.Height * 0.8
Image1.left = Frame1.left + Frame1.Width / 2 - 0.8 * X
Image1.top = Frame1.top + Frame1.Height / 2 - 0.8 * YEnd If
'Image1.Left = X - Image1.Width / 2 + Frame1.Left
'Image1.Top = Y - Image1.Height / 2 + Frame1.Top
Image1.Visible = 1
End Sub
form_load()
ixx = 0: iyy = 0
'----------------图像调整
Image1.Visible = 0
Dim xx As Single
xx = Image1.Width / Image1.Height
If xx > 4 / 3 Then
  Image1.Width = Frame1.Width
  Image1.Height = Image1.Width / xx
   Else
  Image1.Height = Frame1.Height
  Image1.Width = Image1.Height * xx
  Image1.left = Frame1.Width / 2 - Image1.Width / 2
Image1.top = Frame1.Height / 2 - Image1.Height / 2Image1.Stretch = 1
Image1.Visible = 1end sub

Answer 3

同意happybeyond(马丁)的
用2个picturebox，一个作框，一个用来显示