可视化程序设计ch12a.ppt

《可视化程序设计ch12a.ppt》由会员分享，可在线阅读，更多相关《可视化程序设计ch12a.ppt（94页珍藏版）》请在三一文库上搜索。

1、1,可视化程序设计基础教程,VISUAL BASIC 6.0 上海工程技术大学计算中心,2,1.介绍： 计算中心 汤老师 办公室： 工程实训中心1413 2.教材： 可视化程序设计基础教程 可视化程序设计基础实践教程 Visual Basic,3,3.上课方法及要求: 1）采用课件(Power Point) 2）程序设计课程的理论性较强，由浅入深，循序渐进。希望同学从课程的一开始就认真学习，若想考前临时突击是不行的。历届的有些学生，一开始不认真听课，做作业、实验；到期中考试以后，想听，想认真学，都很困难了。,4,3）本课程是理论性和实践性都很强的课程，共安排14个实验，实验也是考核的方法之一。

2、每次实验前，要求学生预习实验指导的范例，编好程序；实验课时，上机调试，大部分实验，要求完成实验报告。 4）认真独立地完成作业、实验、实验报告。,5,4.上课时间、教室： 周二 (1，2) C310 415091,415092 上机实验地点： 周四（7，8）实训楼1455（实验室3） 415091,415092,6,上课时间、教室： 周二 (3，4) D202 412091，412092 上机实验地点： 周四 （3，4）实训楼1455（实验室3） 412091，412092,7,5.考核方法： 作业实验（包括实验报告）期中考试 出勤 40 期末考试 60% 注意： 1）实验课不能玩电脑游戏，若发

3、现，一次扣5分。 2）旷课一次，扣3分；上课迟到一次，扣1分。,8,6.参考书籍： 1)Visual Basic程序设计 主编：刘燕 东南大学出版社 中国水利水电出版社 上海交通大学出版社 2) Visual Basic程序设计教程 龚沛曾等编 高等教育出版社,9,可视化程序设计基础教程 第1 章 概述 第2 章 基本控件 第3 章 程序设计基础 第4 章 应用程序设计界面设计 第5 章 事件与方法 第6 章 图形和图像 第7 章 数据库应用 第8 章 多媒体应用 第9 章 文件系统 第10 章 Active X 控件 第11 章 应用实例,10,第1章 Visual Basic 程序设计概述

4、 1.0 Visual Basic的发展 1.1 Visual Basic的功能特点 1.2 Visual Basic的集成开发环境 1.3 建立简单的vb应用程序 1.4 二个简单的Visual Basic 程序实例,11,1.0 Visual Basic的发展 Basic语言是20世纪60年代美国Dartmouth学院的两位教授设计的程序设计语言，它简单易学、人机对话方便、程序运行调试简便，因此，很快得到广泛的应用。20世纪80年代，随着结构化程序设计的需要，出现了新版本的Basic语言，它们增加了新的数据类型和程序控制结构，其中较有影响的有True Basic、Quick Basic等。

5、,12,Windows操作系统的出现，为PC用户提供了一个直观的、图形丰富的工作平台。图形用户界面（GUI）使应用程序更易于学习和使用。但对于程序员来说，其工作难度反而增大了，因为为了编写在Windows环境下运行的程序，必须建立相应的窗口、菜单、对话框等构件。 1991年Microsoft公司推出的Visual Basic是以结构化Basic语言为基础，以事件驱动为运行机制。它还提供一套可视化程序设计工具，便于程序员建立图形对象，巧妙地把Windows编程的复杂性“封装”起来。2005年，Visual Studio 2005 ,包括.Net等。 本书介绍的是Visual Basic 6.0。

