用VB 编写进度栏时钟 |
|---|
|
| 2004-05-19 范颜斌 |
| |
用 VB 编写时钟，大家应该都会吧！很简单。不过，笔者在某一天突发奇想，自己编写了一个进度栏时钟，程序虽然很简单，但是笔者自认为还是满有创意呢！
程序的思路如下：建立一个窗体Form1，建三个ProgressBar（进度栏）。将其Orientation 属性值都改为1（决定进度条为垂直显示）。再拖入一个 Timer 控件，其Interval 属性设为 1000 毫秒，即 1 秒。意思是两次调用 Timer 控件的 Timer 事件间隔的时间为 1 秒。然后就是将三个 ProgressBar 的“名称”分别设为“秒”、 “分”和“时”，然后使“秒”和“分”的 Max 和 Min 值分别为：60 和0。“时”的 Max 和 Min 值为 24 和 0。最后一步就是在 Timer 控件的 Timer 事件中加入以下代码：
秒.Value = Format$(Now, "ss") '当前的秒数等于"秒"的Value值
分.Value = Minute(Now) '当前的分数等于“分”的Value值
时.Value = Format$(Now, "hh") '当前的小时数等于“时”的Value值
你一定会问为什么“分”的Value值等于Minute(now)呢？这是因为在Format$函数中对“MM”定义有两种。一是表示显示分钟，二是显示月数。你如果用Format$函数就会产生分钟显示的不准确！我就采用Minute(now)来侦测当前分钟数。程序到这里就已经大功告成了（如图）！余下的就是你如何去修饰它了！ProgressBar控件可是有许多外观修饰啊！自己好好去瞧瞧！不好意思今天就到此吧！我要去编程了！下回见！ |
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
