Опять о клаве

[Wolan]

Можно ли поменять реакцию клавы на нажатие на какую-либо кнопку на ней? Грубо: нажал на А, в тексте появилась буква Б. Если можно, подобный простой примерчик для разбора, плиз.

[alibek]

Код: Выделить всё

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case < 32
  Case Asc("A")
    KeyAscii = Asc("B")
  Case Asc("Z")
    KeyAscii = 0
  Case Else
End Select
End Sub

[Wolan]

Огромное спасибо. А как сделать, чтобы это все работало при открытии любого файла в Wordе (не забивая конкретного имени файла в прогу)?

[A.A.Z.]

ИМХО, это надо отлавливать с помощью GetAsyncKeyState и менять с помощью SetKeyboardState, либо делать хук.

[Wolan]

Чо? Это форум вроде для новичков? Будь ласка, напиши коротенький примерчик.

[A.A.Z.]

Ой, тьфу, не SetKeyboardState, а keybd_event!

Чтобы заменить англ. "A" на англ. "B", нужно поставить таймер с интервалом в 1 и вставить этот код:

Код: Выделить всё

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Timer1_Timer()
Select Case GetAsyncKeyState(vbKeyA) 'обязательно Select Case, а не If, потому что If ну о-о-очень медленный, и эффект будет несколько не тот.
Case -32767#
keybd_event vbKeyBack, 0, 0, 0
keybd_event vbKeyBack, 0, 2, 0
keybd_event vbKeyB, 0, 0, 0
keybd_event vbKeyB, 0, 2, 0
End Select
End Sub

Если хочешь изменить еще какую-то букву, то вместо

Код: Выделить всё

GetAsyncKeyState(vbKeyA)

вставляешь любую другую, например,

Код: Выделить всё

GetAsyncKeyState(vbKeyM)

, а на место

Код: Выделить всё

keybd_event vbKeyB, 0, 0, 0
keybd_event vbKeyB, 0, 2, 0

вставляешь, например,

Код: Выделить всё

keybd_event vbKeyN, 0, 0, 0
keybd_event vbKeyN, 0, 2, 0

То, что я сейчас только что написал, заменит "M" на "N".

[MEMBER]

Вопросы:
Именно в Word?
Только на время работы твоей программы?

[Cyrax]

что-то мне подсказывает, что автор вопроса хочет повторить успех программы Crazy Typing (как-то так она называлась)... в общем, кто-то ему насолил и он жаждет мести...

[MEMBER]

Cyrax
Ааа... Ну если так, то это вообще элементарно.