VB6.0中时钟控件详案

vb时钟设计课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的数据类型和函数。

2. 学生掌握使用Visual Basic设计一个简单时钟界面和实现时间显示功能的基本步骤。

3. 学生能够解释时钟程序中涉及的时间概念，如时、分、秒及它们之间的关系。

技能目标：1. 学生能够运用VB语言编写程序，实现实时时间显示功能。

2. 学生能够通过编程实践，培养解决问题的能力和逻辑思维能力。

3. 学生能够对程序进行调试和修改，提高程序优化和故障排查的能力。

情感态度价值观目标：1. 学生通过动手实践，培养对计算机编程的兴趣和热情。

2. 学生在团队协作中，学会相互沟通与协作，培养集体荣誉感。

3. 学生通过编程创作，体会科技改变生活的实际应用，激发创新精神。

分析课程性质、学生特点和教学要求：1. 课程性质：本课程为信息技术课程，结合Visual Basic编程，以实践操作为主。

2. 学生特点：六年级学生具备一定的计算机操作能力和逻辑思维能力，对编程有好奇心。

3. 教学要求：注重培养学生的实际操作能力，激发学生的学习兴趣，提高学生的团队合作意识。

1. 独立编写一个具有基本时间显示功能的VB时钟程序。

2. 在编程过程中，运用所学知识解决实际问题，提高逻辑思维能力。

3. 积极参与团队合作，与同伴共同完成时钟设计任务，提高沟通协作能力。

二、教学内容1. VB编程基础：- 数据类型：整数、字符串、日期时间。

- 控件使用：标签、定时器。

- 常用函数：Time、Timer。

2. 时钟设计原理：- 时间概念：时、分、秒及其进制转换。

- 时钟界面设计：布局、颜色、字体。

3. 编程实现时钟：- 时钟程序结构：初始化、时间更新、界面显示。

- 代码编写：获取系统时间、时间格式化、定时刷新。

4. 教学大纲安排：- 第一课时：回顾VB基础，介绍时钟设计原理。

- 第二课时：学习使用控件，设计时钟界面。

- 第三课时：编写代码实现时间显示功能。

