vb实训教程.docVIP

实例1 电子时钟 *实例运行效果及功能说明 本实例主要讲解如何利用定时器控件、直线工具控件、三角函数及时间函数实现电子时钟，要求程序运行后，时钟界面可随窗体大小自动变动，运行界面如下图所示。 电子时钟运行界面 *学习要点说明 定时器控件应用 直线工具控件应用 正弦函数、余弦函数应用 Now()时间函数应用 Hour()、Minute()、Second()时间函数应用 窗体尺寸改变事件 *编程步骤详解 1. 从Windows【开始】菜单中找到“Microsoft Visual Basic 6.0”应用程序打开，会弹出对话框如下图所示，选择“Standard EXE”项，然后单击“打开”按钮，这样就建立了一个新的工程。 2.选择窗体“Form1”，在窗体的属性栏中设置窗体的属性如下：窗体“Form1”的Caption属性设置为“电子时钟”；BackColor属性通过下拉栏中的Palette选项卡选择为“白色”；BorderStyle属性选择为“2-Sizeble”。 3.在通用工具栏中分别选择定时器控件及直线工具控件，添加到窗体中，窗体界面如下图所示。 4.双击窗体【Form1】，添加窗体加载事件代码如下 Private Sub Form_Load() For i = 1 To 14 Load Line1(i) 设置15个元素的控件数