Question

vb怎么每隔一秒自动点击按钮

我的VB程序里有一个Command1按钮 我想用时钟控件每隔一秒自动执行一次command1里的事件，也就是每隔一分钟自动点击command1.还有怎么设置一个按钮去停止这种自动点击事件。求大神给代码。
是每个一秒钟 我打错了

Answer 1

VB可使用Timer控件的Timer事件实现执行按钮的Click事件来实现。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

Timer 事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中，它以千分之一秒为单位指定时间的长度。

实例代码：

Option Explicit
    Dim i As Long
    
Private Sub Command1_Click()
    Me.Cls
    i = i + 1
    Me.Print i
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Command1_Click
End Sub

Answer 2

先在窗体上放两个commandbutton和一个timer控件 代码 如下：

Option Explicit

Private Sub Command1_Click()           '这里是命令按钮1的单击事件
MsgBox ""
End Sub

Private Sub Command2_Click()          '单击命令按钮2将会关闭timer的调用
Timer1.Enabled = False
End Sub

Private Sub Form_Load()               '设置一秒
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()            '每过一秒调用一次命令按钮1的单击事件
Call Command1_Click
End Sub

程序代码win7+vb6.0下运行正常 望采纳

追问

程序里已经有了Command1_Click() 是采集数据的按钮，我想用一个每秒触发一次的时钟控件控制每秒自动点击一次Command1_Click()来实时采集数据。要求时钟控件默认是关闭的，就是我刚开软件的时候不自动点击Command1_Click()。然后建一个Command2_Click()，来开启自动点击事件，建一个Command3_Click()来关闭自点击事件。能用立刻采纳给分。

追答

赞！