Имитация нажатия кнопки   

Иногда создавая программы в которых присутствовали элементы вычислительных операций, мне приходилось создавать кнопочные панели. Для создания визуального эффекта нажатия той или иной кнопки на форме, при вводе данных с клавиатуры, я использую события KeyDown и KeyUp того текстового поля куда вводится информация.
Делается это так :

В зависимости от условий задачи Вы или устанавливаете  свойствo Text1.TabIndex = 0 (на стадии разработки) или передаете ему фокус Text1.SetFocus .

В процедуру события KeyDown текстового поля вписываем

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

If KeyCode = 97 Then Command1.Default = True

End Sub

а в процедуру события KeyUp

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

If KeyCode = 97 Then Command1.Default = False

End Sub

В текстовом поле Text1.Text начинает печататься вводимая информация, а кнопки на панели указывают какя клавиша была нажата. Пример приведен только для одной клавиши - 1.

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