用VisualBasic编写进度栏时钟_高级编程_网上学园_科技时代

●


上移动梦网赢手机大奖	<A HREF="http://ad.cn.doubleclick.net/jump/tech.sina.com.cn/;abr=!ie;sz=468x60;ord=85756695991387980?" target="_new"><IMG SRC="http://ad.cn.doubleclick.net/ad/tech.sina.com.cn/;abr=!ie;sz=468x60;ord=85756695991387980?" border=0 height="60" width="468"></A>

新浪首页 > 科技时代 > 网上学园 > 高级编程 > 正文

用VisualBasic编写进度栏时钟

http://www.sina.com.cn 2001/08/27 13:51 中国电脑教育报范颜斌

　　用VB编写时钟，大家应该都会吧！很简单。不过，笔者在某一天突发奇想，自己编写了一个进度栏时钟，程序虽然很简单，但是笔者自认为还是满有创意呢！

　　程序的思路如下：建立一个窗体Form1，建三个ProgressBar(进度栏)。将其Orientation属性值都改为1(决定进度条为垂直显示)。再拖入一个Timer控件，其Interval属性设为1000毫秒，即1秒。意思是两次调用Timer控件的Timer事件间隔的时间为1秒。然后就是将三个

ProgressBar的“名称”分别设为“秒”、“分”和“时”，然后使“秒”和“分”的Max和Min值分别为：60和0。“时”的Max和Min值为24和0。最后一步就是在Timer控件的Timer事件中加入以下代码：

　　秒.Value = Format100 100Now, "ss") '当前的秒数等于"秒"的Value值

　　分.Value = Minute(Now) '当前的分数等于“分”的Value值

　　时.Value = Format100 100Now, "hh") '当前的小时数等于“时”的Value值

　　你一定会问为什么“分”的Value值等于Minute(now)呢？这是因为在Format卸浴癕M”定义有两种。一是表示显示分钟，二是显示月数。你如果用Format突岵种酉允镜牟蛔既罚∥揖筒捎肕inute(now)来侦测当前分钟数。程序到这里就已经大功告成了(如图)！余下的就是你如何去修饰它了！ProgressBar控件可是有许多外观修饰啊！自己好好去瞧瞧！不好意思今天就到此吧！我要去编程了！下回见！

【发表评论】【初学者园地】【科技聊天】【关闭窗口】

新闻查询