6、,13,1.1 Visual Basic的功能特点 1.面向对象的程序设计方法 VB把要求操作的数据和处理这些数据的函数（过程）封装在一起构成一个“对象”。只有对象中的函数可以改变其中的数据。 2.程序界面的可视化设计 V B系统提供了大量可视化的工具“控件”，利用它们可以在窗体上直观方便地设计出图形界面中的各个对象。,14,3.事件驱动的程序设计机制 传统的面向过程的应用程序是按事先设计的流程运行的。Windows应用程序的运行是通过事件来“驱动”的，每一个事件均能驱动一段程序代码，在Visual Basic中这一段程序通常称为“事件过程”。 4.提供应用程序集成开发环境 程序员可设计程序界

7、面、编写代码、调试程序和把应用程序编译成可执行程序等,15,例：创建一个“标准EXE”类型的应用程序sy01-01。要求单击命令按钮1，在窗口的文本框中显示变量a的值，单击命令按钮2，结束程序。,16,Private Sub Command1_Click()事件过程 Dim a% 变量定义 a = 100 变量赋值 Text1.Text = Str(a) End Sub Private Sub Command2_Click() End 结束程序 End Sub,17,5.结构化的程序设计语言 6.强大的数据库操纵功能 利用数据控件可以访问数据库系统。 7.Active 控件 程序员根据需要，将

8、Active控件添加到标准控件的工具箱中，然后我们就象使用标准控件那样使用这些ActiveX控件。利用ActiveX控件可以提高应用程序的开发能力并简化应用程序的开发过程。 8.完备的Help联机帮助系统,18,1.2 Visual Basic的集成开发环境 1.2.1 vb的启动 在进入Windows操作系统后，单击开始按钮， 选择“程序”菜单，打开“Microsoft Visual Basic 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，就可以启动VB6.0。 进入VB后，在新建工程窗口中，列出VB能建立应用程序的类型，选择默认的标准.exe

9、。3个选页：新建：建立新工程；现存：选择和打开现有的工程；最新：列出最近使用过的工程。,19,20,1.2.2 集成开发环境 (p4),工具箱,窗体,工程窗口,属性窗口,立即窗口,21,1.主窗口(p4p7) 应用程序窗口,由标题栏、菜单栏和工具栏组成 2.窗体(form)窗口 设计vb程序的界面 3. 工具箱(toolbox)窗口 显示各种控件的制作工具,供用户在窗体上设计 4.工程资源管理器(project explorer)窗口 保存一个应用程序所有的文件,工程文件的扩展名为.VBP 5.属性(properties)窗口 所有窗体或控件的属性设置 6.代码(code)窗口 进行程序设计的

10、窗口，可显示和编辑程序代码。 打开代码窗口方法：鼠标双击一个控件或窗体本身。,22,1.2.3 VB的几个基本概念 （p7) 1.类 类是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。工具箱上的“TextBox”是类，它确定了TextBox的属性、方法和事件。 2.对象 是类的一个实例,继承了类的属性、方法。 Vb中常用的对象有:窗体、控件等。例：窗体上有两个Text对象，是类的实例化，它们继承了Textbox的特征，也可以根据需要修改各自的属性。,23,3.对象的建立和命名（建立的控件有缺省的名字） 利用工具箱在窗体上建立控件（按钮，文本框）。 建立的控件对象都有默认名字(

11、Form1,Text1等），程序员也可以在属性窗口通过设置其Name属性给控件对象重新命名。 4.对象的三要素 （1）属性 ： 对象的性质，即用来描述和反映对象特征的参数。 （2）方法 ： 对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。,24,（3）事件 响应对象的动作称为事件，它发生在用户与应用程序交互时。单击控件、鼠标移动、键盘按下等。 事件过程: 指附在该对象上的用户编写的程序代码,是事件的处理程序。 事件驱动程序设计: 程序执行后，系统等待某个事件的发生，然后去执行处理此事件的事件过程，而后系统又处于等待某事件发生的状态，这就是事件驱动程序设计方式。,25,(

12、4). VB程序的执行步骤如下： 1）启动应用程序，装载和显示窗体； 2）窗体（或窗体上的控件）等待事件的发生； 3）事件发生时，执行对应的事件过程； 4）重复执行步骤（2）和（3） ； 5) 直到遇到“END”结束语句结束程序的运行； 或按“结束”强行停止程序的运行。,26,5对象的方法 对象的“方法”指的是系统为该对象提供的一些特定的子程序，利用这些子程序来实现对象的一些特定的动作。应用程序可以通过调用对象的方法来控制对象的工作。应指出的是，在Visual Basic系统中，不同的对象拥有不同的方法。对象方法的调用格式是： 对象名.方法名 参数 在Visual Basic系统中，对象方法的

