Как сделать, чтобы кнопки сами нажимались? - VB

Формулировка задачи:

Помогите пожалуйста. Я не знаю как сделать чтобы кнопки сами нажимались. Мне надо чтобы нажималась правая кнопка миши (mouse2) и клавиша * она находится справа на клавиатуре. Но нужно так чтобы эти две кнопки нажимались по очереди вот я смотрел пример и не чего не понял как изменить подсебя

Dim i%
Private Sub Timer1_Timer()
Dim o As Control
   i = i + 1
   If i > 10 Then i = 1
   Set o = Me.Controls("Command" & i)
   o.Value = True
End Sub

Решение задачи: «Как сделать, чтобы кнопки сами нажимались?»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim F As Boolean
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "!!"
End If
End Sub
 
Private Sub Часы1_Timer()
 F = Not F
If F Then Call Form_MouseDown(2, 0, 0, 0)
If Not F Then SendKeys "+8"
End Sub
                        

Оцени полезность:

15 голосов , оценка 3.933 из 5

Похожие ответы