在菜单中，做一“一键整理”按钮，调用某一窗口自动执行四段代码，每段代码执行执行过程中均要实现窗口文字的提示，最后执行完成后，此窗口关闭。
怎么实现呢，放到到窗口的哪个事件里？我试过AfterLoad事件，结果窗口打不开就执行了。
此主题相关图片如下：1.png
此主题相关图片如下：2.png
Dim tishi As WinForm.Label = e.Form.Controls("tishi")
Dim axCZKEM1 As New zkemkeeper.CZKEM
Dim sdt As Date = Date.Now
If axCZKEM1.Connect_Net(_kqjip, "4370") Then '测试机器连接是否正常
tishi.Text="考勤数据下载整理中……"
'''''第一段代码。
tishi.Text="考勤数据清除中……"
''''''''第二段代码
tishi.Text="考勤机所属的考勤用户指纹信息及人脸信息匹配整理中……"
'''''第三段代码。
tishi.Text="考勤机所属的学员指纹信息匹配整理中……"
'''''第四段代码。
While Date.Now < sdt.AddSeconds(50)
'Application.DoEvents
tishi.Text="考勤机数据一键整理完毕,3秒钟后自动关毕!"
End While
Forms("考勤设备一键整理").Close
Else
While Date.Now < sdt.AddSeconds(5)
Application.DoEvents
tishi.Text="无可连接的考勤机设备,请进行注册登记后在进行此一键整理!"
End While
Forms("考勤设备一键整理").Close
End If
[此贴子已经被作者于2019/6/3 16:31:37编辑过]
加好友 
发短信
Post By：2019/6/3 16:31:00 [只看该作者]
