[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Скрыть/показать мигающий курсор в TextBox'e (Скрыть/показать мигающий курсор в TextBox'e)
Скрыть/показать мигающий курсор в TextBox'e
ilimДата: Среда, 09.11.2011, 22:32 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
'Добавьте 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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Скрыть/показать мигающий курсор в TextBox'e (Скрыть/показать мигающий курсор в TextBox'e)
Страница 1 из 11
Поиск: