[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Изменение вида каретки (Изменение вида каретки)
Изменение вида каретки
ilimДата: Среда, 09.11.2011, 22:32 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
'Каретки - это та вертикальная палочка, котрая постоянно мигает в любом
'текстовом редакторе, когда вы набираете какой-либо текст.
'Добавьте на форму 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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Изменение вида каретки (Изменение вида каретки)
Страница 1 из 11
Поиск: