Скрыть/показать мигающий курсор в TextBoxe

'Добавьте TextBox и CheckBox на форму

Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowCaret& Lib "user32" (ByVal hwnd As Long)

Private Sub CheckCaret()
If Check1.Value = vbChecked Then
ShowCaret (Text1.hwnd)
Else
HideCaret (Text1.hwnd)
End If
End Sub

Private Sub Form_Load()
Check1.Value = 1
End Sub

Private Sub Text1_Change()
CheckCaret
End Sub

Private Sub Text1_GotFocus()
CheckCaret
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Скрыть/показать мигающий курсор в TextBoxe", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!