[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Определение координат позиции курсора в TextBox (Определение координат позиции курсора в TextBox)
Определение координат позиции курсора в TextBox
ilimДата: Среда, 09.11.2011, 22:33 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim XPos As Long
Dim YPos As Long

XPos = GetTCursX
YPos = GetTCursY
Me.Caption = "X: " & XPos & " Y: " & YPos
End Sub

Public Function GetTCursX() As Long
Dim pt As POINTAPI

GetCaretPos pt
GetTCursX = pt.X
End Function

Public Function GetTCursY() As Long
Dim pt As POINTAPI

GetCaretPos pt
GetTCursY = pt.Y
End Function


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