目录摘要 (iii)第1章概述 (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (3)3.1主窗体 (4)Private Sub qiyong_Click() (5)3.2时钟窗体 (6)3.3屏幕保护窗体 (10)第4章结束语 (12)参考文献 (13)摘要Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，从任何标准来说，VB都是世界上使用人数最多的语言。

它是一种面向对象的可视化程序设计语言，提供了集界面设计、编写代码和程序调试等于一体的集成开发环境。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

本文通过动画式时钟的设计与实现，，同时说明了在VB环境下开发应用程序的思路和步骤。

关键词：程序设计；时钟；Visual Basic6.0；界面第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows 系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。

1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。

它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。

第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows 环境下的各类应用程序。

单位鹤岗市职教中心专业计算机应用教师王鹤新课题§4.7 timer时钟控件课型新授课年级三、二目标德育目标：培养独立思考、学习和创新精神，提高学生的信息素养。

知识目标：掌握添加时钟控件的方法及基本属性设置；理解时钟控件Timer 事件代码的意义。

能力目标：初步掌握用时钟控件控制简单动画的方法。

教学重点利用定时器实现简单动画的控制。

教学难点根据不同任务，完成定时器Timer事件的程序编写。

教学方法任务驱动、小组讨论、合作学习、互相评价教学工具多媒体网络教室、相应的课件。

教学过程教学内容双边活动时间组织教学师生问好1ˊ导言展示程序“会飞的蝴蝶”，引起学生兴趣，并引出本节课的任务：完成蝴蝶飞的程序，并设计一个移动字幕程序。

观看课件教师引题2ˊ提问蝴蝶为什么会动？学生讨论1ˊ其实简单的动画无非是使一个图像连续地在屏幕上改变位置而已。

一个复杂的动画除了将一个图像整体移动外，还可以改变图像的形状和尺寸。

VB中实现动画有如下3种方法：①使用MOVE方法移动控件或图片②改变图像的位置和尺寸，达到动画的效果③在不同的位置显示不同的图片不论用何种方法，都可以用计时器定时触发有关动画的事件过程。

用计时器的Interval属性控制图像移动的速度。

教师总结2ˊ教学过程教学内容双边活动时间讲授新课§4.7 timer时钟控件一、分析窗体及程序设计二、知识点介绍时钟控件像其它控件一样可在工具箱中找到。

观看课件教师讲解3ˊ教学过程教学内容双边活动时间讲授新课1、计时器的作用时钟控件是一个不可见控件，也就是说在设计阶段，你能够看到它，但程序运行时它不会在界面上出现，是不可见的，它提供计时功能，通常用计时器设置一些动态效果，命名时前缀为tmr。

2、计时器常用属性⑴Name：名称属性。

用于设置或获得控件的名称，运行时只读。

⑵lInterval：时间间隔。

用于设定两次调用Timer事件的时间间隔。

以毫秒为单位，最大值65535。

vb时钟课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的概念，掌握时钟控件的属性和事件。

2. 学生能描述日期和时间的计算方法，并运用到VB程序中。

3. 学生了解计算机内部时间的表示方法，以及如何通过VB程序进行读取和显示。

技能目标：1. 学生能够独立设计并实现一个具有基本计时功能的VB时钟程序。

2. 学生能够通过调试和修改程序，解决时钟运行中的常见问题。

3. 学生能够运用所学知识，对时钟程序进行优化和拓展，如添加闹钟提醒、倒计时等功能。

情感态度价值观目标：1. 学生在编程实践中，培养解决问题的能力和团队协作精神。

2. 学生通过学习VB时钟编程，提高对计算机编程的兴趣，增强自信心。

3. 学生认识到计算机编程在实际生活中的应用，激发创新意识和实践欲望。

课程性质：本课程为信息技术学科选修课程，以实践操作为主，理论讲解为辅。

学生特点：学生处于初中阶段，对计算机编程有一定的好奇心，但编程基础薄弱。

教学要求：注重实践操作，结合理论讲解，引导学生通过自主学习、合作探讨，完成课程目标。

在教学过程中，关注学生个体差异，因材施教，确保每位学生都能掌握基本的VB时钟编程技能。

二、教学内容1. VB编程环境介绍与基本操作- 熟悉VB集成开发环境- 学会创建和保存VB项目2. 时钟控件的使用- 介绍时钟控件的属性、事件- 学习如何在窗体中添加时钟控件3. 日期和时间的获取与显示- 了解计算机内部时间的表示方法- 学习使用VB函数获取系统时间并显示4. 日期和时间的计算- 掌握日期和时间的加减运算- 学习倒计时和闹钟提醒功能的实现5. VB时钟程序设计实例- 分析实例程序的结构和功能- 学习设计并编写一个简单的VB时钟程序6. 程序调试与优化- 学会使用调试工具查找和修复程序错误- 了解如何提高程序运行效率和稳定性7. 课堂实践与拓展- 学生分组进行实践操作，完成VB时钟程序设计- 鼓励学生发挥创意，对时钟程序进行拓展和优化教学内容安排与进度：第一课时：VB编程环境介绍与基本操作第二课时：时钟控件的使用第三课时：日期和时间的获取与显示第四课时：日期和时间的计算第五课时：VB时钟程序设计实例第六课时：程序调试与优化第七课时：课堂实践与拓展教材章节关联：本教学内容与教材中“VB控件的使用”、“日期时间处理”和“程序调试与优化”等章节密切相关。

VB中时钟控件的几种运用摘要：时钟控件是vb中一个非常重要的常用控件。

它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在vb程序中利用计时器控件与其它控件结合使用产生不同的应用效果。

关键词：timer控件；动态应用；动画设计中图分类号：tp31vb时钟控件（timer）又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。

它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时间就执行一次相同的任务。

另一个是进行某种后台处理。

时钟控件只有一个事件，就是timer 定时器事件。

通过触发timer事件，时钟控件可以有规律地隔一段时间执行一次代码。

时钟控件的关键属性有两个：（1）enabled用于设置timer控件是否响应timer定时器事件。

属性值为true和false。

（2）interval用于返回或设置对timer控件的定时器事件调用周期的时间间隔。

以毫秒为单位，取值范围为0-65535毫秒。

时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。

1 计时器（timer）控件与滚动条（hscrollbar）控件的应用1.1 自动求阶乘设计在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮（如图1）。

相应代码如下dim n， j， i ‘定义n，j，i三个整型变量private sub command1_click（）‘开始按钮事件timer1.enabled = trueend subprivate sub command2_click（）；暂停按钮事件timer1.enabled = falseend subprivate sub timer1_timer（）‘timer事件过程n = hscroll1.valuej = 1for i = 1 to n ‘循环计算n！j = j * inextclslabel1.caption = str（n） + “！=“label2.caption = jif hscroll1.value private sub command3_click（）‘退出按钮endend subprivate sub form_load（）‘窗体初始化label1.left = form1.widthlabel1.caption = “中华人民共和国”label1.fontsize = 30timer1.interval = 100end subprivate sub timer1_timer（）‘timer事件过程label1.left = label1.left - 20if label1.left + label1.width > 0 thenlabel1.left = label1.left - 100elselabel1.left = form1.widthend ifend sub运行结果如图64 计时器（timer）控件与图片框（picturebox）控件和图像框（image）控件的应用。

目录摘要 (iii)第1章概述 (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (3)3.1主窗体 (4)Private Sub qiyong_Click() (5)3.2时钟窗体 (6)3.3屏幕保护窗体 (10)第4章结束语 (12)参考文献 (13)摘要Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，从任何标准来说，VB都是世界上使用人数最多的语言。

它是一种面向对象的可视化程序设计语言，提供了集界面设计、编写代码和程序调试等于一体的集成开发环境。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

本文通过动画式时钟的设计与实现，，同时说明了在VB环境下开发应用程序的思路和步骤。

关键词：程序设计；时钟；Visual Basic6.0；界面第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。

1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。

它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。

第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。

1、打开VB，VB为你添加了一个窗体。

（一般新建的工程都会有一个窗体，不用添加）主要属性为：Caption:钟表controlBox:False width:4800 height:5800 startUpPosition:2-屏幕中心2、再在窗体上放一个图形控件。

Height:2940 left:600 top:375 width:3400 borderwidth:3 shape:3-circleFillstyle:0-Solid fillcolor:选一个你喜欢的颜色。

3、再在窗体上添加三条直线，直线的起点放在图形的图心上。

主要属性如下：（三条线都如下设置）x1:2300 Y1:1845 X2 与Y2可以任意设置，BorderColor:选一个你喜欢的色BorderWidth:34、添加四个标签，分别修改其Caption为“3”、“6”、“9”、“12”，同时修改这四个标签的BackStyle属性为0-Transparent，并且把这四个标签移动到圆的最右，最下，最左，最上四个位置。

5、添加一个文本框。

主要属性为：Left:900 height:555 top:4215 width:3240至此，我们的钟表程序界面设置完成。

如下图7、现在让表的指针动起来。

在窗体上添加一个时间控件。

修改其interval属性为100，注：这个数值的单位是毫秒，单位很小，1000毫秒才等于1秒。

但是在VB中这不足以用来记时，时为程序在运行的时候影响了记时的准确性。

所以，我们要准确的表达时间的话，要用到系统时间，这要做用一个函数，就是NOW（）。

这个函数的返回值就是当前的系统时间。

8、让指针动起来，就是要在时间变化的时候修改指针不在圆心点的坐标。

我们先来分析秒针：我们知道，一周角为360度，表示60秒，那么每一秒需要用6度来表示，那么，当时间走到S秒的时候，秒针走过6*S度也就是：6*S*3.1415926/180弧度（注，一周角为2*3.14159弧度）。

Private Sub Check1_Click()WindowsMediaPlayer1.Controls.pauseEnd SubPrivate Sub Check2_Click()WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Check3_Click()WindowsMediaPlayer1.Controls.stopEnd SubPrivate Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer2.Enabled = TrueTimer2.Interval = 1000End SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp1.jpg") End SubPrivate Sub Timer1_Timer()Static X!, Y!, Z!, a%, b%, c%, q%, w%, E%Const n = 3.141592653Command1.Visible = FalsePicture1.ClsPicture1.Scale (-1000, 1000)-(1000, -1000)Picture1.Circle (0, 0), 900Dim l As DoubleDim r As DoubleFor i = 0 To 60l = (1 - Sin(i / 60 * 2 * 3.1415926)) * 900 - 900r = (1 - Cos(i / 60 * 2 * 3.1415926)) * 900 - 900Picture1.DrawWidth = 3Picture1.PSet (l, r)Picture1.DrawWidth = 4Next iPicture1.PSet (0, 0)Picture1.CurrentX = -100: Picture1.CurrentY = 850Picture1.FontSize = 25Picture1.Print "12"Picture1.CurrentX = -40: Picture1.CurrentY = -690Picture1.Print "6"Picture1.CurrentX = -850: Picture1.CurrentY = 80Picture1.Print "9"Picture1.CurrentX = 700: Picture1.CurrentY = 100Picture1.Print "3"Picture1.FontSize = 18Picture1.CurrentX = 360: Picture1.CurrentY = 740Picture1.Print "1"Picture1.CurrentX = 650: Picture1.CurrentY = 450Picture1.Print "2"Picture1.CurrentX = 630: Picture1.CurrentY = -320Picture1.Print "4"Picture1.CurrentX = 360: Picture1.CurrentY = -600Picture1.Print "5"Picture1.CurrentX = -430: Picture1.CurrentY = 740Picture1.Print "11"Picture1.CurrentX = -750: Picture1.CurrentY = 440Picture1.Print "10"Picture1.CurrentX = -700: Picture1.CurrentY = -360Picture1.Print "8"Picture1.CurrentX = -370: Picture1.CurrentY = -610Picture1.Print "7"Picture1.DrawWidth = 1X = Second(Time) * 2 * n / 60Y = Minute(Time) * 2 * n / 60Z = Hour(Time) * 2 * n / 12Picture1.Line (0, 0)-(800 * Sin(X), 800 * Cos(X))Picture1.Circle (700 * Sin(X), 700 * Cos(X)), 50Picture1.Line (0, 0)-(600 * Sin(Y), 600 * Cos(Y)), QBColor(5)Picture1.Line (0, 0)-(400 * Sin(Z), 400 * Cos(Z)), QBColor(12)h = Year(Now)i = Month(Now)j = Day(Now)k = Hour(Now)l = Minute(Now)m = Second(Now)Label10.Caption = h & "-" & i & "-" & jLabel11.Caption = k & ":" & l & ":" & mu = Weekday(Now)Select Case uCase 1Label8.Caption = "一"Case 2Label8.Caption = "二"Case 3Label8.Caption = "三"Case 4Label8.Caption = "四"Case 5Label8.Caption = "五"Case 6Label8.Caption = "六"Case 7Label8.Caption = "日"End SelectEnd SubPrivate Sub Timer2_Timer()Dim z1, z2, z3, z4, z5, z6, z7, z8, z9, z10%z1 = V al(Text1.Text)z2 = V al(Text2.Text)z3 = V al(Text3.Text)z4 = V al(Text4.Text)z5 = V al(Text5.Text)z6 = V al(Text6.Text)date1 = DateSerial(z1, z2, z3)date2 = DateSerial(Year(Now), Month(Now), Day(Now))z7 = DateDiff("d", date2, date1)time1 = TimeSerial(z4, z5, z6)time2 = TimeSerial(Hour(Now), Minute(Now), Second(Now)) z8 = DateDiff("h", time2, time1)z9 = DateDiff("n", time2, time1) - z8 * 60z10 = DateDiff("s", time2, time1) - z9 * 60 - z8 * 3600If z2 > 12 Or z3 > 31 Or z4 > 23 Or z5 > 59 Or z6 > 59 Then q = MsgBox("输入有误，请重新输入", , "出错")Print qEnd IfIf z10 < 0 Thenz9 = z9 - 1z10 = 60 + z10End IfIf z9 < 0 Thenz8 = z8 - 1z9 = 60 + z9End IfIf z8 < 0 Thenz7 = z7 - 1z8 = 24 + z8End IfLabel14.Caption = z7 & "天" & z8 & "小时" & z9 & "分" & z10 & "秒"If z7 = 0 And z8 = 0 And z9 = 0 And z10 = 0 ThenMsgBox "时间到", , "倒计时"WindowsMediaPlayer1.URL = App.Path & "\music\" & "dd.mp3" Timer2.Enabled = FalseEnd IfEnd SubPrivate Sub tp1_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp6.jpg") End SubPrivate Sub tp2_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp2.jpg") End SubPrivate Sub tp3_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp3.jpg") End SubPrivate Sub tp4_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp4.jpg") End SubPrivate Sub tp5_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp5.jpg") End SubPrivate Sub yy1_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "He's a Pirate.mp3" End SubPrivate Sub yy2_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "apologize.mp3" End SubPrivate Sub yy3_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "Heartbeats.mp3" End Sub。

