进度条效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 进度条效果

共有2889人关注过本帖树形打印复制链接主题：进度条效果

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

进度条效果

Post By：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小时细分用来描绘时间进度。

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

有没方法让他不重新描绘，而是直接一点点叠加上去。