[分享]俘虏鼠标指针(实例)源码

阿杰

<p><font face="Verdana">'首先请先在窗口中增加个Picture控件,然后将以下代码复制进去.</font></p>
<p><font face="Verdana">Option Explicit</font></p>
<p><font face="Verdana">Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long<br/>Private Declare Function ReleaseCapture Lib "user32" () As Long</font></p>
<p><font face="Verdana">Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br/>&nbsp;&nbsp;&nbsp; SetCapture Picture1.hwnd '俘虏鼠标<br/>&nbsp;&nbsp;&nbsp; Picture1.MousePointer = vbCrosshair<br/>End Sub</font></p>
<p><font face="Verdana">Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<br/>&nbsp;&nbsp;&nbsp; ReleaseCapture '释放鼠标<br/>&nbsp;&nbsp;&nbsp; Picture1.MousePointer = vbDefault<br/>End Sub<br/></font></p>