< CreateCaret

Функция CreateCaret

Declare Function CreateCaret Lib "user32" Alias "CreateCaret" ( _
          ByVal hwnd As Long,  _
          ByVal hBitmap As Long,  _
          ByVal nWidth As Long,  _
          ByVal nHeight As Long) As Long

CreateCaret создает новую форму каретки с заданными параметрами. Каретка может быть линией, прямоугольником или растром.

hwnd
Описатель окна-владельца курсора
hBitmap
Описатель растра, который будет содержать вид каретки. Если равен 1, то каретка имеет серый цвет вместо черной каретки, если установлен hBitmap, то свойства nWidth и nHeight игнорируются
nWidth
Ширина каретки в логических единицах
nHeight
Высота каретки в логических единицах

Пример

' Создадим новую каретку
' Создайте на форме два TextBox и PictureBox
Sub Text1_GotFocus()
  Dim foc As Long ' окно, получившее фокус
  Dim himage As Long ' описатель картинки
  Dim retval
  foc = GetFocus()
  himage = Picture1.Picture
' Создаем новую каретку
' (handle, bitmap 0=none, width, height)
  Call CreateCaret(foc, himage, 10, 10)
' Показываем новую каретку
  retval = ShowCaret(foc)
End Sub
Private Sub Text2_GotFocus()
  Dim foc As Long ' окно, получившее фокус
  Dim retval
  foc = GetFocus()
' Создаем новую каретку
    Call CreateCaret(foc, 0, 30, 30)
' Показываем новую каретку
  retval = ShowCaret(foc)
End Sub

Категория

Каретка