可视化程序设计ch12a

1、1visual basic 6.0上海工程技术大学计算中心21.介绍：介绍： 计算中心计算中心 汤老师汤老师 办公室：办公室： 工程实训中心工程实训中心14132.教材：教材： 可视化程序设计基础教程可视化程序设计基础教程 可视化程序设计基础实践教程可视化程序设计基础实践教程 visual basic33.上课方法及要求上课方法及要求: 1）采用课件）采用课件(power point) 2）程序设计课程的理论性较强，由）程序设计课程的理论性较强，由浅入深，循序渐进。希望同学从课程的浅入深，循序渐进。希望同学从课程的一开始就认真学习，若想考前临时突击一开始就认真学习，若想考前临时突击是不行的。历

2、届的有些学生，一开始不是不行的。历届的有些学生，一开始不认真听课，做作业、实验；到期中考试认真听课，做作业、实验；到期中考试以后，想听，想认真学，都很困难了。以后，想听，想认真学，都很困难了。 43）本课程是理论性和实践性都很强的课程，）本课程是理论性和实践性都很强的课程，共安排共安排14个实验，实验也是考核的方法之个实验，实验也是考核的方法之一。每次实验前，要求学生预习实验指导一。每次实验前，要求学生预习实验指导的范例，编好程序；实验课时，上机调试，的范例，编好程序；实验课时，上机调试，大部分实验，要求完成实验报告。大部分实验，要求完成实验报告。4）认真独立地完成作业、实验、实验报告。）认真

3、独立地完成作业、实验、实验报告。54.上课时间、教室：上课时间、教室： 周周二二 (1，2) c310 415091,415092 上机实验地点：上机实验地点： 周周四四（7，8）实训楼）实训楼1455（实验室（实验室3） 415091,4150926 上课时间、教室：上课时间、教室： 周周二二 (3，4) d202 412091，412092 上机实验地点：上机实验地点： 周周四四 （3，4）实训楼）实训楼1455（实验室（实验室3） 412091，41209275.考核方法：考核方法： 作业实验（包括实验报告）期中考试作业实验（包括实验报告）期中考试 出勤出勤 40 期末考试期末考试 60

4、% 注意：注意：1）实验课不能玩电脑游戏，若发现，一次扣）实验课不能玩电脑游戏，若发现，一次扣5分。分。2）旷课一次，扣）旷课一次，扣3分；上课迟到一次，扣分；上课迟到一次，扣1分。分。86.参考书籍：参考书籍： 1)visual basic程序设计程序设计 主编：刘燕主编：刘燕 东南大学出版社东南大学出版社 中国水利水电出版社中国水利水电出版社 上海交通大学出版社上海交通大学出版社 2) visual basic程序设计教程程序设计教程 龚沛曾等编龚沛曾等编 高等教育出版社高等教育出版社9 可视可视化程序设计基础教程化程序设计基础教程 第第1 1 章章 概述概述 第第2 2 章章 基本控件基

5、本控件 第第3 3 章章 程序设计基础程序设计基础 第第4 4 章章 应用程序设计界面设计应用程序设计界面设计 第第5 5 章章 事件与方法事件与方法 第第6 6 章章 图形和图像图形和图像 第第7 7 章章 数据库应用数据库应用 第第8 8 章章 多媒体应用多媒体应用 第第9 9 章章 文件系统文件系统 第第10 10 章章 active x active x 控件控件 第第11 11 章章 应用实例应用实例10第第1章章 visual basic 程序设计概述程序设计概述1.0 visual basic的发展的发展1.1 visual basic的功能特点的功能特点1.2 visual b

6、asic的集成开发环境的集成开发环境1.3 建立简单的建立简单的vb应用程序应用程序1.4二个简单的二个简单的visual basic 程序实例程序实例111.0 visual basic的发展的发展 basic语言是语言是20世纪世纪60年代美国年代美国dartmouth学院的学院的两位教授设计的程序设计语言，它简单易学、人机对两位教授设计的程序设计语言，它简单易学、人机对话方便、程序运行调试简便，因此，很快得到广泛的话方便、程序运行调试简便，因此，很快得到广泛的应用。应用。20世纪世纪80年代，随着结构化程序设计的需要，年代，随着结构化程序设计的需要，出现了新版本的出现了新版本的basic

7、语言，它们增加了新的数据类语言，它们增加了新的数据类型和程序控制结构，其中较有影响的有型和程序控制结构，其中较有影响的有true basic、quick basic等。等。 12windows操作系统的出现，为操作系统的出现，为pc用户提供了一个直观的、用户提供了一个直观的、图形丰富的工作平台。图形用户界面（图形丰富的工作平台。图形用户界面（gui）使应用）使应用程序更易于学习和使用。但对于程序员来说，其工作程序更易于学习和使用。但对于程序员来说，其工作难度反而增大了，因为为了编写在难度反而增大了，因为为了编写在windows环境下运环境下运行的程序，必须建立相应的窗口、菜单、对话框等构行的程

