Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> Text Box  
     
  Изменение вида каретки  
  Вы знаете, что такое каретка? Это та вертикальная палочка, котрая постоянно мигает в любом текстовом редакторе, когда вы набираете какой-либо текст, и она медленько так передвигается вместе с вашими буковками по экрану. Этот небольшой пример покажает, как изменить вид этой самой каретки.

В изменении вида каретки принимает участие API-функция CreateCaret

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 - высота каретки

Следующий пример покажет различные способы изменения вида каретки

Добавьте на форму 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
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
 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам