VB做电子报时钟(2)

模拟电子钟 带语音报时功能

多丰富的资源，微软真是体贴。下面然我们来以一个实例看看怎样显示时间吧。

(2) 建立实例

程序中所用到的控件的作用和相关属性设置如下表：

控件 属性 值 作用 Form1 Caption 时钟 显示窗体 Label1 Caption 空 显示时间 Label2 Caption 空 显示分钟 Label3 Caption 空 显示秒钟 Label4 Caption 空 显示年份 Label5 Caption 空 显示月份 Label6 Caption 空 显示日期

Label7 Caption 空 显示星期几

Timer1 Interval 1000 每秒钟触发一次事件

下面是代码：

Private Sub Timer1 _ Timer( ) hou = Hour (time) miu = Minute (time) sec = Second (time) yea = Year (Date)

mon = Month (Date) da = Day (Date)

Label1 . Caption = hou & "小时 " Label2 . Caption = miu & "分钟" Label3 . Caption = sec & "秒钟" Label4 . Caption = yea & "年" Label5 . Caption = mon & "月"

Label6 . Caption = da & "日"

Label7 . Caption = "星期" & Weekday (Date) End Sub

下图是运行的结果：

很简单吧！下面我们看看不使用控件，我们用绘图函数自己来画出一个运行着的时钟。

现来补充一些vb提供的绘图方法：