8、序，必须建立相应的窗口、菜单、对话框等构件。件。 1991年年microsoft公司推出的公司推出的visual basic是以结构是以结构化化basic语言为基础，以事件驱动为运行机制。它还提语言为基础，以事件驱动为运行机制。它还提供一套可视化程序设计工具，便于程序员建立图形对供一套可视化程序设计工具，便于程序员建立图形对象，巧妙地把象，巧妙地把windows编程的复杂性编程的复杂性“封装封装”起来。起来。2005年，年，visual studio 2005 ,包括包括.net等。等。 本书介绍的是本书介绍的是visual basic 6.0。131.1 visual basic的功能特点的

9、功能特点1.面向对象的程序设计方法面向对象的程序设计方法 vb把要求操作的数据和处理这些数据的函数（过把要求操作的数据和处理这些数据的函数（过程）封装在一起构成一个程）封装在一起构成一个“对象对象”。只有对象中的函。只有对象中的函数可以改变其中的数据。数可以改变其中的数据。 2.程序界面的可视化设计程序界面的可视化设计 v b系统提供了大量可视化的工具系统提供了大量可视化的工具“控件控件”，利，利用它们可以在窗体上直观方便地设计出图形界面中的用它们可以在窗体上直观方便地设计出图形界面中的各个对象。各个对象。 143.事件驱动的程序设计机制事件驱动的程序设计机制 传统的面向过程的应用程序是按事先

10、设计的流程传统的面向过程的应用程序是按事先设计的流程运行的。运行的。windows应用程序的运行是通过事件来应用程序的运行是通过事件来“驱驱动动”的，每一个事件均能驱动一段程序代码，在的，每一个事件均能驱动一段程序代码，在visual basic中这一段程序通常称为中这一段程序通常称为“事件过程事件过程”。 4.提供应用程序集成开发环境提供应用程序集成开发环境 程序员可设计程序界面、编写代码、调试程序和把程序员可设计程序界面、编写代码、调试程序和把应用程序编译成可执行程序等应用程序编译成可执行程序等15例：创建一个例：创建一个“标准标准exe”类型的应用程序类型的应用程序sy01-01。要求单

11、击命令按钮。要求单击命令按钮1，在窗口的文本框中显示，在窗口的文本框中显示变量变量a的值，单击命令按钮的值，单击命令按钮2，结束程序。，结束程序。16private sub command1_click()事事件过程件过程 dim a% 变量定义变量定义 a = 100 变量赋值变量赋值 text1.text = str(a)end subprivate sub command2_click() end 结束程序结束程序end sub175.结构化的程序设计语言结构化的程序设计语言6.强大的数据库操纵功能强大的数据库操纵功能 利用数据控件可以访问数据库系统。利用数据控件可以访问数据库系统。7.

12、active 控件控件 程序员根据需要，将程序员根据需要，将active控件添加到标准控件的工具控件添加到标准控件的工具箱中，然后我们就象使用标准控件那样使用这些箱中，然后我们就象使用标准控件那样使用这些activex控件。利用控件。利用activex控件可以提高应用程序的开发能力并控件可以提高应用程序的开发能力并简化应用程序的开发过程。简化应用程序的开发过程。8.完备的完备的help联机帮助系统联机帮助系统181.2 visual basic的集成开发环境的集成开发环境 1.2.1 vb的启动的启动 在进入在进入windows操作系统后，操作系统后，单击单击开始开始按钮，按钮， 选选择择“程

13、序程序”菜单，菜单，打开打开“microsoft visual basic 6.0中中文版文版”子菜单中的子菜单中的“microsoft visual basic 6.0中文版中文版”程序，就可以启动程序，就可以启动vb6.0。 进入进入vb后，在新建工程窗口中，列出后，在新建工程窗口中，列出vb能建立应用程能建立应用程序的类型，序的类型，选择默认的标准选择默认的标准.exe。3个选页：个选页：新建新建：建立：建立新工程；新工程；现存现存：选择和打开现有的工程；：选择和打开现有的工程；最新最新：列出最：列出最近使用过的工程。近使用过的工程。l 1920l1.2.2 集成开发环境集成开发环境 (

14、p4)工具箱工具箱窗体窗体工程窗口工程窗口属性窗口属性窗口立即窗口立即窗口211.主窗口主窗口(p4p7) 应用程序窗口应用程序窗口,由标题栏、菜单栏和工具栏组成由标题栏、菜单栏和工具栏组成2.窗体窗体(form)窗口窗口 设计设计vb程序的界面程序的界面3. 工具箱工具箱(toolbox)窗口窗口 显示各种控件的制作工具显示各种控件的制作工具,供用户在窗体上设计供用户在窗体上设计4.工程资源管理器工程资源管理器(project explorer)窗口窗口 保存一个应用程序所有的文件保存一个应用程序所有的文件,工程文件的扩展名为工程文件的扩展名为.vbp5.属性属性(properties)窗口

15、窗口 所有窗体或控件的属性设置所有窗体或控件的属性设置6.代码代码(code)窗口窗口 进行程序设计的窗口，可显示和编辑程序代码。进行程序设计的窗口，可显示和编辑程序代码。 打开代码窗口方法：鼠标双击一个控件或窗体本身。打开代码窗口方法：鼠标双击一个控件或窗体本身。221.2.3 vb的几个基本概念的几个基本概念 （p7) 1.类类 类是创建对象实例的模板类是创建对象实例的模板, 包含了创建对象的属性描包含了创建对象的属性描述和行为特征的定义。工具箱上的述和行为特征的定义。工具箱上的“textbox”是类，它是类，它确定了确定了textbox的属性、方法和事件。的属性、方法和事件。 2.对象对

16、象 是类的一个实例是类的一个实例,继承了类的属性、方法。继承了类的属性、方法。 vb中常用中常用的对象有的对象有:窗体、控件等。例：窗体上有两个窗体、控件等。例：窗体上有两个text对象，对象，是类的实例化，它们继承了是类的实例化，它们继承了textbox的特征，也可以根的特征，也可以根据需要修改各自的属性。据需要修改各自的属性。 233.对象的建立和命名（对象的建立和命名（建立的控件有缺省的名字）建立的控件有缺省的名字） 利用工具箱在窗体上建立控件（按钮，文本框）。利用工具箱在窗体上建立控件（按钮，文本框）。 建立的控件对象都有默认名字建立的控件对象都有默认名字(form1,text1等），

17、程等），程序员也可以在属性窗口通过设置其序员也可以在属性窗口通过设置其name属性给控件对属性给控件对象重新命名。象重新命名。 4.对象的三要素对象的三要素 （1）属性）属性 ： 对象的性质，即用来描述和反映对象对象的性质，即用来描述和反映对象特征的参数。特征的参数。 （2）方法）方法 ： 对象的行为，即将一些通用的过程编对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。写好并封装起来，作为方法供用户直接调用。 24（3）事件）事件 响应对象的动作称为响应对象的动作称为事件事件，它发生在用户与应，它发生在用户与应用程序交互时。单击控件、鼠标移动、键盘按下用程序交互时。单击

18、控件、鼠标移动、键盘按下等。等。事件过程事件过程: 指附在该对象上的用户编写的程序代码指附在该对象上的用户编写的程序代码,是是事件的处理程序。事件的处理程序。事件驱动程序设计事件驱动程序设计: 程序执行后，系统等待某个事件程序执行后，系统等待某个事件的发生，然后去执行处理此事件的事件过程，而的发生，然后去执行处理此事件的事件过程，而后系统又处于等待某事件发生的状态，这就是事后系统又处于等待某事件发生的状态，这就是事件驱动程序设计方式。件驱动程序设计方式。 25(4). vb程序的执行步骤如下：程序的执行步骤如下：（1）启动应用程序，装载和显示窗体；）启动应用程序，装载和显示窗体；（2）窗体（或

19、窗体上的控件）等待事件的发生；）窗体（或窗体上的控件）等待事件的发生；（3）事件发生时，执行对应的事件过程；）事件发生时，执行对应的事件过程；（4）重复执行步骤（）重复执行步骤（2）和（）和（3） ；（5) 直到遇到直到遇到“end”结束语句结束程序的运行；结束语句结束程序的运行； 或按或按“结束结束”强行停止程序的运行。强行停止程序的运行。265对象的方法对象的方法 对象的对象的“方法方法”指的是系统为该对象提供的一些特指的是系统为该对象提供的一些特定的子程序定的子程序，利用这些子程序来实现对象的一些特定利用这些子程序来实现对象的一些特定的动作。应用程序可以通过调用对象的方法来控制对的动作。

20、应用程序可以通过调用对象的方法来控制对象的工作。应指出的是，在象的工作。应指出的是，在visual basic系统中，不系统中，不同的对象拥有不同的方法。对象方法的调用格式是：同的对象拥有不同的方法。对象方法的调用格式是： 对象名对象名.方法名方法名 参数参数 在在visual basic系统中，对象方法的调用可以作为一个系统中，对象方法的调用可以作为一个单独语句出现。例如，窗体对象拥有单独语句出现。例如，窗体对象拥有hide、show、print方法，它们分别用来隐藏和显示窗体、在对象方法，它们分别用来隐藏和显示窗体、在对象上显示文本文字和表达式的值。上显示文本文字和表达式的值。27语句：语

21、句： form1.hide可以将窗体对象可以将窗体对象form1隐藏起来。而语句：隐藏起来。而语句： form1.show使窗体对象使窗体对象form1成为可见。成为可见。 form1.print a,b,c 显示变量显示变量a,b,c的内容的内容若省略对象名若省略对象名form1，在当前窗体上输出，在当前窗体上输出运算结果运算结果286.工程 用用visual basic开发应用程序，首先要创建一开发应用程序，首先要创建一个工程。工程就是用于建立应用程序的所有文件的集个工程。工程就是用于建立应用程序的所有文件的集合，在开发应用程序的过程中还要使用工程管理器来合，在开发应用程序的过程中还要使用

