ｅ ｎｄ ｉ ｔ ｈ ｉ ｓ ｆ ｏ ｒ ｍ． １ ａ ｂ ｅ ｌ ２ ． ｃ ａ ｐ ｔ ｉ ｏ ｎ ＝ ｈｉ ＋” ： ” ＋ ｍ１ ＋” ： ” ＋ ｓ ｌ
１ ． ３计时器 （ ￣ｍｅ Ｄ事件代码为 ｓ ｅ ｔ ｄ ａ ｔ ｅ ｌ ｏ ｎ ｇ ＆＆设置长 日期格式 ｔ ｈ ｉ ｓ ｆ ｏ ｒ ｍ． １ ａ ｂ ｅ ｌ １ ． ｃ ａ ｐ ｔ ｉ ｏ ｎ ＝ ｄ ｔ ｏ ｅ （ ｄ ａ ｔ ｅ ０ ） ＋ ｓ ｐ ａ ｃ （ ２ ） ＋ ｔ ｉ ｍ ｅ ０＆＆标 签
ｈ ｌ ＝ ＇ ０ ＋ ｓ ｔ ｒ （ ｈ ， １ ）
ｄｓ ｅ
为空 ， 其 内容为显示系统 日期和 时间， 由程序运行 时赋值 ： 标签
２ （ Ｌ ａ ｂ ｅ ｌ ２ ） 的Ｃ ａ ｐ ｔ ｉ ｏ ｎ为“ 欢 迎使用学 生管理系统 ” ， 并设置字 体、
字号、 颜色属性， ２ 】
态计 时程序 。计 时程序表单主要包 括 ２个标签控件 ， Ｌ ａ ｂ ｅ ｌ ｌ的
Ｃ ａ ｐ ｔ ｉ ｏ ｎ属 性 为 “ 计时时间： ” ， Ｌ ａ ｂ ｅ ｌ ２的 Ｃ ａ ｐ ｔ ｉ ｏ ｎ属 性 为“ ｏ ０ ： ｏ ０ ： ０ ０ ” ； ２个 命 令 按 钮 ， 分 别 为“ 计 时开 始 ” 、 “ 计时 结束 ” ， １ 个 计 时 器控件 ， Ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ 属性为 ０ 。主 要事 件 代 码 如 下 ： “ 计 时 开始 ’ ， 命 令 按 钮 的 单 击 事件 代码 ：
的表单程序 ， 探讨表单程序 的设计方法和思路 ， 对Ｖ Ｆ Ｐ程序 开发有 着重要的现 实意义。
【 关键词 】 Ｖ Ｆ Ｐ ； 计时器； 控件
计 时器 （ ￣ｍ ｅ Ｄ是 Ｖ ｉ ｓ ｕ ｖ ａ ｌ Ｆ ｏ ｘ Ｐ ｒ ｏ （ 简称 ｖ Ｆ Ｐ ） 表单 的一个重
ｍ＝ Ｏ
要控 件之一 ， 其功 能是在规 定的 间隔 时间里 （ Ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ 属性） ， 执
ｔ ｈ ｉ ｓ ｆ ｏ ｒ ｍ． ｔ ｉ ｍｅ ｒ ２ ． ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ ＝ １ ０ ０ ０ ＆ ＆设 置间 隔时间 为 １ ０ ０ ０毫秒 ， 执 行ｔ ｉ ｍｅ ｒ 事 件 ｐ ｕ ｂ ｌ ｓ ， ｍ。 ｈ＆ ＆定义 ３个变量， 分别记录小时， 分钟， 秒 ｓ ｔ ｏ ｒ ｅ ０ ｔ ｏ ｓ ， ｍ， ｈ ＆ ＆３个变量的初始值为 ０ “ 计时结束 ’ ， 命令按钮的事件代码： ｔ ｈ ｉ ｓ ｆ ｏ ｒ ｍ． ｔ ｉ ｍ ｅ ｒ ２ ． ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ ＝ ０ ＆＆ 设 置 间 隔 时 间 为 ０秒 ， 即 不 执 行 ｔ ｉ ｍｅ ｒ 事件 ｒ ｅ ｌ ｅ ｓ ， ｍ， ｈ ＆＆从内存 中释放 定义 的 ３个变量 计时器的 Ｔ ｉ ｍｅ ｒ 事件代码 ：
１的标 题 为 当前 日期 和 当 前 时 间 ， 每 间隔 １ 秒 显 示 一 次 １ Ｉ ４制 作动 态 计 时程 序 通 过上述动 态时钟 的制作 ， 将程序稍 做修改 ， 就 能 制 作 动
２制 作 闪 烁 标 签 ２ ． １设 计 思 路
Ｖ Ｆ Ｐ提供 的颜 色 函数 Ｒ Ｇ Ｂ ０， 可 以改变标签控件 的颜色 。
ｅ ｌ ｓ ｅ
合理地将系统 日期和 时间显示在表单中 ， 不仅方便用户 使 用， 同时还 使表单界面不单调 。 将计时器控件 （ Ｔ ｉ ｍ ｅ ｄ的 Ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ 属性设置为 １ ０ ０ ０豪秒 （ 即１ 秒） ， Ｔ ｉ ｍ ｅ ｒ 事件代码 为获取系统 日 期和 时间 ， 并将值 通过标签 控件显示 出来 ， 就能制作 出动态 时 钟表单 。程序代码中要用到 Ｖ Ｆ Ｐ的 日期函数 ｄ ａ ｔ ｅ （ ） 和时间函数 ｔ ｉ ｍ ｅ ０ ， 取 得 当 前系 统 日期 和 系 统 时间 。
ｓ ＝ ｓ ＋ｌ ｉ ｆ ｓ ＞ ５ ９
行某个操作 （ Ｔ ｉ ｍ ｅ ｒ 事件） 。利用计时器这个功 能， 可 以设计出美 观的Ｖ Ｆ Ｐ表单程序界面 ， 让静止 的表单动起来 。 １制作动态 时钟
１ ． １ 设 计 思 路
ｅ ｎ ｄ ｉ ｆ
ｉ ｆ ｓ ＜ｌ Ｏ
ｈ ＝ｈ ＋１ ｅ ｎ ｄ ｉ
ｓ ｌ ＝ ＇ ０ ＂ ＋ ｓ ｔ ｒ （ ｓ ， １ ）
楚… 堡… 一 … 照
ＵＪｌ ＡＮ ｅＯ Ｍ ｐＵＴ酲辩
灵 活 运 用 ＶＦ Ｐ计 时器 控 件
易学文
（ 黄 冈职业技术学院 湖北 黄 冈 ４ ３ ８ ０ ０ ２ ）
【 摘 要】 本文分析在 Ｖ Ｆ Ｐ中灵活运用计 时器控件 Ｔ ｉ ｍ ｅ ｒ 设 计动 态时钟 、 闪烁标 签、 动 态字幕 、 放大缩 小字幕等类 型
１ ． ２设 计 过 程
ｓ ｌ ＝ ｓ ｔ ｒ （ ｓ ， ２ ）
ｅ ｎ ｄ ｉ ｉ ｆｍ＜１ ０
ｍｌ ＝ ＇ ０ ＋ ｓ ｔ ｒ （ ｍ， １ ）
ｅ ｌ ｓ ｅ
ｍｌ ＝ ｓ ｔ ｒ （ ｍ， ２ ）
ｅ ｎ ｄ ｉ ｉ ｆ ｈ ＜１ Ｏ
建立表单文件 Ｆ ｏ ｒ ｍＩ ， 并添加 １个计时器控件 ， ２ 个 标签控 件 。计 时器控件 的 Ｉ ｎ ｅ ｒ ｖ ａ ｌ 值为 １ ０ ０ ０ ； 标签 ｌ （ Ｌ ａ ｂ ｄ１ ） 的Ｃ ａ ｐ ｔ ｉ ｏ ｎ
Ｒ Ｇ Ｂ ０函 数 有 ３个 参 数 ， 分 别是红 、 绿、 蓝对应 的颜色值 ， 每 一
个参数的范围在 ０ － ２ ５ ５之间 。随机 函数 ｒ ａ ｎ ｄ ０ ￣够产 生 ０ － １ 之
间 的随 机 小 数 ， ｒ ｏ ｕ ｎ ｄ （ ｒ ａ ｎ ｄ Ｏ ＊ ２ ５ ５ ， ｏ １ 即产 生 ０ － ２ ５ ５之 间 的 随 机 整