1,453
社区成员




Option Explicit
Dim bolInPic As Boolean
Private Sub Form_Load()
bolInPic = False '初始化设置,标记鼠标没有进入Picture1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bolInPic Then bolInPic = False '标记鼠标没有进入Picture1
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not bolInPic Then
'添加你的图片处理软件,这样可以避免移动鼠标就载入图片的情况,大大的提高了程序流畅度
bolInPic = True '标记鼠标进入Picture1
End If
End Sub