Как перемещать курсор по форме клавишами -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.144.84.155]

Модераторы: SCINER, B.V.

Как перемещать курсор по форме клавишами

D[u]fa

Сообщ. #1 , 30.03.04, 15:46

Master

Рейтинг (т): 112

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As TPoint) As Long

Private Type TPoint

x As Long

y As Long

End Type

Dim PT As TPoint

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Call GetCursorPos(PT)

Select Case KeyCode

Case vbKeyUp: Call SetCursorPos(PT.x, PT.y - 10)

Case vbKeyDown: Call SetCursorPos(PT.x, PT.y + 10)

Case vbKeyLeft: Call SetCursorPos(PT.x - 10, PT.y)

Case vbKeyRight: Call SetCursorPos(PT.x + 10, PT.y)

End Select

End Sub

Сообщение отредактировано: SCINER - 28.03.07, 07:46

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0156 ] [ 16 queries used ] [ Generated: 27.04.24, 20:13 GMT ]