课题：程序的建立和运行教学时间：授课班级：教学目标：能够独立的建立一个简单的程序，并会调试它教学重点、难点：对象的属性的设置，原代码的编写教学过程：一、一个简单程序建立一个完整的VB应用程序，主要包括以下几个步骤：①建立应用程序界面；②设置对象的属性；③编写事件处理程序；④程序的运行和调试；⑤保存文件。下面通过一个简单的实例来说明这一实现过程。【例6-3-1】我们经常在电影或电视上看到一些字幕的动态变化特技。本例运用VB的定时器控件定时改变标签控件的Caption属性的文字大小，实现文字的动态缩放效果。1．建立应用程序界面VB中的一个应用程序即为一个工程。因此，要建立新的应用程序，也就须建立一个新工程。单击“文件(F)”菜单中“新建工程(N)”命令，弹出一个与图6-8相似的对话框，提示选择应用程序的类型，一般选择“标准EXE”，单击“确定”按钮后出现窗体设计器窗口。一个新工程只包含一个窗体，缺省名为Form1。例共使用了两个控件：标签和定时器。标签控件用来在窗体中显示文字，定时器控件用于实现定时缩放。使用工具箱中的、在窗体建立好这两个控件，建立好的程序界面如图6-9图6-9所示。2．设置对象的属性界面设计好后，必须设置对象的属性。对象的大多数属性可采用缺省值，设置属性的目的是为了使对象更符合应用程序界面的需要。一个窗体对应一个属性窗口，在工程资源管理器窗口中选定窗体Form1，单击“视图(V)”菜单中的“属性窗口(W)”命令，就可打开Form1的属性窗口，如图6-10所示。在Form1窗体上设计的所有控件均存于该窗口的对象框中。设置属性的方法：在对象框中选择对象，在属性列表中选定某属性，在右列中输入或选定新的属性值。有的属性有预定义的设置值清单，单击设置框右边的向下的箭头，可以显示这个清单。完成本程序界面需要设置的属性如表6-3。表6-3缺省的对象名设置的对象名属性设置值Form1frmZoomCaptionFrmZoomLabel1lblZoomCaption空白ForeColor红色Timer1tmrClockEnabledFalseInterval1003．编写事件处理程序属性设置好后，程序仍不能正常工作，还要考虑用哪些事件触发对象完成相应的功能，想让对象响应某个事件时，就把代码写入这个事件的事件过程之中。定时器控件（tmrClock）能有规律地以一定的时间间隔（Interval）触发计时器事件（Timer），本例通过对Timer事件过程进行编码，定时改变标签控件lblZoom的Caption属性的文字大小，来实现文字的动态缩放。一个窗体对应一个代码编辑器窗口，在工程资源管理器窗口中选定窗体frmZoom，从“视图(V)”菜单选取“代码窗口(C)”命令，就可打开一个如图6-11所示的代码编辑器窗口。代码窗口的左边“对象列表框”列出了该窗体的所有对象，右边的“过程列表框”列出了选定对象的所有事件。对象框排序标签属性列表图6-10在对象列表框中选择一个对象，在过程列表框中选择指定对象的事件，代码框中自动给出事件过程的定义语句，此时，在Sub和EndSub语句之间输入完成功能的代码。'字幕特技DimsAsStringDimsizeAsInteger,deltaszAsInteger'程序的初始化过程'设置有关变量的初始值PrivateSubForm_Load()tmrClock.Enabled=TruelblZoom.Visible=Trues="欢迎使用VisueBasic"size=8:deltasz=5EndSubPrivateSubtmrClock_Timer()size=size+deltaszIfsize>50Then'当文字大小达到最大值时,deltasz=-5'将文字大小缩放量设为负值,过程列表框图6-11对象列表框代码框EndIf'来实现动态缩小Ifsize<8Thensize=8deltasz=5EndIflblZoom.Font.size=sizelblZoom.Left=(frmZoom.Width-lblZoom.Width)/2lblZoom.Top=(frmZoom.Height-lblZoom.Height)/2lblZoom.Caption=sEndSub从这个简单的程序可以看出：①VisualBasic的事件过程由一系列程序行组成，程序行由语句组成。②通常一个程序行只写一个语句，但也可以将两个或多个语句写在同一行，此时，语句间用冒号分隔。③在程序中可以添加一些适当的注释，用以说明程序的目的与功能，注释内容应写在注释符（'）后。注释可以和语句在同一行并写在语句的后面，也可单独占据一整行。④采用缩进格式，突出程序的层次结构，避免所有行都从同一列开始，一般情况下，每个...