13、调用可以作为一个单独语句出现。例如，窗体对象拥有Hide、Show、Print方法，它们分别用来隐藏和显示窗体、在对象上显示文本文字和表达式的值。,27,语句： Form1.Hide 可以将窗体对象Form1隐藏起来。而语句： Form1.Show 使窗体对象Form1成为可见。 Form1.Print a,b,c 显示变量a,b,c的内容 若省略对象名Form1，在当前窗体上输出运算结果,28,6.工程 用Visual Basic开发应用程序，首先要创建一个工程。工程就是用于建立应用程序的所有文件的集合，在开发应用程序的过程中还要使用工程管理器来管理这些文件。一个应用程序通常只有一个工程，一

14、个大型的应用程序可能有多个工程。 工程中主要包含下列类型的文件： 工程文件（.VBP），用来记录工程中的所有部件。每当保存工程时，Visual Basic都要更新工程文件。 窗体文件（.FRM），每一个窗体有一个对应的窗体文件。,29,二进制数据文件（.FRX），它与每个包含二进制属性的.FRM文件相对应，该文件不能编辑。 类模块文件（.CLS），工程中可以包含多个类模块文件。 标准模块文件（.BAS），存储所有模块级变量和用户自定义通用过程（指可以被应用程序各处调用的过程）。 ActiveX控件文件（.OCX）， 包含ActiveX控件的二进制文件。 资源文件（.RES），一个工程最多包含一

15、个资源文件。,30,1.3 Vb应用程序的建立 （p9) 1.建立用户界面对象 文件/新建工程/新建选页/选择“标准EXE”/打开/新建一个工程，在新窗体上进行用户界面的设计。 2.对象属性的设置 单击控件对象/出现“属性窗口”/在该窗口中选择或输入属性值。,31,3.对象事件过程及编程 在Form窗口双击控件对象 or 右击窗体/查看代码/打开“代码窗口” （p13) 代码窗口的左边“对象列表框”列出了该窗体的所有对象控件（包括窗体），右边的“过程列表框”列出了对象相关的所有事件。 （1）单击对象列表框右边的下拉按钮，选择对象控件。 （2）单击过程列表框右边的箭头，列出与该对象控件相关的所有

16、事件，选择所需的事件。,32,4.保存和运行程序(p14) 1）保存工程 （1）选择“文件”/Form1另存为（窗体文件）/“文件另存为”对话框 /输入文件名（扩展名自动添加，.frm） 文件夹可选择。（例：C:VBSY,事先创建） （2）选择“文件”/工程另存为（工程文件）/“工程另存为”对话框、/输入文件名（.vbp),操作同上。 若要再次修改或运行该文件，文件/打开工程/选择要打开的“工程文件名”/将磁盘上的VB文件调入内存。,33,2）程序运行 （1）编译运行模式 文件菜单/生成exe/将程序代码机器代码保存在.exe文件 （2）解释运行模式 运行菜单/启动/系统读取事件工程代码机器代

17、码（不保存）运行,34,1.4引例 【例1-1】一行内容在窗体左、右移动； 移动两种方法:手动和自动，当自动时，文字闪烁显示； 当内容超出窗体,进行反弹。 【例1-2】对输入的字符进行转换的程序。 转换规则： 大写字母转换成小写字母， 小写字母转换成大写字母 空格不转换 其余转换成“*”。 要求：每输入一个字符，马上就进行判断和转换。 通过上述两例说明VB面向对象、可视化、事件驱动的特点。,35,Dim step1 As Integer 例1-1的程序代码 Private Sub Form_Load() 初始化 step1 = 1 Timer1.Interval = 0 End Sub Pri

