Изменение вида каретки

'Каретки - это та вертикальная палочка, котрая постоянно мигает в любом
'текстовом редакторе, когда вы набираете какой-либо текст.
'Добавьте на форму 1 PictureBox и 3 TextBox'а. Загрузите в элемент
'PictureBox bmp-файл. Запустите проект на выполнение, нажимайте
'ТАБУЛЯТОР и смотрите, как меняется вид каретки.

Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
'ByVal hwnd - обозначает хэндл окна, в котором меняется вид каретки
'ByVal hBitmap - обозначет цвет каретки
'ByVal nWidth - ширина каретки
'ByVal nHeight - высота каретки
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetFocus Lib "user32" () As Long

Private Sub Text1_GotFocus()
h& = GetFocus&()
b& = Picture1.Picture
Call CreateCaret(h&, b&, 10, 10)
X& = ShowCaret&(h&)
End Sub

Private Sub Text2_GotFocus()
h& = GetFocus&()
'Измените на ваше усмотрение цифры 15, 15, которые обозначают ширину и высоту каретки
Call CreateCaret(h&, 0, 15, 15)
X& = ShowCaret&(h&)
End Sub

Private Sub Text3_GotFocus()
h = GetFocus()
Call CreateCaret(h, 0, 3, 24)
X = ShowCaret(h)
End Sub

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

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

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