如何text不顯示游標？

[fumizuki (小獅)]

讓 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
推 JJss:推 很詳細!!!
推 dieb:真不錯^^