22、工程管理器来管理这些文件。一个应用程序通常只有一个工程，一管理这些文件。一个应用程序通常只有一个工程，一个大型的应用程序可能有多个工程。个大型的应用程序可能有多个工程。 工程中主要包含下列类型的文件：工程中主要包含下列类型的文件： 工程文件（工程文件（.vbp），用来记录工程中的所有部件。，用来记录工程中的所有部件。每当保存工程时，每当保存工程时，visual basic都要更新工程文件。都要更新工程文件。 窗体文件（窗体文件（.frm），每一个窗体有一个对应的窗体，每一个窗体有一个对应的窗体文件。文件。29二进制数据文件（二进制数据文件（.frx），它与每个包含二进制，它与每个包含二进制属性

23、的属性的.frm文件相对应，该文件不能编辑。文件相对应，该文件不能编辑。类模块文件（类模块文件（.cls），工程中可以包含多个类模，工程中可以包含多个类模块文件。块文件。标准模块文件（标准模块文件（.bas），存储所有模块级变量和，存储所有模块级变量和用户自定义通用过程（指可以被应用程序各处用户自定义通用过程（指可以被应用程序各处调用的过程）。调用的过程）。activex控件文件（控件文件（.ocx）， 包含包含activex控件控件的二进制文件。的二进制文件。资源文件（资源文件（.res），一个工程最多包含一个资源，一个工程最多包含一个资源文件。文件。 301.3 vb应用程序的建立应用程序

24、的建立 （p9)1.建立用户界面对象建立用户界面对象 文件文件/ /新建工程新建工程/ /新建选页新建选页/ /选择选择“标准标准exe”/exe”/打开打开/ /新新建一个工程，在新窗体上进行用户界面的设计。建一个工程，在新窗体上进行用户界面的设计。2.对象属性的设置对象属性的设置 单击控件对象单击控件对象/出现出现“属性窗口属性窗口”/在该窗口中选择或输在该窗口中选择或输入属性值。入属性值。313.对象事件过程及编程对象事件过程及编程 在在form窗口双击控件对象窗口双击控件对象 or 右击窗体右击窗体/查看代码查看代码/打开打开“代码窗口代码窗口” （p13) 代码窗口的左边代码窗口的左

25、边“对象列表框对象列表框”列出了该窗体的所有对列出了该窗体的所有对象控件象控件（包括窗体），（包括窗体），右边的右边的“过程列表框过程列表框”列出了对列出了对象相关的所有事件。象相关的所有事件。 （1）单击对象列表框右边的下拉按钮，选择对象控件。）单击对象列表框右边的下拉按钮，选择对象控件。 （2）单击过程列表框右边的箭头，列出与该对象控件相）单击过程列表框右边的箭头，列出与该对象控件相关的所有事件，选择所需的事件。关的所有事件，选择所需的事件。324.保存和运行程序保存和运行程序(p14)1）保存工程）保存工程（1）选择）选择“文件文件”/form1另存为（窗体文件）另存为（窗体文件）/“文

26、件文件另存为另存为”对话框对话框 /输入文件名（扩展名自动添输入文件名（扩展名自动添加，加，.frm）文件夹可选择。（例：文件夹可选择。（例：c:vbsy,事先创建）事先创建）（2）选择）选择“文件文件”/工程另存为（工程文件）工程另存为（工程文件）/“工程另工程另存为存为”对话框、对话框、/输入文件名（输入文件名（.vbp),操作同上。操作同上。 若要再次修改或运行该文件，文件若要再次修改或运行该文件，文件/打开工程打开工程/选择选择要打开的要打开的“工程文件名工程文件名”/将磁盘上的将磁盘上的vb文件调入内文件调入内存。存。332）程序运行）程序运行 （1）编译运行模式）编译运行模式 文件

27、菜单文件菜单/生成生成exe/将程序代码将程序代码机器代码机器代码保存在保存在.exe文件文件 （2）解释运行模式）解释运行模式 运行菜单运行菜单/启动启动/系统读取事件工程代码系统读取事件工程代码机器机器代码（不保存）代码（不保存）运行运行341.4引例引例 【例【例1-1】一行内容在窗体左、右移动；一行内容在窗体左、右移动； 移动两种方法移动两种方法:手动和自动，当自动时，文字闪烁显示；手动和自动，当自动时，文字闪烁显示； 当内容超出窗体当内容超出窗体,进行反弹。进行反弹。 【例【例1-2】对输入的字符进行转换的程序。对输入的字符进行转换的程序。 转换规则：转换规则： 大写字母转换成小写字

28、母，大写字母转换成小写字母， 小写字母转换成大写字母小写字母转换成大写字母 空格不转换空格不转换 其余转换成其余转换成“*”。要求：每输入一个字符，马上就进行判断和转换。要求：每输入一个字符，马上就进行判断和转换。通过上述两例说明通过上述两例说明vb面向对象、可视化、事件驱动的面向对象、可视化、事件驱动的特点。特点。 35dim step1 as integer 例1-1的程序代码private sub form_load() 初始化 step1 = 1 timer1.interval = 0end subprivate sub command2_click() 手动 timer1.inter

29、val = 0 call mymoveend subprivate sub command1_click() 自动 timer1.interval = 200end subprivate sub timer1_timer() static flag as boolean if flag then label1.forecolor = &hffffff else label1.forecolor = &h0& flag = not flag call mymove 调用自定义移动过程end sub36public sub mymove() 自定义移动过程 label1.move label1.l

