如题HideCaret'隐藏光标 ShowCaret'显示光标 光标和鼠标 Declare Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As Long) As Long
Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
VB code: Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long ... '隐藏鼠标 While ShowCursor(False) >= 0 '将计数器值减至-1 Wend ... '显示鼠标 While ShowCursor(True) < 0 '将计数器值加至0 Wend
不行！要引用库 不行！可能要引用那个库函数，但不知道是哪个？ 谁给一个完整的代码或者告诉是哪个库函数！谢谢了！ 如是第三者软件上的，比较难办 VB code: '隐藏文本框中的光标 Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean Private Sub Text1_GotFocus() HideCaret Text1.hwn
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......
