|
|
|
новичок
участник
Last Login: 07.03.2000 3:35
Сообщ.: 5,
Visits: 56
|
|
| че то не могу найти ни в хелпе апи, нигде. Помогите если кто знает.
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Есть такая фунция CreateCaret(hwnd, hbmp,nwidth,nheight)
HWND hwnd - handle of owner window
HBITMAP hbmp - handle of bitmap for caret shape
int nwidth - caret width
int nheight - caret height
Чтобы использовать в VB используй это:
------------
Declare Sub CreateCaret Lib "user" (ByVal w%, ByVal x%, ByVal y%, ByVal z%)
Declare Function showcaret% Lib "user" (ByVal x%)
Declare Function getfocus% Lib "user" ()
Sub Text1_GotFocus ()
h% = getfocus%() ' получить хэндл текстбокса
Call createcaret(h%, 0, 3, 24) ' создать новый размер
x% = showcaret%(h%) ' показать курсор
End Sub
------------
Как видно из параметров функции - можно использовать bitmap для изменения формы.
Пока!
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Теперь все описания API-функций, типов и констант можно найти прямо на этом сайте в разделе API declarations
http://vbcode.webhostme.com/ru/catapi.asp
|
|
|
|
|
новичок
участник
Last Login: 07.03.2000 3:35
Сообщ.: 5,
Visits: 56
|
|
| спасибо, че то я не сообразил что курсор кареткой обзывается (caret)!
|
|
|
|
|
новичок
участник
Last Login: 07.03.2000 3:35
Сообщ.: 5,
Visits: 56
|
|
Чтоб это работало в RichTextBox надо эту фунцию постоянно вызывать (RichTextBox_Change), а в TextBox достаточно одного раза вызвать.
А вопрос такой, как подключить вместо стандартной каретки - bitmap, что то не получается у меня loadbitmap может кто подскажет как эта функция работает или пример как в RichTextBox bitmap подключить
|
|
|
|
|
Forum Member
участник
Last Login: 20.09.2006 1:35
Сообщ.: 39,
Visits: 420
|
|
Для битмапа можно сделать так:
Private Sub Text1_GotFocus()
h& = GetFocus&()
sb& = Picture1.Picture
Call CreateCaret(h&, sb&, 1, 5)
sx& = ShowCaret&(h&)
End Sub
|
|
|
|