以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  进度条效果  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63104)
--  作者：ljh29206
--  发布时间：2015/1/14 9:08:00
--  进度条效果

Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")
p.Maximum = 86400 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
Dim D As Date = Date.Now
Dim a As Integer
a =  d.Hour * 3600 +  d.Minute*60 +d.Second
p.Value = a

 

目的 ：把进度条 按1天24小时 细分  用来描绘时间进度。

 

请教， 以上的代码 我放在定时器上  每分钟 执行一次啊， 每次都从新描绘。 不好看。。。。

 

有没方法 让他 不重新描绘，而是直接 一点点 叠加上去。
--  作者：Bin
--  发布时间：2015/1/14 9:18:00
--  
p.Maximum = 86400 \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值

这3句去掉
--  作者：ljh29206
--  发布时间：2015/1/14 9:26:00
--  
OK了 谢谢