Question

VB大神在吗？ 实现功能:点击command1后计时10秒后自动点击command2按钮！就是时间

VB大神在吗？ 实现功能:点击command1后计时10秒后自动点击command2按钮！就是时间差10秒，10秒后自动点击command2执行其他功能！我就是需要破个窍！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Dim a As Boolean
Dim b As Integer

Private Sub Command1_Click()
Label1.Caption = "按钮1"
b = 0
a = True
End Sub

Private Sub Command2_Click()
Label1.Caption = "按钮2"
a = False
b = 0
End Sub

Private Sub Timer1_Timer()
If a Then
b = b + 1
If b >= 10 Then
Command2_Click
End If
End If
End Sub

望采纳。。。。

Answer 2

Private Sub Command1_Click()
 timer1.interval=10000
 timer1.enabled=true  
end sub
 
Private Sub Timer1_Timer()
 call  Command2_Click
 timer1.enabled=false
end sub  

Private Sub Command2_Click()
  '需要执行的动作 
end sub

Private Sub Form_load()
 timer1.enabled=false
end sub