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) 回复
??
回复评论