用VB编写时钟，大家应该都会吧！很简单。不过，笔者在某一天突发奇想，自己编写了一个进度栏时钟，程序虽然很简单，但是笔者自认为还是满有创意呢！
程序的思路如下：建立一个窗体Form1，建三个ProgressBar(进度栏)。将其Orientation属性值都改为1(决定进度条为垂直显示)。再拖入一个Timer控件，其Interval属性设为1000毫秒，即1秒。意思是两次调用Timer控件的Timer事件间隔的时间为1秒。然后就是将三个
|
|
秒.Value = Format100 100Now, "ss") '当前的秒数等于"秒"的Value值
分.Value = Minute(Now) '当前的分数等于“分”的Value值
时.Value = Format100 100Now, "hh") '当前的小时数等于“时”的Value值
你一定会问为什么“分”的Value值等于Minute(now)呢？这是因为在Format卸浴癕M”定义有两种。一是表示显示分钟，二是显示月数。你如果用Format突岵种酉允镜牟蛔既罚∥揖筒捎肕inute(now)来侦测当前分钟数。程序到这里就已经大功告成了(如图)！余下的就是你如何去修饰它了！ProgressBar控件可是有许多外观修饰啊！自己好好去瞧瞧！不好意思今天就到此吧！我要去编程了！下回见！
