Question

VB如何在 窗体内隐藏鼠标

在指定的一个窗体内，用语句动态控制显示或者隐藏鼠标。
窗体大小不变，可移动位置。
不是直接把鼠标隐藏，是只在窗体区域内才隐藏。或显示。
说了是只在窗体中隐藏或显示。窗体外无任何隐藏显示效果。
假设动态控制隐藏了，那么鼠标在窗体内他是隐藏的，一但移动到窗体外他就不隐藏的。
不隐藏么移动到哪儿都不隐藏。

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub Timer2_Timer() '探测鼠标是否在窗体内
Dim Point As POINTAPI
GetCursorPos Point

If Point.X * 15 >= Me.Left And Point.X * 15 <= Me.Left + Me.Width And Point.Y * 15 >= Me.Top + 300 And Point.Y * 15 <= Me.Top + Me.Height Then
ShowCursor 0 '隐藏鼠标
Else
ShowCursor 1 '显示鼠标
End If
End Sub

当在其他事件里面单独用
Timer2.Enabled = False
ShowCursor 1
没有显示鼠标的效果，为什么？

但是还存在多次执行隐藏或者显示后会向对应的显示另外一种效果。
感觉成对使用。如何解决。不成对使用。

Answer 1

'两个按钮
'我的程序没有错
'在VB中运行是没有你说的效果，但生成文件后就可以了，请试一下

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor 0 '隐藏鼠标
End Sub

Private Sub Command2_Click()
ShowCursor 1 '显示鼠标
End Sub

Answer 2

http://user.qzone.qq.com/510087559
这个日志里面有很多你想要的代码
自己去看吧