作者fumizuki (小狮)
看板Visual_Basic
标题如何text不显示游标？
时间Fri Apr 1 11:11:55 2005
让 TextBox、ComboBox 不显示游标的方法
直觉想到将 Enabled 属性设为 False
但是这样做的话，控制项本身会反白，不能使用，事件也不再触发。
除了更改 Enabled 属性外，还有一个方法，使用 API ！
首先将下面这一行加到一般模组中
Public Declare Function HideCaret Lib "user32" (ByVal hWnd As Long) As Long
然後在你的程式码中加上这一行
HideCaret Text1.hWnd
至於重新显示游标的方法，送出滑鼠键的讯息即可。
SendMessage Text1.hWnd, WM_LBUTTONDOWN, 0, 0
SendMessage Text1.hWnd, WM_LBUTTONUP, 0, 0
使用 SendMessage 必须要将下面这一行加到一般模组中
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
--
人若无星爷，跟条咸鱼有何分别？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.222.155.162
1F：推 JJss:推 很详细!!! 210.69.52.215 04/01
2F：推 dieb:真不错^^ 61.229.48.193 04/01