18、vate Sub Command2_Click() 手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Command1_Click() 自动 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Static Flag As Boolean If Flag Then Label1.ForeColor = &HFFFFFF Else Label1.ForeColor = &H0& Flag = Not Flag Call MyMove 调用自定义移动过程 End Sub,36,

19、Public Sub MyMove() 自定义移动过程 Label1.Move Label1.Left + 50 * step1 If Label1.Left Form1.Width Then step1 = -1 ElseIf Label1.Left 0 Then step1 = 1 End If End Sub,37,Private Sub Text1_KeyPress(KeyAscii As Integer) 例1-2程序代码 Dim aa As String * 1 Dim Length As Integer Length存放文本框中字符串的长度 Length = Len(Text2.

20、Text) 求Text2中字符串长度 aa = Chr$(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 & aa End Sub Private Sub Command1_Click() Text1.

21、Text = “ Text2.Text = “ End Sub Private Sub Command2_Click() End End Sub,38,实验一:简单的VB应用程序 Sy01-01 启动VB6.0，创建一个“标准EXE”类型的应用程序sy01-01.vbp。要求在窗口的文本框中显示“欢迎使用Visual Basic”。 单击窗体：文本框中以“宋体”，“粗体”,“16号字”显示文本； 双文本框中以“幼圆”，“18号字”显示文本。 操作步骤： 1.建立用户界面对象 文件/新建工程/新建选页/选择“标准EXE”/打开/新建一个工程，在新窗体上进行用户界面的设计。利用工具画一个文本框 2

22、.对象属性的设置 单击控件对象/出现“属性窗口”/在该窗口中选择或输入属性值。Form1的caption属性：简单vb程序 3.对象事件过程及编程 在Form窗口双击控件对象（form1) or 右击窗体/查看代码/打开“代码窗口” （p20)，编写程序代码,39,Private Sub Form_Click() Text1.FontName = “宋体“ Text1.FontSize = 16 Text1.FontBold = True Text1.Text = “欢迎使用Visual Basic !“ End Sub Private Sub Form_DblClick() Text1.Fo

23、ntName = “幼圆“ Text1.FontSize = 18 Text1.FontBold = False Text1.Text = “欢迎使用Visual Basic !“ End Sub,40,第2章 基本控件 可视化程序设计的重要内容，就是通过使 用控件来构建应用程序的可视化界面。本章介绍 一些常用的基本控件，让用户了解如何使用控件 及相关的属性、方法和事件。,41,2.1 窗体、标签、命令按钮、文本框 2.1.0 窗体 (Form) 2.1.1 标签（Label） 2.1.2 命令按钮（CommandButton） 2.1.3 文本框（TextBox）,42,2.1.0窗体 窗体

24、是一块“画布”，所有控件的容器,用户可以根据需要，利用工具箱上的控件类图标在窗体上画出程序的界面。 1.主要属性 窗体属性决定了窗体的外观和操作，对大部分窗体属性，可以通过属性窗口设置；也可在代码窗口通过编程设置。 Caption: 标题 栏显示的内容。,43,Name:对象的名称。程序中使用。 MaxButton、MinButton：True 有 最大化， 最小化按钮；False 无。 WindowsState ：程序运行时，窗体的状态。（0-正常、1-最小化、2-最大化）,标题,最小化按钮,最大化按钮,控制菜单,44,2.事件 Click、DblClick和Load Click :单击窗体

