请问如何用鼠标超出窗体的图片

Question

也就是说，一张图片大于窗体，我想用鼠标移动来查看显示不下的部分。也就是像ASCDSEE放大图片时，用小手移动一样。请说明一下原理。思想

Answer 1

用点击拖动鼠标来实现图片与窗体的距离
既图片控件的lift和top属性
再把拖动是鼠标的形状改为小手即可

Answer 2

Option ExplicitDim lngDownX As Long, lngDownY As LongPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lngDownX = X: lngDownY = Y
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        With Picture1
            .Move .Left + X - lngDownX, .Top + Y - lngDownY
        End With
    End If
End Sub