Private Sub Form-MouseMove(Button As Integer,shift As Inteqer,X As
Single,Y As Single) Static currentX,currentY As Single Dim
orignX,orignY As
Single ’把当前的鼠标值赋给orignX和orignY orignX=X orignY=Y ’初始化currentX和currentY if
currentX=0 and currentY=0
Then currentX=orignX currentY=orignY Exit
Sub Endif ’当鼠标移动大于一个象素时，显示鼠标光标并退出程序 If Abs(oriqnX-currentX)>1
or
Abs(orignY-currentY)>1Then X=ShowCursor(True) End Endif EndSub 4、检测鼠标单击在Visual
Basic中，单击事件是由“Click”触发的。当屏幕保护程序运行时遇到单击事件，则程序运行终止。代码编辑如下：
Private Sub
Form-Click() X=ShowCursor(True) End EndSub 注意在结束之前先设光标的显示为真，以免在程序结束后丢失光标。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
