Visual Basic FAQ

Как изменить внешний вид каретки в TextBox?
На форме должно быть текстовое поле.

Option Explicit
Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Text1_GotFocus()
    Call CreateCaret(Text1.hwnd, 0, 10, 5)

    '==================================================
    'В качестве каретки можно использовать картинку.
    'Картинка вставляется следующим образом:
    'Call CreateCaret(Text1.hwnd, Image1.Picture, 0, 0)
    'Image1 содержит вставляемую картинку
    '==================================================

    Call ShowCaret(Text1.hwnd)
End Sub

Запись опубликована on 09.11.2008 at 18:33 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.