25、对象时触发该事件。 DblClick: 双击窗体对象时触发该事件。 Load : 当装入窗体时激发，通常用于对属性和变量初始化。 3.方法 Print、Cls和Move等 Print方法，在窗体上显示文本或表达式的值。 Cls方法，清除运行时在窗体上或图形框显示文本或图形。,45,【例2.1 】上述属性、Click、DblClick和Load 事件演示。在窗体装入时，在窗体的标题栏显示“装入窗体”；当单击窗体时，在标题栏显示“鼠标单击”，在窗体显示“欢迎使用VB”；当双击窗体，在标题栏显示“鼠标双击”，清除窗体的背景图案，并显示“结束使用VB”。,46,2.1.1 标签（Label) 标签（L

26、abel）用来显示文本，但用户不能更改标签中显示的内容,只能编写代码改变Label控件显示的文本。 1.主要属性 Caption，Name等属性同窗体属性。 Alignment属性：设置文本的对齐方式。0Left Justify（缺省值）：左对齐；1Right Justify：右对齐；2Center：居中。 AutoSize属性：设置控件是否自动改变大小，以显示全部文本。True：自动改变控件大小，以显示全部文本；False（缺省值）：不改变控件大小，超出控件区域的文本将被裁剪。,47,WordWrap属性：对一个AutoSize为True的标签，设置是否要水平或垂直展开以适合显示Captio

27、n中文本的长短。True：文本卷绕，水平大小不变，垂直大小可变；False（缺省值）：文本不卷绕，水平、垂直大小都可变。 Visible属性：设置标签是否可见。True（缺省值）：标签可见；Flase：标签不可见。,48,2.事件 Click事件：单击标签对象时触发该事件。 DblClick事件：双击标签对象时触发该事件。 Change事件：在DDE链接更新数据或通过代码改变Caption属性的设置时，触发该事件。 3实例 【例2-2】在窗体上建立两个大小相同的标签。程序运行后，分别单击Label1和Label2，观察AutoSize属性的作用。,49,2.1.2 命令按钮（CommandBu

28、tton） 命令按钮控件主要用于在程序执行过程期间，当用户选择某个命令按钮时，就会执行相应的事件过程。可以有三种方式: 鼠标单击；按Tab键将焦点移到该按钮 ；快捷键。 1.主要属性 Caption: 命令按钮显示的内容,可设置快捷键,例 &Ok ,显示 Ok Value: 检查该按钮是否按下，该属性在程序界面设计时无效。 True:已选择该按钮；False:没有选择该按钮。,50,Picture : 按钮可显示图片文件(.bmp和.Ico)，当Style为1时有效。 Style : 确定显示的形式， 0： 只能显示文字, 1： 文字、图形均可 。 ToolTipText ：设置工具提示，和P

29、icture结合使用。 Visible :设置控件是否可见，True：程序运行时，控件可见；Flase:程序运行时，控件控件隐藏。 Enabled：设置控件是否允许操作；True:允许操作；Flase:禁止操作。,51,2. 事件 Click事件：使用鼠标或键盘，用以下方法触发命令按钮的Click事件。 （1）用鼠标单击按钮。 （2）当该命令按钮具有焦点时，按SpaceBar键。,52,（3）按命令按钮的访问键（ALT+带下划线的字母）。 （4）若窗体有一个缺省按钮（Default属性设为True），可以按回车键，触发该事件。 （5）若窗体有一个取消按钮（Cancel属性：True），可以按E

30、SC键触发该事件。 MouseDown事件：按下鼠标时，触发该事件。 MouseUp事件：鼠标释放时，触发该事件。 MouseMove事件：移动鼠标时，触发该事件。 MouseDrop事件：拖放鼠标至某对象上释放时，触发该事件。 例：触发命令按钮的Click， MouseDown， MouseUp事件。,53,3.方法 Drag:设置命令按钮拖动的开始、结束或取消拖动操作 1：vbBeginDrag （缺省） 2: 结束 0：vbCancel 取消 Move：移动控件 例：Command1.move lelt,top,width,height x y 坐标,54,4 实例 【例2-3】 建立一

