【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB可视化程序设计实例——小时钟 - 技术总结，希望对大家有所帮助！

VB 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。

    通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。

     图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。

    窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。

    标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。

    计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。

     启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。

     图3.40 “新建工程”对话框 小时钟 时钟窗体控件 在时钟窗体控件中用来显示时间的标签控件 每秒一次把计算机系统时间显示到标签控件中的计时器控件 图3.41 VB可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。

     双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。

    时钟的时、分和秒以后就显示在Label1中。

    拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。

     图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。

    计时器控件以一定的时间周期，调用一个事件。

    计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。

     到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。

    下面，将设置它们的属性。

     工具箱 窗体窗口 属性窗口 窗体布局窗口 工程资源管理器窗口 标签 计时器 图3.45 窗体Form1属性 图3.46 窗体Form1 单击窗体Form1，属性窗口中出现Form1的属性，见图3.45。

    在Caption（标题）属性内，输入“时钟”，Form1的标题栏就显示“时钟”，见图3.46。

     图3.47 控件Label1的属性 图3.48 “字体”对话框 单击控件Label1，属性窗口中出现Label1的属性，见图3.47。

    单击font（字体）属性右侧的省略号，出现字体设置对话框，如图3.48所示，把大小设置为48。

    适当调整控件Label1的位置和大小，见图3.49。

     图3.49 窗体Form1 图3.50 计时器控件的属性 单击计时器控件，属性窗口出现计时器Timer1的属性，见图3.50。

    把Interval（时间间隔）设置为1000，计时器每隔1000毫秒发生一个计时器事件。

     图3.51 程序代码 图3.52 程序代码 双击计时器控件，出现程序代码窗口，对象是计时器控件Timer1，事件为Timer（计时），程序代码的第一行和最后一行由系统自动产生，见图3.51。

    在上下两行之间输入程序代码“Label1.Captiontime”，让Label1控件显示系统时间，如图3.52所示。

    因为计时器每隔1秒发生一个计时器事件，所以本段程序每秒运行一遍，时钟内容每秒刷新一次。

     执行“运行”菜单中的“启动”命令，运行程序。

    执行“运行”菜单中的“结束”命令，结束程序的运行。

    不断调整Label1控件的位置和大小以及窗体Form1的大小，使运行结果达到图3.39所示的效果。

     如果要保存此项工程，可以执行“文件”菜单中的“保存工程”命令。

    如果要生成脱离VB集成环境，单独运行的EXE文件，执行“文件”菜单中的“生成”命令，出现“生成工程”对话框，如图3.53所示。

    在文件名处输入“时钟.exe”，然后单击“确定”按钮。

     图3.53 “生成工程”对话框 属性、方法和事件是Visual Basic程序设计中的三个要素。

    简单说，可以把属性看作是一个对象的性质，把方法看作对象所具有的动作，对象的动作产生事件，事件过程可看作对象的响应。