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

[garycjq]

请大家帮帮忙啊

[Dunzip]

自建光标

[韧恒]

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()

h& = GetFocus&()

Call CreateCaret(h&, 0&, 10, 10)

X& = ShowCaret&(h&)
End Sub

[zq972]

颜色是没法改变了

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

[韧恒]

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

[zq972]

修改之后会不会导致定位不准呢

[yachong]

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