如何改变textbox文本框里闪烁光标的颜色,请高手帮忙

Question

如何改变textbox文本框里闪烁光标的颜色同时加粗(不改变文本字体大小和加粗)注:不是鼠标图标,是不断闪烁的光标请高手帮忙

Answer 1

重新建立一个位图光标给文本框:需要在图片框Picture1中放置一个彩色图片，注意系统绘制光标时是使用反色绘制的Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetFocus Lib "user32" () As Long
Sub Text1_GotFocus()
    b& = Picture1.Picture
    '建立光标
    Call CreateCaret(Text1.hwnd, b&, 10, 10)
    '显示新光标
    X& = ShowCaret&(Text1.hwnd)
End Sub