我要在窗体上显示一个大于窗体的图片，最好可以滚动以便于看到全部图片，怎样可以做到？

Question

把图片用ImageBox 装起来然后加滚动条了。

Answer 1

用一个picturebox装起来，把他的autosize设置为true
dim x1 ,y1 as Integer
dim ifmove as boolen
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
     x1 = X
     y1 = Y
     ifmove = True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ifmove Then
        Picture1.Left = Picture1.Left - x1 + X
        Picture1.Top = Picture1.Top - y1 + Y
    End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ifmove = False
End Sub
以上代码可实现用鼠标拖拉图片。