Функция ShowCaret
Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
ShowCaret выводит каретку на экран в текущей позиции. При появлении каретки на экране, она автоматически начинает мигать
- hwnd
- Дескриптор окна-владельца каретки. Если параметр равен Null, то функция сама ищет владельца каретки
Пример
' Выводим каретку в текстовом поле
' Мы используем событие Text1_GotFocus, т.к.
' VB сбрасывает каретку и отображает снова старую
Private Sub Text1_GotFocus()
Dim retval As Long
Call CreateCaret(Text1.hwnd, 0, 10, 10)
retval = ShowCaret(Text1.hwnd)
End Sub
Смотри также
HideCaret
Категория
Каретка