求一个很简单的VB源代码

来源：百度知道 编辑：UC知道 时间：2024/06/26 04:19:18
设定时间，到时间后让本程序执行右击鼠标的命令，代码是多少，怎么做？

倒计时：
Private Sub Form_Load()
Timer1.Interval = (倒计时的时间)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me_MouseDown(Button = 2)
Timer1.Enabled = False
End Sub

设定一个时间（假设为a时b分c秒）：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval=500
End Sub
Private Sub Timer1_Timer()
If Timer<3600*a+60*b+c Then
Me_MouseDown(Button = 2)
Timer1.Enabled = False
End If
End Sub

你是说倒计时还是设定一个时间点？
如果是倒计时的话，就用Timer控件。

'窗体运行时的代码
Private Sub Form_Load()
'设定倒计时时间
Timer1.Interval = 这里改成倒计时的时间
'启动Timer
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'右击鼠标
Me_MouseDown(Button = 2)
'禁用Timer
Timer1.Enabled = False
End Sub

至于设定一个时间，我就不会了。。。