31、个允许剪切、复制和粘贴的简单便笺板程序。 可增加内容：利用MouseMove事件决定命令按钮的有效性，即当选中内容，“剪切”、“复制”按钮有效，否则无效。命令按钮的Style属性：1-Graphical ,0-Standard。（缺省）,55,Dim st As String 模块级变量 Private Sub cmdCopy_Click() st = Text1.SelText 将选中的内容存放到st变量中 End Sub Private Sub cmdCut_Click() st = Text1.SelText 将选中的内容存放到st变量中 Text1.SelText = “ 将选中的内容

32、清除,实现了剪切 cmdCopy.Enabled = False cmdCut.Enabled = False cmdPaste.Enabled = True End Sub,56,Private Sub cmdExit_Click() End End Sub Private Sub cmdPaste_Click() 将st变量中的内容插入到光标所在的位置,实现了粘贴 Text1.SelText = st End Sub Private Sub Form_Load() 设置剪切、复制、粘贴按钮无效 cmdCut.Enabled = False cmdCopy.Enabled = False c

33、mdPaste.Enabled = False End Sub,57,Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelText “ Then cmdCut.Enabled = True 当拖动鼠标选中要操作的文本后,剪切、复制按钮有效 cmdCopy.Enabled = True cmdPaste.Enabled = False Else cmdCut.Enabled = False 当拖动鼠标未选中文本,剪切、复制按钮无效 cmdCop

34、y.Enabled = False cmdPaste.Enabled = True End If End Sub,58,2.1.3 文本框（TextBox） 文本框（TextBox）是一个文本编辑区域，可在该区域输入，编辑和显示正文内容，在程序运行时作为人机对话的交互对象。 1.主要属性 Text : 文本框无Caption属性，显示正文内容在Text属性中。 Maxlength: 设置正文的最多字符个数,0：任意长度值., MultiLine:设置文本框是否能够接受和显示多行文本，在运行时为只读。 True：允许多行显示；False：缺省值，不允许多行显示。,59,ScrollBars: 当

35、MultiLine为True时,该属性才有效,其属性值有： 0 - None （缺省值）：无滚动条。 1 - Horizontal ：水平滚动条。 2 - Vertical ：垂直滚动条。 3 - Both ：水平和垂直滚动条。 Locked: 文本控件是否可被编辑，False（缺省），表示为可编辑；True:不可编辑。 PassWord : 口令字符。 Text属性返回输入的数据,屏幕显示该字符。 SelStart，SelLength，SelText : 选中文本的起始、长度、内容。这三个属性在程序界面设计时不可用。,60,2.常用事件 Change事件：在文本框中输入或改变内容，以及程序运

36、行时，Text属性改变而触发该事件。 KeyPress事件：按下并且释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件。 LostFocus事件：控件失去焦点时发生。在程序代码中可使用SetFocus方法来改变焦点。 GetFocus事件：当控件获得焦点时发生。为获得焦点，用户可以通过Tab键切换，或单击对象等操作，或在程序代码中用SetFocus方法设置焦点。,61,3.常用方法 对象.SetFocus: 把光标移到指定的文本框对象中，它还可以用于CheckBox 、CommandButton和ListBox等控件。 4实例 【例2-4】在窗体上建立一个标签和两个文本框

37、，观察获得焦点的文本框事件GetFous和失去焦点的文本框事件LostFocus。分别单击Text1和Text2文本框。,62,2.2 复选框、单选按钮、框架 2.2.1 复选框（CheckBox） 2.2.2 单选按钮（OptionButton） 2.2.3 框架（Frame）,63,2.2.1 复选框（CheckBox） 复选框（CheckBox）常用于对给定选项的逻辑选择，若干个复选框可以多项组合使用。 1.主要属性 Caption属性：设置复选框显示的文本内容，也可以用连字符创建快捷方式来切换复选框的选择。 Alignment属性：设置复选框的对齐方式。0（缺省值）：复选框在文本的左边