30、eft + 50 * step1 if label1.left form1.width then step1 = -1 elseif label1.left 0 then step1 = 1 end ifend sub37private sub text1_keypress(keyascii as integer) 例例1-2程序代码程序代码 dim aa as string * 1 dim length as integer length存放文本框中字符串的长度存放文本框中字符串的长度 length = len(text2.text) 求求text2中字符串长度中字符串长度 aa = chr

31、$(keyascii) 将将ascii码转换成字符码转换成字符 select case aa case a to z 大写转换成小写大写转换成小写 aa = chr$(keyascii + 32) case a to z 小写转换成大写小写转换成大写 aa = chr$(keyascii - 32) case case else aa = * end select 将转换文本框已有的内容与刚输入并转换的字符连接将转换文本框已有的内容与刚输入并转换的字符连接 text2.text = text2.text & aaend subprivate sub command1_click() text1

32、.text = text2.text = end subprivate sub command2_click() endend sub38实验一实验一:简单的简单的vb应用程序应用程序sy01-01 启动启动vb6.0，创建一个，创建一个“标准标准exe”类型的应用程序类型的应用程序sy01-01.vbp。要求在窗口的文本框中显示。要求在窗口的文本框中显示“欢迎使用欢迎使用visual basic”。 单击窗体：文本框中以单击窗体：文本框中以“宋体宋体”，“粗体粗体”,“16号字号字”显示文本；显示文本；双文本框中以双文本框中以“幼圆幼圆”，“18号字号字”显示文本。显示文本。操作步骤：操作步

33、骤：1.建立用户界面对象建立用户界面对象 文件文件/ /新建工程新建工程/ /新建选页新建选页/ /选择选择“标准标准exe”/exe”/打开打开/ /新建一个工新建一个工程，在新窗体上进行用户界面的设计。程，在新窗体上进行用户界面的设计。利用工具画一个文本框利用工具画一个文本框2.对象属性的设置对象属性的设置 单击控件对象单击控件对象/出现出现“属性窗口属性窗口”/在该窗口中选择或输入属性值。在该窗口中选择或输入属性值。form1的的caption属性：属性：简单简单vb程序程序3.对象事件过程及编程对象事件过程及编程 在在formform窗口双击控件对象（窗口双击控件对象（form1) o

34、r form1) or 右击窗体右击窗体/ /查看代码查看代码/ /打打开开“代码窗口代码窗口” ” （p20)p20)，编写程序代码，编写程序代码39private sub form_click() text1.fontname = 宋体宋体 text1.fontsize = 16 text1.fontbold = true text1.text = 欢迎使用欢迎使用visual basic !end subprivate sub form_dblclick() text1.fontname = 幼圆幼圆 text1.fontsize = 18 text1.fontbold = false

35、text1.text = 欢迎使用欢迎使用visual basic !end sub40第第2章章 基本控件基本控件 可视化程序设计的重要内容，就是通过使可视化程序设计的重要内容，就是通过使用控件来构建应用程序的可视化界面。本章介绍用控件来构建应用程序的可视化界面。本章介绍一些常用的基本控件，让用户了解如何使用控件一些常用的基本控件，让用户了解如何使用控件及相关的属性、方法和事件。及相关的属性、方法和事件。 412.1 窗体、窗体、标签、命令按钮、文本框标签、命令按钮、文本框2.1.0 窗体窗体 (form)2.1.1 标签（标签（label）2.1.2 命令按钮（命令按钮（commandbu

36、tton）2.1.3 文本框文本框（textbox）422.1.0窗体窗体 窗体是一块窗体是一块“画布画布”，所有控件的容器，所有控件的容器,用用户可以根据需要，利用工具箱上的控件类图标户可以根据需要，利用工具箱上的控件类图标在窗体上画出程序的界面在窗体上画出程序的界面。1.主要属性主要属性 窗体属性决定了窗体的外观和操作，对大窗体属性决定了窗体的外观和操作，对大部分窗体属性，可以通过属性窗口设置；也可部分窗体属性，可以通过属性窗口设置；也可在代码窗口通过编程设置。在代码窗口通过编程设置。 caption: 标题标题 栏显示的内容。栏显示的内容。 43name:对象的名称。程序中使用。对象的名

37、称。程序中使用。 maxbutton、minbutton：true 有有 最大化，最大化， 最小化按钮；最小化按钮；false 无。无。windowsstate ：程序运行时，窗体的状态。（：程序运行时，窗体的状态。（0-正常、正常、1-最最小化、小化、2-最大化）最大化）标题最小化按钮最大化按钮控制菜单442.事件事件 click、dblclick和和load click :单击窗体对象时触发该事件。单击窗体对象时触发该事件。 dblclick: 双击窗体对象时触发该事件。双击窗体对象时触发该事件。 load : 当装入窗体时激发，通常用于当装入窗体时激发，通常用于对属性和变量初对属性和变量

