- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口显示执行进度 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135804)
-- 发布时间：2019/6/3 16:31:00
-- [求助]窗口显示执行进度
在菜单中，做一“一键整理”按钮，调用某一窗口自动执行四段代码，每段代码执行执行过程中均要实现窗口文字的提示，最后执行完成后，此窗口关闭。
怎么实现呢，放到到窗口的哪个事件里？我试过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编辑过]
-- 发布时间：2019/6/3 19:16:00
--
看看
http://www.foxtable.com/webhelp/scr/1476.htm