38、；1：复选框在文本的右边。,64,Value属性：设置CheckBox控件的状态。0（缺省值）：未选定；1：选定显示为打勾； 2：禁止状态，暗淡显示。 Style属性：设置CheckBox控件的显示类型： 0（缺省值）- Standard：标准方式。 1 -Graphical：图形方式。 2.事件 Click事件：当单击复选框控件时触发Click事件，自动改变状态。该控件不支持DblClick事件。,65,2.2.2 单选按钮（OptionButton） 单选按钮（OptionButton）用于一组多选一的控件，若干个单选按钮可以分组使用。在同一组单选按钮中，只能选择其中的一个选项，即当选中某

39、一个单选按钮时，其他单选按钮会自动失选。 1.主要属性 Caption属性：单选按钮旁的显示文本。 Value属性：设置单选按钮的状态。True：选中单选按钮，当中有一个圆点，同组的其他单选按钮失效；False：未选中单选按钮。,66,补充： Font系列属性： 1）FontName：字体类型 Text1.FontName=”宋体” 2）FontSize: 字体大小 Text1.FontSize=20 3）ForeColor: 前景色（正文颜色） Text1.ForeColor=vbRed 4) BackColor: 背景色 Text1.BackColor=VbYellow,67,2事件 单选

40、按钮控件支持Click和DblClick事件 3. 实例 【例2-5】用单选按钮和复选框设置文本框的字体。,68,2.2.3 框架（Frame） 框架是一个容器控件，它使窗体中的各控件可分组使用。 1.主要属性： Caption属性：显示框架标题内容，若设置为“”（空），则框架显示为一个封闭的矩形框。 Enabled属性：设置框架内控件是否有效。True：框架中的对象可被用户操作；False：框架中的对象被屏蔽，禁止用户操作。 2.事件 该控件支持Click和DblClick事件。,69,3.Frame容器中对象的产生 新产生框架和子框架控件：必须先产生框架，再在框架中产生子控件。 对已有控件

41、归入框架内：选中框架外控件，剪切后，粘贴到框架内。 4实例 【例2-6】在窗体上建立一个标签、两个框架和六个单选按钮，用框架将单选按钮分成相互独立的两个组，对一个框架内的单选按钮进行操作，不会影响另一个框架内的单选按钮。,70,2.3 组合框、列表框、滚动条 2.3.1 组合框（ComboBox） 2.3.2 列表框（ListBox） 2.3.2 滚动条,71,2.3.1 组合框（ComboBox） 组合框（ComboBox）将文本框（TextBox）和列表框（ListBox）的功能组合在一起，它的特点是占用窗体位置极小，允许用户在文本框中输入内容，但要用AddItem方法将内容添加到列表框；

42、也允许用户在列表框选择项目，选中的项目同时在文本框中显示。 1.主要属性： Text属性：返回当前选中的项目文本，它是只读属性。,72,Style属性：设置组合框的类型。0（缺省值）：标准下拉组合框，具有下拉列表单选和输入新增文本的功能；1：简单组合框，设计时需要给出缺省值，列表不能下拉，只能列表滚动，单选并可以输入新增文本；2：下拉列表框，具有下拉列表单选功能，但不能输入新增项目。组合框的三种样式如图所示,73,ListCount属性：返回组合框中项目计数，它是只读属性 。 List数组属性：通过下标访问组合框项目内容，下标从0到ListCount-1。可以对List的元素项目赋值来改变内容

43、，但不能增加或删除项目，只能通过AddItem方法增加项目或RemoveItem方法删除项目。 ListIndex属性：是当前选中项目的下标索引，没有项目被选定时为-1，仅在程序代码设计时可用。 Sorted属性：组合框项目排列。True：按字母顺序排列。 False：按加入先后顺序排列。,74,2.方法 AddItem方法：用于在组合框获列表框控件中添加项目。 例：Combo1.AddItem Item,Index，其中Item为字符串表达式，要添加的项目；Index是可选项，整数，用于指定新项目在组合框或列表框控件中的位置，首行的Index为0，省略表示插入到最后。 RemoveItem方