38、初始化。始化。3.方法方法 print、cls和和move等等print方法，在窗体上显示文本或表达式的值。方法，在窗体上显示文本或表达式的值。 cls方法，清除运行时在窗体上或图形框显示文本或图方法，清除运行时在窗体上或图形框显示文本或图形。形。 45【例例2.1 】上述属性、】上述属性、click、dblclick和和load 事件演示。在窗体装入时，在窗体事件演示。在窗体装入时，在窗体的标题栏显示的标题栏显示“装入窗体装入窗体”；当单击窗；当单击窗体时，在标题栏显示体时，在标题栏显示“鼠标单击鼠标单击”，在，在窗体显示窗体显示“欢迎使用欢迎使用vb”；当双击窗体，；当双击窗体，在标题栏显

39、示在标题栏显示“鼠标双击鼠标双击”，清除窗体，清除窗体的背景图案，并显示的背景图案，并显示“结束使用结束使用vb”。462.1.1 标签（标签（label) 标签（标签（label）用来显示文本，但用户不能更改标签中）用来显示文本，但用户不能更改标签中显示的内容显示的内容,只能编写代码改变只能编写代码改变label控件显示的文本。控件显示的文本。1.主要属性主要属性caption，name等属性同窗体属性。等属性同窗体属性。alignment属性：属性：设置文本的对齐方式。设置文本的对齐方式。0left justify（缺省值）：左对齐；（缺省值）：左对齐；1right justify：右对齐

40、；：右对齐；2center：居中。：居中。 autosize属性：属性：设置控件是否自动改变大小，以显示全部文设置控件是否自动改变大小，以显示全部文本。本。true：自动改变控件大小，以显示全部文本；：自动改变控件大小，以显示全部文本；false（缺省值）：不改变控件大小，超出控件区域的文本将被（缺省值）：不改变控件大小，超出控件区域的文本将被裁剪。裁剪。 47wordwrap属性：属性：对一个对一个autosize为为true的标签，的标签，设置是否要水平或垂直展开以适合显示设置是否要水平或垂直展开以适合显示caption中文本的长短。中文本的长短。true：文本卷绕，水：文本卷绕，水平大小

41、不变，垂直大小可变；平大小不变，垂直大小可变；false（缺省值）：（缺省值）：文本不卷绕，水平、垂直大小都可变。文本不卷绕，水平、垂直大小都可变。 visible属性：属性：设置标签是否可见。设置标签是否可见。true（缺省（缺省值）：标签可见；值）：标签可见；flase：标签不可见。：标签不可见。482.事件事件 click事件：事件：单击标签对象时触发该事件。单击标签对象时触发该事件。 dblclick事件：事件：双击标签对象时触发该事件。双击标签对象时触发该事件。change事件：事件：在在dde链接更新数据或通过代码改链接更新数据或通过代码改变变caption属性的设置时，触发该事件

42、。属性的设置时，触发该事件。3实例实例【例【例2-2】在窗体上建立两个大小相同的标签。程在窗体上建立两个大小相同的标签。程序运行后，分别单击序运行后，分别单击label1和和label2，观察，观察autosize属性的作用。属性的作用。492.1.2 命令按钮（命令按钮（commandbutton） 命令按钮控件主要用于在程序执行过程期间，命令按钮控件主要用于在程序执行过程期间，当用户选择某个命令按钮时，就会执行相应的事当用户选择某个命令按钮时，就会执行相应的事件过程。可以有三种方式件过程。可以有三种方式: 鼠标单击；鼠标单击；按按tab键将焦点移到该按钮键将焦点移到该按钮 ；快捷；快捷键。

43、键。 1.主要属性主要属性caption: 命令按钮显示的内容命令按钮显示的内容,可设置快捷键可设置快捷键,例例 &ok ,显示显示 okvalue: 检查该按钮是否按下，该属性在程序界面设检查该按钮是否按下，该属性在程序界面设计时无效。计时无效。 true:已选择该按钮；已选择该按钮；false:没有选择该按钮。没有选择该按钮。50picture : 按钮可显示图片文件按钮可显示图片文件(.bmp和和.ico)，当，当style为为1时有效。时有效。style : 确定显示的形式，确定显示的形式， 0： 只能显示文字只能显示文字, 1： 文字、图形均可文字、图形均可 。tooltiptext

44、 ：设置工具提示，和设置工具提示，和picture结合使用。结合使用。visible :设置控件是否可见，设置控件是否可见，true：程序运行时，：程序运行时，控件可见；控件可见；flase:程序运行时，控件控件隐藏。程序运行时，控件控件隐藏。enabled：设置控件是否允许操作；设置控件是否允许操作；true:允许操允许操作；作；flase:禁止操作。禁止操作。 512. 事件事件click事件：事件：使用鼠标或键盘，用以下方法触发使用鼠标或键盘，用以下方法触发命令按钮的命令按钮的click事件。事件。 （1）用鼠标单击按钮。）用鼠标单击按钮。 （2）当该命令按钮具有焦点时，按）当该命令按钮

