如何可以讓光標不顯示。

Question

我做的一個程序，很多控件是不需要輸入內容的，所以光標在那裡看起來太不自在。
所以是否可以控件光標的顯示和隱藏。先謝謝各位幫忙。

Answer 1

Private Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As LonghCursor = 1    显示
hCursor = 0    不显示可以加在控件的 GetFocus 事件内

Answer 2

在VB中如果想要隐藏和显示光标可以使用下面的API函数：
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
当参数为-1时，就隐藏光标，当参数为1时就显示光标
你试一下看一下能行吗？

Answer 3

Private Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As LonghCursor = 1    显示
hCursor = 0    不显示
这是正解

Answer 4

错了，应该是：
在VB中如果想要隐藏和显示光标可以使用下面的API函数：
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
当参数为0时，就隐藏光标，当参数为1时就显示光标
楼上的有误吧。

Answer 5

由于鼠标的系统公用的，因此这个函数是带有内部计数器的，所以要想得出正确的结果你还应该检查计数器。否则，你执行两次showcursor 0 ，再执行一次showcursor 1，看看光标会出来吗？！
应该这样使用：    While ShowCursor(0) >= 0
        ' 将计数器值减至-1，以实现鼠标的隐藏
    Wend    While ShowCursor(1) < 0
            ‘ 显示
    Wend