想要分的就快回答

Question

在picturebox1里再放一个picturebox2,滚动条放在1中,
private sub hsbt_change()
   picturebox2.left=-hsbt.value
end sub
picturebox2.top同理可得

Answer 1

判断Mouse_Move事件
如果 x<10 将picturebox2.left增大，使picturebox1的图象感觉向右移动了
如果 x>picturebox1.width - 10 将picturebox2.left减小，使picturebox1的图象感觉向右移动了
如果 y<10 将picturebox2.top增大，使picturebox1的图象感觉向上移动了
如果 x>picturebox1.height - 10 将picturebox2.top减小，使picturebox1的图象感觉向下移动了
记着移动前判断一下，不要移过了头

Answer 2

'分别放置一个Frame,picture,Hscrollbar和Vscrollbar到窗体上,并且图片框包含在框架中
Private Sub Form_Load()
  Picture1.Picture = LoadPicture("d:\006.jpg")
  If Picture1.Width > Frame1.Width Then
    HScroll1.Max = Picture1.Width - Frame1.Width
  Else
    HScroll1.Visible = False
  End If
  If Picture1.Height > Frame1.Height Then
    VScroll1.Max = Picture1.Height - Frame1.Height
  Else
    VScroll1.Visible = False
  End If
End SubPrivate Sub HScroll1_Change()
    Picture1.Left = -HScroll1.Value
End SubPrivate Sub VScroll1_Change()
  Picture1.Top = -VScroll1.Value
End Sub