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

编号：QA002091
建立日期: 1999年11月24日 最后修改日期：1999年11月24日
所属类别：

Visual Basic - 标准控件
Visual Basic - 键盘与鼠标

jack:
    另外我还有个问题：CreateCaret()函数的用法。

回答:

    Option Explicit
    
    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

此问题由李海回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)