1、课题：程序的建立和运行教学时间： 授课班级：教学目标：能够独立的建立一个简单的程序，并会调试它教学重点、难点：对象的属性的设置，原代码的编写教学过程：一、一个简单程序建立一个完整的VB 应用程序，主要包括以下几个步骤： 建立应用程序界面；Ks5U 设置对象的属性； 编写事件处理程序； 程序的运行和调试； 保存文件。下面通过一个简单的实例来说明这一实现过程。【例6-3-1】我们经常在电影或电视上看到一些字幕的动态变化特技。本例运用VB的定时器控件定时改变标签控件的Caption属性的文字大小，实现文字的动态缩放效果。1 建立应用程序界面Ks5U图6-9VB中的一个应用程序即为一个工程。因此，要建
2、立新的应用程序，也就须建立一个新工程。单击“文件(F)”菜单中“新建工程(N)”命令，弹出一个与图6-8相似的对话框，提示选择应用程序的类型，一般选择“标准EXE”，单击“确定”按钮后出现窗体设计器窗口。一个新工程只包含一个窗体，缺省名为Form1。例共使用了两个控件：标签和定时器。标签控件用来在窗体中显示文字，定时器控件用于实现定时缩放。使用工具箱中的 、在窗体建立好这两个控件，建立好的程序界面如图6-9所示。Ks5U对象框排序标签属性列表图6-102 设置对象的属性界面设计好后，必须设置对象的属性。对象的大多数属性可采用缺省值，设置属性的目的是为了使对象更符合应用程序界面的需要。一个窗体对
3、应一个属性窗口，在工程资源管理器窗口中选定窗体Form1，单击“视图(V)”菜单中的“属性窗口(W)”命令，就可打开Form1的属性窗口，如图6-10所示。在Form1窗体上设计的所有控件均存于该窗口的对象框中。设置属性的方法：在对象框中选择对象，在属性列表中选定某属性，在右列中输入或选定新的属性值。有的属性有预定义的设置值清单，单击设置框右边的向下的箭头，可以显示这个清单。完成本程序界面需要设置的属性如表6-3。表6-3缺省的对象名设置的对象名属性设置值Form1frmZoomCaptionFrmZoomLabel1lblZoomCaption空白ForeColor红色Timer1tmrCl
4、ockEnabledFalseInterval1003 编写事件处理程序属性设置好后，程序仍不能正常工作，还要考虑用哪些事件触发对象完成相应的功能，想让对象响应某个事件时，就把代码写入这个事件的事件过程之中。定时器控件（tmrClock）能有规律地以一定的时间间隔（Interval）触发计时器事件（Timer），本例通过对Timer事件过程进行编码，定时改变标签控件lblZoom的Caption属性的文字大小，来实现文字的动态缩放。一个窗体对应一个代码编辑器窗口，在工程资源管理器窗口中选定窗体frmZoom，从“视图(V)”菜单选取“代码窗口(C)”命令，就可打开一个如图6-11所示的代码编辑
5、器窗口。代码窗口的左边“对象列表框”列出了该窗体的所有对象，右边的“过程列表框”列出了选定对象的所有事件。在对象列表框中选择一个对象，在过程列表框中选择指定对象的事件，代码框中自动给出事件过程的定义语句，此时，在 Sub 和 End Sub 语句之间输入完成功能的代码。字幕特技过程列表框图6-11对象列表框代码框Dim s As StringDim size As Integer, deltasz As Integer程序的初始化过程设置有关变量的初始值Private Sub Form_Load() tmrClock.Enabled = True lblZoom.Visible = True
6、s = 欢迎使用Visue Basic size = 8: deltasz = 5End SubPrivate 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
7、 = (frmZoom.Height - lblZoom.Height) / 2 lblZoom.Caption = sEnd Sub从这个简单的程序可以看出： Visual Basic的事件过程由一系列程序行组成，程序行由语句组成。 通常一个程序行只写一个语句，但也可以将两个或多个语句写在同一行，此时，语句间用冒号分隔。 在程序中可以添加一些适当的注释，用以说明程序的目的与功能，注释内容应写在注释符（）后。注释可以和语句在同一行并写在语句的后面，也可单独占据一整行。 采用缩进格式，突出程序的层次结构，避免所有行都从同一列开始，一般情况下，每个层次缩进一个制表位。在输入源程序和调试程序的过程中
8、，常需要对程序作某些修改。Visual Basic提供了功能较强的“文本编辑”功能。Visual Basic的编辑功能与Word的编辑功能非常相似，这里不再详述。一个大型应用程序可包括多个窗体和模块，分别单击“工程（P）”菜单中的“添加窗体（F）”“添加模块（M）”命令，可建立新的窗体和模块。4 运行程序图6-12单击“运行(R)”菜单中“启动(S)”命令，或直接按F5键，运行当前程序， VB标题行上显示“Microsoft Visual Basic运行”，表示进入运行模式。程序运行后，启动frmZoom窗体，自动触发窗体的Load事件，在Load事件的事件过程中，定时器tmrClock控件的
9、Enabled被设置为True，所以，本例的frmZoom窗体启动后，定时器就已开始工作，定时触发Timer事件，运行界面如图6-12所示。若程序运行过程中出错，系统显示出错信息，自动进入“中断”模式，回到代码窗口提示修改代码，修改好后再次运行程序，直到正确为止。实践与探索单击“运行（R）”菜单中“启动（S）”命令或按F5键运行程序，只能看到程序的运行效果，关闭VB系统，程序便无法运行。VB还可将应用程序的源代码编译生成.EXE 可执行文件，关闭系统后，可象任何Windows应用程序那样，双击程序图标就可运行。请你把本例程序编译成可执行文件，说明具体操作步骤？并思考下述问题：生成的可执行文件是
10、否可在任何环境下运行？为什么？如不行，请尝试找出解决办法。5 保存工程在程序编写过程中或运行结束后，应及时将有关文件保存到磁盘上，此便以后需要时调用。选择“文件(F)”菜单上“保存工程(V)”命令，屏幕上依次显示出输入窗体文件、工程文件对话框，在“文件名(N)”框中输入一个合法的文件名，如可把本例中的窗体文件命名不lt6-3-1.frm，工程文件命名为lt6-3-1.vbp。至此，一个完整的VB程序编制完成，如果需要将过去已存盘的工程重新调入内存，可选择“文件(F)”菜单上“打开工程(O)”命令，屏幕上显示出当前目录下的全部工程清单，选定某个工程后，单击“打开(O)”按钮，就可把磁盘上的文件调
11、入内存修改或运行。二、常用控件界面设计是程序设计中的一个很重要的工作，程序是否简便易用，与界面的质量有着很大关系。VB共提供了20个标准控件用于设计界面，每个控件都有一组自己的属性、方法和事件，本节仅介绍使用使用得最多的四个控件。1 基本控件属性每一控件都有自己的属性，改变控件的属性时，控件的行为和外观相应的发生变化。大多数属性可以采用缺省设置，也可以根据程序的需要设置新的属性。不同的控件有许多相同的属性，也有许多不同的属性。下面介绍一些控件的基本属性。(1) Name（名称）属性Name是所创建对象的名称。VB在创建控件时自动提供一个缺省名称，如Form1、Command1等，在属性窗口的“
12、名称”栏设置Name属性。(2) Height、Width、Top、Left属性Height、Width属性决定控件的宽度和高度。Top、Left属性决定控件在窗体中的位置。其中Top表示控件距窗体顶部的距离，Left表示控件距窗体左边的距离。(3) Enabled属性Enabled属性决定控件是否有效，能否对用户的事件作出反应。缺省值为True，控件有效。当设置为False时，控件无效。(4) Visibled属性Visibled属性决定控件是否可见。缺省值为True，运行时可见。设置为False时，运行时隐藏控件，但控件实际存在。(5) Font属性设置控件所显示文字的字体、字型和字号，单
13、击Font属性右侧带有省略号的按钮，可打开一个字体设置对话框。(6) BackColor、ForeColor属性BackColor属性用来设置控件的背景颜色，ForeColor属性用来设置控件的前景颜色，即控件中文字的显示颜色。(7) BorderStyle属性该属性用来设置控件的边框风格。2 命令按钮在VB程序中，使用户与程序交互的最简便的方法是提供一个按钮，无论何时，只要单击按钮，就会调用 Click 事件过程，将代码写入 Click 事件过程，执行想要执行的动作。用 VB提供的命令按钮（CommandButton）控件，来创建自己的“按钮”。(1) 属性除了上述一些控件的共同属性之外，命
14、令按钮还有三个十分重要的属性：Caption属性：用于设置命令按钮上显示的文字，如“确定”“取消”等。Default属性：每个窗体上都可选择一个命令按钮作为缺省的命令按钮，也就是说，不管窗体上的哪个控件有焦点，只要用户按 ENTER 键，就相当于用鼠标器单击该按钮。为了指定一个缺省命令按钮，应将其Default属性设置为True。Cancel属性：Cancel属性用于指定缺省的取消按钮。在把命令按钮的 Cancel 属性设置为 True 后，不管窗体的哪个控件有焦点，按 ESC 键，相当于单击此按钮。(2) 事件对命令按钮来说，最基本、最重要的事件是Click事件，即鼠标单击。单击命令按钮时将
15、触发按钮的 Click 事件并调用已写入 Click 事件过程中的代码。3 标签标签控件（Label）通常用来在窗体中显示一些提示信息和注释。标签控件只能显示静态文本，其中的文字内容只能用属性值设置和修改，不能直接在窗体上编辑。(1) 属性标签控件的几个重要属性为：Caption属性：设置标签控件中显示的文本。Alignment 属性：对齐属性，缺省值为Left Justify （0），Caption中的文本左对齐；设置为Right Justify (1)时，文本右对齐；设置为Center (2)时，文本居中。AutoSize属性：缺省值为False，当输入到 Caption 属性的文本超过控
16、件宽度时，超出部分将被裁剪掉。设置为 True时，控件可水平扩充以适应 Caption 属性内容。(2) 事件标签控件可以响应Click（单击）、Dbclick（双击）Change（改变）等事件。4 文本框文本框(TextBox)的作用是建立一个文本编辑区域，可在该区域输入、编辑、显示一些信息。(1) 属性Text 属性：程序执行时，通过键盘在文本框内输入的信息存放在Text 属性中，初始设置一般为空白，以使文本框不显示任何信息。MaxLength属性：文本框能够输入的文本内容的最大长度。MultLine属性：MultiLine 属性设置为 True，文本框可以输入或显示多行文本，同时具有自动
17、换行功能。ScrollBars 属性：为文本框加滚动条，必须在MultLine属性设置为True时，该属性值才有效。0None：无滚动条1 Horizontal：加水平滚动条2Vertical：加垂直滚动条3Both：同时加水平和垂直滚动条当加入了水平滚动条后，文本框内的自动换行功能自动消失，只有按Enter键才能回车换行。SelStart、SelLength 和 SelText 属性：该属性在设计阶段无效，在程序运行过程中，对文本内容进行选择操作时，用来标识选中的哪部分文本。SelStart：选定的文本的开始位置，第一个字符的位置为0。SelLength：选定的文本长度。SelText ：选
18、定的文本内容。设置了SelStart、SelLength属性后，VB会自动将它们设定的文本送入SelText。这些属性一般用于设置插入点的范围，选择和清除字符串等，并且经常与剪贴板一起使用，完成文本信息的剪切、复制及粘贴功能。(2) 方法文本框最常用的方法是SetFocus，它的作用是把光标移到指定的文本框，以便接收输入数据，此时，我们就称该文本框具有焦点，SetFocus的格式如下：对象.SetFocus(3) 事件Change：在文本框的Text属性即文本的内容发生变化时，触发本事件。LostFocus：当文本框失去焦点时，触发本事件。LostFocus 事件过程主要是用来对更新进行验证和
19、确认。KeyPress：当按下并且释放键盘上的某一个键时，触发焦点所在控件的KeyPress事件，常用于测试击键的有效性或在字符输入时对其进行格式处理。5 定时器定时器控件(Timer)用于有规律地以一定的时间间隔触发定时器事件。在程序运行期间，定时器控件并不显示在屏幕上。Enabled和Interval是定时器控件的两个最基本属性。当Enable设置为True时，定时器开始工作，为False时，定时器停止工作。Interval表示两个定时器事件之间的时间间隔，单位为ms，取值范围为065535。定时器只有一个Timer事件，定时器每隔Interval指定的时间间隔发生一个定时器事件，并执行其
20、中的代码。实践与探索程序设计学习的一个很重要的方法是多阅读与调试现成的程序，VB的联机帮助中提供的大量的示例代码，为学习VB程序设计提供了很好的示范，但只有把这些代码复制到你所建立的工程的代码窗口，才能运行。例如：联机帮助的TextBox文本框的Text属性的帮助示例中有如下代码：Private Sub Text1_Change () Text2.Text = LCase(Text1.Text) 用小写的格式显示文本。 Text3.Text = UCase(Text1.Text) 用大写的格式显示文本。End SubPrivate Sub Command1_Click () 删除文本。 Tex
21、t1.Text = End Sub请问该怎样把这段代码复制到你的代码窗口？代码复制过来后，程序能不能正常运行？如不能，为什么？该如何解决？练 习 请叙述建立一个完整的VB应用程序的过程。 学习本节后，请你谈谈对“Visual Basic”中“Visual”的理解。 每个窗体都有一个属性窗口和代码窗口，在建立VB程序时如何打开这两个窗口？ 编写VB程序代码时，有哪些书写规则？ 分别改变例6-3-1中窗体的Caption属性和Name属性，运行后会出现什么结果，并分析这两个属性的作用有何不同？ 为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？ 要使标签的大小随着Caption属性的值自动缩放，应对该控件的什么属性进行何种设置？ 标签和文本框都可以显示文本，它们之间有什么区别？
