高中信息技术 第六章 程序的建立和运行.docVIP

高中信息技术 第六章 程序的建立和运行 教学时间： 授课班级： 教学目标：能够独立的建立一个简单的程序，并会调试它 教学重点、难点：对象的属性的设置，原代码的编写 教学过程： 一、一个简单程序 建立一个完整的VB 应用程序，主要包括以下几个步骤： ① 建立应用程序界面； ② 设置对象的属性； ③ 编写事件处理程序； ④ 程序的运行和调试； ⑤ 保存文件。 下面通过一个简单的实例来说明这一实现过程。 【例6-3-1】我们经常在电影或电视上看到一些字幕的动态变化特技。本例运用VB的定时器控件定时改变标签控件的Caption属性的文字大小，实现文字的动态缩放效果。 建立应用程序界面 VB中的一个应用程序即为一个工程。因此，要建立新的应用程序，也就须建立一个新工程。单击“文件(F)”菜单中“新建工程(N)”命令，弹出一个与图6-8相似的对话框，提示选择应用程序的类型，一般选择“标准EXE”，单击“确定”按钮后出现窗体设计器窗口。一个新工程只包含一个窗体，缺省名为Form1。例共使用了两个控件：标签和定时器。标签控件用来在窗体中显示文字，定时器控件用于实现定时缩放。使用工具箱中的 、在窗体建立好这两个控件，建立好的程序界面如图6-9所示。 设置对象的属性 界面设计好后，必须设置对象的属性。对象的大多数属性可采用缺省值，设置属性的目的是为了使对象更符合应用程序界面的需要。一个窗体对应一个属性窗口，在工程资源管理器窗口中选定窗体Form1，单击“视图(V)”菜单中的“属性窗口(W)”命令，就可打开Form1的属性窗口，如图6-10所示。在Form1窗体上设计的所有控件均存于该窗口的对象框中。 设置属性的方法：在对象框中选择对象，在属性列表中选定某属性，在右列中输入或选定新的属性值。有的属性有预定义的设置值清单，单击设置框右边的向下的箭头，可以显示这个清单。 完成本程序界面需要设置的属性如表6-3。 表6-3 缺省的对象名 设置的对象名 属性 设置值 Form1 frmZoom Caption FrmZoom Label1 lblZoom Caption 空白 ForeColor 红色 Timer1 tmrClock Enabled False Interval 100 编写事件处理程序 属性设置好后，程序仍不能正常工作，还要考虑用哪些事件触发对象完成相应的功能，想让对象响应某个事件时，就把代码写入这个事件的事件过程之中。定时器控件（tmrClock）能有规律地以一定的时间间隔（Interval）触发计时器事件（Timer），本例通过对Timer事件过程进行编码，定时改变标签控件lblZoom的Caption属性的文字大小，来实现文字的动态缩放。 一个窗体对应一个代码编辑器窗口，在工程资源管理器窗口中选定窗体frmZoom，从“视图(V)”菜单选取“代码窗口(C)”命令，就可打开一个如图6-11所示的代码编辑器窗口。代码窗口的左边“对象列表框”列出了该窗体的所有对象，右边的“过程列表框”列出了选定对象的所有事件。在对象列表框中选择一个对象，在过程列表框中选择指定对象的事件，代码框中自动给出事件过程的定义语句，此时，在 Sub 和 End Sub 语句之间输入完成功能的代码。 字幕特技 Dim s As String Dim size As Integer, deltasz As Integer 程序的初始化过程 设置有关变量的初始值 Private Sub Form_Load() tmrClock.Enabled = True lblZoom.Visible = True s = 欢迎使用Visue Basic size = 8: deltasz = 5 End Sub Private Sub tmrClock_Timer() size = size + deltasz If size 50 Then 当文字大小达到最大值时, deltasz = -5 将文字大小缩放量设为负值, End If 来实现动态缩小 If size 8 Then size = 8 deltasz = 5 End If lblZoom.Font.size = size lblZoom.Left = (frmZoom.Width - lblZoom.Width) / 2 lblZoom.Top = (frmZoom.Height - lblZoom.Height) / 2 lblZoom.Caption = s End Sub 从这个简单的程序可以看出： Visual Basic的事件过程由一系列程序行