Autoclick

[adamc91115]

1) how do you get something to happen automatically after like 3 minutes ?

2) how do you get a button to be pressed automatically when you start a program ?

Thanks!!!

[mcsd2002]

1. user a timer control to determine when 3 minutes has past (180000 milliseconds)

2. call the click event in form_activate or main

[Megatron]

For #2, use the following code:

Private Sub Command1_Click()
    MsgBox "You pressed the button"
End Sub

Private Sub Form_Load()
    Command1 = True
End Sub

[Megatron]

#1

Private Sub Form_Load()
 
    Me.Show
    
    Dim lStart As Long
    
    lStart = Timer
    '180 sec = 3 min
    Do Until Timer >= lStart + 180: DoEvents: Loop
    MsgBox "3 Min is up!"
    
End Sub

[adamc91115]

ok thx but for the command what would it be frmmain.command1. ???

[adamc91115]

nevermind of thx

[adamc91115]

ok, neither of them worked

i just wanna do the one where a button it pressed once you start a program.


thx again

[Megatron]

Use the code I gave you.

Private Sub Command1_Click()
    MsgBox "You pressed the button"
End Sub

Private Sub Form_Load()
    Command1 = True
End Sub

Just change Command1 to the name of your button.

[joltremari]

Private Sub Form_Activate()
 Command2_Click
End Sub

[Megatron]

The problem with putting it in Activate(), though, is that it will be fired anytime the Form becomes the active form.

[joltremari]

True, very true,

didn't even think of that

Private Sub Form_Load()
 Command2_Click
End Sub