45、具有焦点时，按spacebar键。键。52 （3）按命令按钮的访问键（）按命令按钮的访问键（alt+带下划线的字母）。带下划线的字母）。 （4）若窗体有一个缺省按钮（）若窗体有一个缺省按钮（default属性设为属性设为true），可以按回车键，触发该事件。），可以按回车键，触发该事件。 （5）若窗体有一个取消按钮（）若窗体有一个取消按钮（cancel属性：属性：true），可以按），可以按esc键触发该事件。键触发该事件。mousedown事件：事件：按下鼠标时，触发该事件。按下鼠标时，触发该事件。mouseup事件：事件：鼠标释放时，触发该事件。鼠标释放时，触发该事件。mousemove事

46、件：事件：移动鼠标时，触发该事件。移动鼠标时，触发该事件。mousedrop事件：事件：拖放鼠标至某对象上释放时，触拖放鼠标至某对象上释放时，触发该事件。发该事件。 例：例：触发命令按钮的触发命令按钮的click， mousedown， mouseup事件。事件。53l3.方法方法drag:设置命令按钮拖动的开始、结束或设置命令按钮拖动的开始、结束或取消拖动操作取消拖动操作1：vbbegindrag （缺省）（缺省）2: 结束结束0：vbcancel 取消取消move：移动控件：移动控件 例：例：command1.move lelt,top,width,height x y 坐标坐标 54l4

47、 实例实例【例2-3】 建立一个允许剪切、复制和粘贴的简单便笺板建立一个允许剪切、复制和粘贴的简单便笺板程序。程序。 可增加内容：利用可增加内容：利用mousemove事件决定命令按事件决定命令按钮的有效性，即当选中内容，钮的有效性，即当选中内容，“剪切剪切”、“复制复制”按钮按钮有效，否则无效。命令按钮的有效，否则无效。命令按钮的style属性：属性：1-graphical ,0-standard。（缺省）。（缺省）55dim st as string 模块级变量模块级变量private sub cmdcopy_click() st = text1.seltext 将选中的内容存放到将选中的

48、内容存放到st变量中变量中end subprivate sub cmdcut_click() st = text1.seltext 将选中的内容存放到将选中的内容存放到st变量中变量中 text1.seltext = 将选中的内容清除将选中的内容清除,实现了剪切实现了剪切 cmdcopy.enabled = false cmdcut.enabled = false cmdpaste.enabled = trueend sub56private sub cmdexit_click() endend subprivate sub cmdpaste_click() 将将st变量中的内容插入到光标所在

49、的位置变量中的内容插入到光标所在的位置,实现了粘贴实现了粘贴 text1.seltext = stend subprivate sub form_load() 设置剪切、复制、粘贴按钮无效设置剪切、复制、粘贴按钮无效 cmdcut.enabled = false cmdcopy.enabled = false cmdpaste.enabled = falseend sub57private sub text1_mousemove(button as integer, shift as integer, x as single, y as single) if text1.seltext the

50、n cmdcut.enabled = true 当拖动鼠标选中要操作的文本后当拖动鼠标选中要操作的文本后,剪切、复制按钮有效剪切、复制按钮有效 cmdcopy.enabled = true cmdpaste.enabled = false else cmdcut.enabled = false 当拖动鼠标未选中文本当拖动鼠标未选中文本,剪切、复剪切、复制按钮无效制按钮无效 cmdcopy.enabled = false cmdpaste.enabled = true end ifend sub582.1.3 文本框（文本框（textbox） 文本框（文本框（textbox）是一个文本编辑区域，

51、可在该）是一个文本编辑区域，可在该区域输入，编辑和显示正文内容，在程序运行时作区域输入，编辑和显示正文内容，在程序运行时作为人机对话的交互对象。为人机对话的交互对象。1.主要属性主要属性 text : 文本框无文本框无caption属性，显示正文内容在属性，显示正文内容在text属属性中。性中。 maxlength: 设置正文的最多字符个数设置正文的最多字符个数,0：任意长度值：任意长度值., multiline:设置文本框是否能够接受和显示多行文本，设置文本框是否能够接受和显示多行文本，在运行时为只读。在运行时为只读。 true：允许多行显示；：允许多行显示；false：缺：缺省值，不允许多

52、行显示。省值，不允许多行显示。59 scrollbars: 当当multiline为为true时时,该属性才有效该属性才有效,其属性其属性值有：值有： 0 - none （缺省值）：无滚动条。（缺省值）：无滚动条。 1 - horizontal ：水平滚动条。：水平滚动条。 2 - vertical ：垂直滚动条。：垂直滚动条。 3 - both ：水平和垂直滚动条。：水平和垂直滚动条。 locked: 文本控件是否可被编辑，文本控件是否可被编辑，false（缺省）（缺省），表，表示为可编辑；示为可编辑；true:不可编辑。不可编辑。password : 口令字符。口令字符。 text属性返回

53、输入的数据属性返回输入的数据,屏幕显屏幕显示该字符。示该字符。 selstart，sellength，seltext : 选中文本的起始、长度选中文本的起始、长度、内容。这三个属性在程序界面设计时不可用。、内容。这三个属性在程序界面设计时不可用。 602.常用事件常用事件 change事件：事件：在文本框中输入或改变内容，以在文本框中输入或改变内容，以及程序运行时，及程序运行时，text属性改变而触发该事件。属性改变而触发该事件。 keypress事件：事件：按下并且释放键盘上的一个按下并且释放键盘上的一个a n s i 键 时 ， 就 会 引 发 焦 点 所 在 控 件 的键 时 ， 就 会