用VB 6.0制作透明时钟管建军1,靳明霞2(1.安徽理工大学　安徽淮南　232007; 2.淮南工业学校　安徽淮南　232007)摘　要:介绍在V B 6.0中制作透明时钟的编程方法。

关键词:V B 6.0;透明;时钟;图形中图分类号:T P 312V B 文献标识码:B 文章编号:1004373X (2003)0907503To Program of Transparent Clock with VB 6.0GU AN J ia njun 1,JIN Mingx ia 2(1.Anhui Unive rsity of Sc i ence and Tec hnolog y ,Huaina n ,232007,China ; 2.Huainan Industry Schoo l ,Huainan ,232007,China )Abstract :Presents the method of ho w to make the clock into transpa rent.Keywords :V B 6.0;tra nspa rent ;clock ;fig ure收稿日期:20030209 目前在学校教学过程中,越来越多地使用多媒体课件进行教学。

在使用课件进行教学的过程中经常会遇到这样的问题:当用Pow er Point 等软件播放课件时,整个屏幕都被课件的画面所占据,连任务栏也被履盖了,这样显示在任务栏托盘里的时间也被隐藏起来了,这对掌握授课进度很不方便。

如何才能既显示时间,又不影响课件的播放呢?我们看电视节目时,每个电视台都在屏幕的一角显示该电视台的台标或时间,台标是透明显示的,不影响主画面的播放。

