Архив форумов ЦИТФорума

[Aleksey_Pet]

1) Где можно найти ASCII-код - кнопок клавиатуры ???

Нужно описать нажатие кнопки, которое будет реагировать на
определенную клавишу....
Пример : Private Sub Command1_KeyPress(KeyAscii As Integer)


2) Как сделать, чтобы кнопка имела несколько состояний:
- нажатие один раз (происходит одно событие)
- нажатие второй раз (происходит другое событие) и
дальше повторяется...

[Aist++]

Значит так, пишешь прогу, которая выводит код клавиши на твоё окошко. Например:

Private Sub Command1_KeyPress(KeyAscii As Integer)
Label1.Caption = Label1.Caption & KeyAscii & Chr(13)
End Sub

Теперь запускай, нажимай на клаву и смотри, напишет

2) Заведи переменную в которой будешь отслеживать количество нажатий на кнопку:
Нажали первый раз - сделай её равной 1.
Второй раз - равной 2 и т.д.

[anonymous]

для 2) лучше менять состояние кнопки нажата/отжата, по нему же обрабатывать события

[Aist++]

Не согласен!!!!!!! И ещё !!!!!!!!!!!!!!!!!!!
Проблема состоит, как я понял, в том, что бы при первом нажатии происходило одно, а при повторном другое! А не так чобы при нажатии одно, а при отпускании клавы - другое!

[Aleksey_Pet]

Да проблема в этом !!!

[Valera]

inc(var);

case var of
1:exec1;
2:exec2;
end;

ну и сброс переменной в 0.

[Aist++]

Так я уже написал как решить её!
См. мой ответ от 21-07-2003 16:09

[V!s0r]

'file.vbs source start
msgbox ascii("b")
'end

))