54、 引 发 焦 点 所 在 控 件 的keypress事件。事件。 lostfocus事件事件：控件失去焦点时发生。在程：控件失去焦点时发生。在程序代码中可使用序代码中可使用setfocus方法来改变焦点。方法来改变焦点。getfocus事件：事件：当控件获得焦点时发生。为获当控件获得焦点时发生。为获得焦点，用户可以通过得焦点，用户可以通过tab键切换，或单击对键切换，或单击对象等操作，或在程序代码中用象等操作，或在程序代码中用setfocus方法方法设置焦点。设置焦点。 613.常用方法常用方法 对象对象.setfocus: 把光标移到指定的文本框对象把光标移到指定的文本框对象中，它还可以用于

55、中，它还可以用于checkbox 、commandbutton和和listbox等控件。等控件。4实例实例 【例【例2-4】在窗体上建立一个标签和两个文本框，观在窗体上建立一个标签和两个文本框，观察获得焦点的文本框事件察获得焦点的文本框事件getfous和失去焦点的文本和失去焦点的文本框事件框事件lostfocus。分别单击。分别单击text1和和text2文本框。文本框。 622.2 复选框、单选按钮、框架复选框、单选按钮、框架 2.2.1 复选框（复选框（checkbox）2.2.2 单选按钮（单选按钮（optionbutton）2.2.3 框架（框架（frame）632.2.1 复选框（

56、复选框（checkbox） 复选框（复选框（checkbox）常用于对给定选项的逻辑选择，）常用于对给定选项的逻辑选择，若干个复选框可以多项组合使用。若干个复选框可以多项组合使用。1.主要属性主要属性 caption属性：属性：设置复选框显示的文本内容，也可以用设置复选框显示的文本内容，也可以用连字符创建快捷方式来切换复选框的选择。连字符创建快捷方式来切换复选框的选择。 alignment属性：属性：设置复选框的对齐方式。设置复选框的对齐方式。0（缺省（缺省值）：复选框在文本的左边；值）：复选框在文本的左边；1：复选框在文本的右边。：复选框在文本的右边。 64value属性：属性：设置设置ch

57、eckbox控件的状态。控件的状态。0（缺（缺省值）：未选定；省值）：未选定；1：选定显示为打勾；：选定显示为打勾；2：禁止状态，暗淡显示。禁止状态，暗淡显示。 style属性：属性：设置设置checkbox控件的显示类型：控件的显示类型：0（缺省值）（缺省值）- standard：标准方式。：标准方式。1 -graphical：图形方式。：图形方式。 2.事件事件click事件：事件：当单击复选框控件时触发当单击复选框控件时触发click事件，事件，自动改变状态。该控件不支持自动改变状态。该控件不支持dblclick事件。事件。652.2.2 单选按钮（单选按钮（optionbutton）

58、单选按钮（单选按钮（optionbutton）用于一组多选一的控）用于一组多选一的控件，若干个单选按钮可以分组使用。在同一组单选按件，若干个单选按钮可以分组使用。在同一组单选按钮中，只能选择其中的一个选项，即当选中某一个单钮中，只能选择其中的一个选项，即当选中某一个单选按钮时，其他单选按钮会自动失选。选按钮时，其他单选按钮会自动失选。1.主要属性主要属性 caption属性：属性：单选按钮旁的显示文本。单选按钮旁的显示文本。 value属性：属性：设置单选按钮的状态。设置单选按钮的状态。true：选中单选按：选中单选按钮，当中有一个圆点，同组的其他单选按钮失效；钮，当中有一个圆点，同组的其他单

59、选按钮失效；false：未选中单选按钮。：未选中单选按钮。66补充：补充：font系列属性：系列属性：1）fontname：字体类型：字体类型text1.fontname=”宋体宋体”2）fontsize: 字体大小字体大小text1.fontsize=203）forecolor: 前景色（正文颜色）前景色（正文颜色） text1.forecolor=vbred 4) backcolor: 背景色背景色 text1.backcolor=vbyellow 672事件事件单选按钮控件支持单选按钮控件支持click和和dblclick事件事件 3. 实例实例【例【例2-5】用单选按钮和复选框设置文本

60、框的字体用单选按钮和复选框设置文本框的字体。682.2.3 框架（框架（frame） 框架是一个容器控件，它使窗体中的各控件可分组使框架是一个容器控件，它使窗体中的各控件可分组使用。用。1.主要属性：主要属性： caption属性：属性：显示框架标题内容，若设置为显示框架标题内容，若设置为“”“”（空），则框架显示为一个封闭的矩形框。（空），则框架显示为一个封闭的矩形框。 enabled属性：属性：设置框架内控件是否有效。设置框架内控件是否有效。true：框架：框架中的对象可被用户操作；中的对象可被用户操作；false：框架中的对象被屏蔽，：框架中的对象被屏蔽，禁止用户操作。禁止用户操作。2.