VB 隐藏光标

Question

如题

Answer 1

HideCaret'隐藏光标
ShowCaret'显示光标

Answer 2

光标和鼠标
Declare Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As Long) As LongDeclare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Answer 3

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
...
    '隐藏鼠标
    While ShowCursor(False) >= 0 '将计数器值减至-1
    Wend
...
    '显示鼠标
    While ShowCursor(True) < 0 '将计数器值加至0
    Wend

Answer 4

'隐藏文本框中的光标
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean Private Sub Text1_GotFocus() 　
       　HideCaret Text1.hwnd 　
End Sub 

Answer 5

 　　在Windows的大多数场合下，鼠标都是始终可见的。但在有些场合需隐藏鼠标，使之不可见，以免影响屏幕画面的整体效果，如屏幕保护程序运行时，鼠标就是不可见的。在VB中可通过调用WindowsAPI函数ShowCursor()来非常轻松地实现鼠标的隐藏。方法如下：
　　方法一：
　　首先在全局模块中声明函数如下：
　　DeclareFunctionShowCursorLib″User″(ByValbShowAsInterger)AsInterger
　　当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示：
　　SubForm—Load
　　Dimrc％
　　rc％=ShowCursor(False)′隐藏鼠标
　　rc％=ShowCursor(True)′显示鼠标
　　End sub
　　此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用，否则有可能造成鼠标“丢失”的现象，即调用若干次Show Cursor(True)也有可能显示不出鼠标来(视内部计数器值而定)。当鼠标“丢失”时，可通过重新启动Windows来找回鼠标。
　　方法二：
　　采用如下程序，可以不成对调用ShowCursor（）函数：
　　′隐藏鼠标
　　WhileShowCursor(False)>=0′将计数器值减至1
　　Wend
　　′显示鼠标
　　WhileShowCursor(True)<0′将计数器值加至0
　　Wend