Эмитация нажатия на клавишу.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Эмитация нажатия на клавишу.

Сообщение _Мика_ » 22.11.2003 (Сб) 20:32

Можно конечно с помощью keyb_event но он может "нажимать" только маленькие буквы т.е. [/b]a-z , а нужно чтобы можно была эмитировать нажатия как a-z так и A-Z. КАК ЕТО СДЕЛАТЬ :?: :!:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 22.11.2003 (Сб) 21:19

А что такое большая буква? Это Shift + маленькая буква...

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 23.11.2003 (Вс) 10:57

Ну да :)
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 23.11.2003 (Вс) 16:28


Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Form_Click()
Text1.SetFocus
keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyB, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyC, 0, KEYEVENTF_EXTENDEDKEY, 0
End Sub


Так? =)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList