以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  进度条控件ProgressBar1，如何写代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82497)

--  作者：kolen --  发布时间：2016/3/18 21:19:00 --  进度条控件ProgressBar1，如何写代码 进度条控件ProgressBar1，如何写代码，如果满格是10，时间过去1秒，进度条就涨 1格，10秒后进度条100%完成。这个代码如何写呢？请老师帮助下，谢谢！

--  作者：Hyphen --  发布时间：2016/3/19 9:08:00 --   窗口计时器间隔设为1000，TimerClick事件代码设为： Dim p As WinForm.ProgressBar p = e.Form.Controls("ProgressBar1") If p.Value = 10 Then     e.Form.TimerEnabled = False     Return End If p.Value = p.Value + 1 Application.DoEvents

--  作者：kolen --  发布时间：2016/3/19 20:53:00 --   谢谢老师。