Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Почему не работает данных код

Автор: MozgZombi 12.11.2011, 18:17

Код Private Sub Timer1_Timer() 'F1 If (GetKeyState(vbKeyControl) = -127 Or GetKeyState(vbKeyControl) = -128) And (GetKeyState(vbKeyF1) = -127 Or GetKeyState(vbKeyF1) = -128) Then SendKeys "sdfgdfg" End If

Автор: Akina 12.11.2011, 21:36

Разумнее ОДИН РАЗ вызвать функцию получения состояния клавиши, сохранить её в переменной, и с сохранённым значением работать.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)