如何改变TEXTBOX中光标的大小,使它容易觉察,急~~大家帮帮忙

Question

请大家帮帮忙啊

Answer 1

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 LongSub Text1_GotFocus()    h& = GetFocus&()    Call CreateCaret(h&, 0&, 10, 10)    X& = ShowCaret&(h&)
End Sub

Answer 2

颜色是没法改变了用楼上的方法可行
参数改一下，好看点
Call CreateCaret(h&, 0, 3, 24)

Answer 3

颜色也可以改变，利用位图光标即可，将CreateCaret的第二个参数设置为位图句柄，看我的另一个贴子里有具体代码：
http://community.csdn.net/Expert/topic/5164/5164136.xml?temp=.6065485

Answer 4

http://community.csdn.net/Expert/topic/5164/5164136.xml?temp=.7683985
songyaowu(不以分多而蹭之;不因分少而不答; www.vb99.com) 的解决方案
可以改变光标大小颜色