以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 执行另段窗口中的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139325)

--  作者:sanny
--  发布时间:2019/8/11 11:16:00
--  [求助] 执行另段窗口中的代码
你好,窗口中有两个按钮,按钮1和按钮2 ,在不合并代码的情况下,点击按钮1后,再执行完按钮1的代码后再自动执行按钮2的代码?
--  作者:有点蓝
--  发布时间:2019/8/11 22:01:00
--  
参考:http://www.foxtable.com/webhelp/topics/2309.htm
--  作者:sanny
--  发布时间:2019/8/11 22:44:00
--  

谢谢了,试了一下可行,不过,以下的进度条,在两个代码中都有。 当执行第二个按钮时,又重新计算了,不连贯了。那怎么修正 ? 谢谢。

 

Dim p As WinForm.ProgressBar
Dim d1 As Date = Date.Now
\'Dim pb As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
p = e.Form.Controls("ProgressBar1")
p.Maximum = 1250 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
p.Visible = True

 

代码段1

 

 

代码段2

 

p.Visible = False

msgbox("用时" & (Date.Now - d1).TotalMinutes)

 

 


--  作者:有点蓝
--  发布时间:2019/8/11 22:50:00
--  
使用全局变量传递进度值,
按钮一最后:
vars("v") = 500

第二个按钮从全局变量的值开始设置

--  作者:sanny
--  发布时间:2019/8/12 20:18:00
--  
可以了一致了。 另外我要在进度条下面显示总花了多少时间,如何设置呀。
--  作者:有点蓝
--  发布时间:2019/8/12 20:38:00
--  
添加一个标签,给标签赋值即可