VB做电子报时钟(2)

时间:2025-04-05

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

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

(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提供的绘图方法:

VB做电子报时钟(2).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219