受此启发,笔者使用V B 制作了一个透明时钟,解决了上述问题。

1　设计思想由于V B 具有较强的图形处理能力,如果使用API 函数还可以产生特殊的效果。

先在窗体里生成一个时钟,再将窗体设置为透明并使其处于最上层,这样在播放课件时,既显示了时钟,又不会把课件画面覆盖。

学校教学设计表文本框的常见事件：Change:文本框的Text发生改变触发该事件；2、命令按钮命令按钮是Visual Basic中使用最频繁的控件之一，它的常用属性有：Name：窗体的名称属性；Caption:命令按钮的标题属性；Cancel:该属性的值有True和False，设置为true是，按“ESC”键就等价于点击该按钮；Enabled:按钮是否有效，值为True时，表示按钮有效，值为False时表示该按钮无效；Style:按钮的样式。

0表示标准样式，1表示图形样式；Visible:值为True时按钮显示，值为False时按钮在运行时不显示。

最常见的事件有：Click事件：用鼠标单击按钮触发该事件。

程序举例：I.设计界面在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。

图1-1 程序界面II.设置属性设置属性，设置Lable1的Caption为“&User”、Lable2的Caption为“&Password”、Command1的Caption为“确定[&E]”、设置Command2的Caption为“[&S]”、设置Text1和Text2的Text为空，设置Text2的Passwordchar为“*”。

