专家坐堂-如何根据预设的间隔时间，来循环运行模拟点击当前按钮，实现对应的功能呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何根据预设的间隔时间,来循环运行模拟点击当前按钮,实现对应的循环功能呢?

代码如下：麻烦老师指导下谢谢！想要实现功能下述红色部分代码怎么修正呢？

Dim t7 As WinForm.TextBox = e.Form.Controls("textbox1")

t7.text=""

Dim dt = t7.BaseControl

Dim c1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")

Dim c2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")

Dim 变量名1 As WinForm.Button = e.Form.Controls("导出AreaConfig")

Dim 变量名2 As WinForm.Button = e.Form.Controls("导出classset")

Dim s1 As WinForm.TextBox = e.Form.Controls("1")

Dim s2 As WinForm.TextBox = e.Form.Controls("2")

If c1.Checked=False And c2.Checked=False Then

MessageBox.Show("请选择需要导出的文本","温馨提示")

Else

If c1.Checked=True Then

If s1.Text<>"" Then \'s1是设定变量名1这个按钮的运行的间隔周期假定设定为10秒

变量名1.PerformClick

t7.Text= t7.Text & vbcrlf & Date.now() & "导出Device记录,已生成数据!"

Else

t7.Text= t7.Text & vbcrlf & Date.now() & "导出Device记录失败,没有设定间隔时间!"

End If

Application.DoEvents

End If

If c2.Checked=True Then

If s2.Text<>"" Then \'s2是设定变量名2这个按钮的运行的间隔周期假定设定为20秒

变量名2.PerformClick

t7.Text= t7.Text & vbcrlf & Date.now() & "导出DeviceStatus记录,已生成数据!"

Else

t7.Text= t7.Text & vbcrlf & Date.now() & "导出DeviceStatus记录失败,没有设定间隔时间!"

End If

Application.DoEvents

End If

t7.SelectionStart = t7.Text.Length

dt.ScrollToCaret

Application.DoEvents