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
End If
t7.SelectionStart = t7.Text.Length
dt.ScrollToCaret
Application.DoEvents
加好友 
发短信
Post By：2021/7/29 17:28:00 [显示全部帖子]