设置属性后的界面如图1-2所示。

图1-2 设置属性后的界面教学资源作业内容教学后记备注课次第 5 次2课时课型周次第8 周授课日期年月日课题界面设计——用户登录教学目标知识目标1、命令按钮、文本框的常用属性及事件；2、认识代码窗口技能目标1、学会代码的添加；素质（情感、态度、价值观、职业核心能力）目标激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。

重点难点代码的添加；教学方法设计项目教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：上节课通过设计“用户登录”窗口，相信对于该程序的界面设计有了一定的了解，本节课希望大家通过阅读教材，将代码添加进去，实现完整的程序。

'申明变量－－－－－－－－－PrivateSubCommand1_Click()Calldialog'调用dialog子程序EndSub－－－－－－－－PrivateSubCommand2_Click()AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟")IfAlarmTime=“"ThenExitSubIfNotIsDate(AlarmTime)ThenMsgBox“你所输入的不是时间格式,请重试!",,“Wrong"ElseAlarmTime=CDate(AlarmTime)EndIf'判断输入的是否可转换成time格式'isdate函数是判断输入的是否可转换成date格式EndSub－－－－－－－－－－－－－－PrivateSubCommand3_Click()Calldeng'调用deng子程序EndSub－－－－－－－－－－－－－－－PrivateSubForm_Click()frmAbout.Show'显示关于对话框EndSub－－－－－－－－－－－－－PrivateSubForm_Load()Command3.Enabled=0AlarmTime=“"'初始化时command3为不可用的EndSub－－－－－－－－－－－－－－－PrivateSubForm_Resize()IfWindowState=1Thenmintimeelsecaption=“小闹钟"EndIf'如果窗口被最小化,则调用mintime程序EndSub－－－－－－－－－－－－－－－PrivateSubmintime()Caption=Format(Time,“longTime")'使用长时间格式来显示时间EndSub－－－－－－－－－－－－－－－PrivateSubTimer1_Timer()IflblTime.Caption<>CStr(Time)ThenlblTime.Caption=TimeEndIf'显示时间每秒钟的变化IfTime>=AlarmTimeThenCalldengEndIf'判断如果现在的时间超过了设定的时间,则调用deng子程序IfWindowState=1ThenIfMinute(CDate(Caption))<>Minute(Time)ThenmintimeEndIfEndIf'最小化时显示时间每分钟的变化EndSub－－－－－－－－－－－－－Subdialog()CommonDialog1.Flags=cdlCFBothCommonDialog1.ShowOpenLabel1.Caption=CommonDialog1.filenameIfLabel1<>“"ThenCommand3.Enabled=－1ElseExitSubEndIf'把打开的文件名给于label1'如果label1不为空时,则command3即可用EndSub－－－－－－－－－－－－－－Subdeng()Dimssss=Shell(Label1.Caption,1)End'启动指定的文件,并且结束小闹钟程序EndSub最后在about对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等。