以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 执行另段窗口中的代码  (http://www.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
--  
添加一个标签，给标签赋值即可