如何消除一个textbox在gotfocus时的闪烁光标.txt

VB技巧问答10000例 VB技巧问答10000例

使 用 Windows API的 HideCarent函 数 ， 如 下 ： 
    Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long 
     
    Private Sub Text1_GotFocus() 
     HideCaret Text1.hwnd 
    End Sub 
<END>