窗体定时器任务中，怎么实现运行状态循环显示在文本框中呢？让显示效果很和谐地递增刷新显示
当前效果是整体刷新显示 不大友好
此主题相关图片如下：14.gif
代码如下：
Dim ct As WinForm.Form = Forms("主窗体")
Dim m As WinForm.TextBox = e.Form.Controls("多少秒")
ct.TimerEnabled=True
ct.TimerInterval= m.Text * 1000
Dim t7 As WinForm.TextBox = e.Form.Controls("textbox1")
t7.text=""
Dim dt = t7.BaseControl
Dim 变量名1 As WinForm.Button = e.Form.Controls("导出AreaConfig")
Dim 变量名2 As WinForm.Button = e.Form.Controls("导出classset")
Dim 变量名3 As WinForm.Button = e.Form.Controls("导出dayrunrecord")
Dim 变量名4 As WinForm.Button = e.Form.Controls("导出Department")
Dim 变量名5 As WinForm.Button = e.Form.Controls("导出Device")
Dim 变量名6 As WinForm.Button = e.Form.Controls("导出DeviceStatus")
Dim 变量名7 As WinForm.Button = e.Form.Controls("导出JobPosition")
Dim 变量名8 As WinForm.Button = e.Form.Controls("导出protitle")
Dim 变量名9 As WinForm.Button = e.Form.Controls("导出realdata")
'Dim 变量名10 As WinForm.Button = e.Form.Controls("导出staff")
Dim 变量名11 As WinForm.Button = e.Form.Controls("导出staff1")
Dim 变量名12 As WinForm.Button = e.Form.Controls("导出typeofwork")
变量名1.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出AreaConfig记录,已生成数据!"
变量名2.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出classset记录,已生成数据!"
变量名3.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出dayrunrecord记录,已生成数据!"
变量名4.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出Department记录,已生成数据!"
变量名5.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出Device记录,已生成数据!"
变量名6.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出DeviceStatus记录,已生成数据!"
变量名7.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出JobPosition记录,已生成数据!"
变量名8.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出protitle记录,已生成数据!"
变量名9.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出realdata记录,已生成数据!"
'变量名10.PerformClick
't7.Text= t7.Text & vbcrlf & Date.now() & "导出staff记录,已生成数据!"
变量名11.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出staff1记录,已生成数据!"
变量名12.PerformClick
t7.Text= t7.Text & vbcrlf & Date.now() & "导出typeofwork记录,已生成数据!"
t7.SelectionStart = t7.Text.Length
dt.ScrollToCaret
Application.DoEvents
[此贴子已经被作者于2021/7/12 13:25:01编辑过]
加好友 
发短信
Post By：2021/7/12 12:21:00 [只看该作者]
