如何改变文本插入点的形状.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 12 行

Private Declare Sub CreateCaret Lib "user32" (ByVal w As Long, ByVal x As Long, ByVal y As Long, ByVal z As Long) 
    Private Declare Function ShowCaret Lib "user32" (ByVal x As Long) As Long 
    Private Declare Function GetFocus Lib "user32" () As Long 
     
     
    Sub Text1_GotFocus() 
     Dim h As Long, x As Long 
     h = GetFocus() ' get the handle to the text box 
     Call CreateCaret(h, 0, 8, 24) ' create new caret size 
     x = ShowCaret(h) ' show the new caret 
    End Sub 
<END>