Private Declare Function SetCapture Lib "user32" ( ByVal hwnd As Long ) As Long |
Private Declare Function ReleaseCapture Lib "user32" () As Long |
Private Sub Command1_MouseMove(Button As Integer , Shift As Integer , X As Single , Y As Single ) |
If 0 <= X And X <= Command1.Width And 0 <= Y And Y <= Command1.Height Then |
SetCapture Command1.hWnd |
Else |
ReleaseCapture |
'这里就是离开啦 |
End If |
End Sub |
by: 发表于:2017-11-06 14:46:54 顶(0) | 踩(0) 回复
??
回复评论