44、法：从组合框或列表框控件控件列表中删除指定位置的项目。 例：Combo1.RemoveItem Index Clear方法：清除组合框中全部项目。 Combo1.Clear,75,3.事件 Click事件：所有类型的组合框都响应Click事件。 DblClick事件：只有当Style属性设置为1（即控件是简单组合框）时，响应该事件。 DropDown事件：当下拉ComboBox控件（显示列表前）时触发。如果其Style属 性为1 时，则不触发该事件。 KeyPress事件：当键盘按下时发生，同时获取其ASCII码。 Scroll事件：当下拉列表的滚动条滚动时，该事件发生。只有当Style属性设

45、置为1时，才会有滚动条。 4.实例 【例2-7】在窗体上建4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“选择”按钮，文本框会显示所选择的机器配置。,76,在设计时，可以在List属性中输入下拉框项目，按Ctrl+Enter键，输入一个项目，重复上述过程，直至输完全部项目，按Enter退出输入项目状态。也可通过AddItem方法在程序运行时，添加这些项目。,77,2.3.2 列表框（ListBox） 列表框（ListBox）常常用于多项目选择的场合，列表框内容可以通过滚动条浏览和选择。它支持多列显示，多项选择，但不能输入文本，占用窗体位置

46、较大。 1.属性 Text属性：返回当前选中的项目文本，它是只读属性。 List属性：设置控件的列表部分的项目，List是一个字符串数组，该数组在设计时可以通过属性直接输入，类似前面已学过的CommboBox的List属性。List属性通过下标访问其项目内容，下标从0到ListCount-1。可以对其进行赋值改变内容，但不能增加或删除项目，只能通过AddItem方法或RemoveItem方法增删项目。,78,ListIndex属性：该属性只能在程序代码中设置或引用。 ListIndex的值表示程序运行时被选定的选项的序号。如果未中任何选项时ListIndex为-1。 Style属性：设置列表框

47、的二种样式。0（缺省值）：（Standerd）标准列表框；1：CheckBox复选列表框。 Sorted属性：设置列表框中的项目是否按字母表顺序排序。True：按字母表顺序排序；False（缺省值）：按加入的先后顺序排序。,79,MultiSelect属性：针对style属性为0而言，设置列表框中的多项选择方式。0(缺省值)：不允许多项选择；1：简单多项选择，鼠标单击或按下空格键在列表中选中或取消选中项；2：扩展多项选择单击所要选择范围的第一个项目，然后按下Shift键，同时单击所要选择范围的最后一个项目，则可选定多个连续项目。按下Ctrl键，同时鼠标单击或按下空格键可以在列表框中添加选中项或

48、取消选中项。 Selected属性：是布尔数组，配合MultiSelect属性一起使用。选中项对应的Selected(List1.ListIndex)为True，其余的都是False。,80,2.方法 AddItem方法：增加新项目至列表框。 List1.AddItem Item, Index 其中：Item为字符串表达式，Index为插入索引位置，省略Index表示插入至最后。 RemoveItem方法：从列表框中指定索引位置上删除项目，其格式为：List1.RemoveItem index。 Clear方法：清除列表框中全部项目。 3.事件 列表框支持Click和DblClick事件。,8

49、1,组合框、列表框的List属性： List: 它是一个字符串数组（内存中一块连续区域） 内存：1000 0 项目List1.Text 1 (Combo1.text) 2 3 ListIndex 4 下标从0Listcount1,小学 中学 高职 大学 研究生,82,1）可以改变list列表框或Combo组合框的内容 list1.Text(2)=“大专” Combo1.Text(2)= “大专” 2)增加或删除项目只能用方法Additem或Removeitem Combo1.Additem “硕士研究生” List1.Additem “硕士研究生” 插入list列表框或Combo组合框的最后面 Combo1.Removeitem 5