可视化程序设计ch12a.ppt

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

1、1,可视化程序设计基础教程,VISUAL BASIC 6.0上海工程技术大学计算中心,2,1.介绍：计算中心 汤老师 办公室：工程实训中心14132.教材：可视化程序设计基础教程 可视化程序设计基础实践教程 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）实验课不能玩电脑游戏，若发现，一次扣5分。2）旷课一次，扣3分；上课迟

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 程序设计概述1.0 Visual Basic的发展1.1 Vis

4、ual 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等。,12,Windows操作系统的出现，为PC用户提供了一个直观的

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

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

7、准EXE”类型的应用程序sy01-01。要求单击命令按钮1，在窗口的文本框中显示变量a的值，单击命令按钮2，结束程序。,16,Private Sub Command1_Click()事件过程 Dim a%变量定义 a=100 变量赋值 Text1.Text=Str(a)End SubPrivate Sub Command2_Click()End 结束程序End Sub,17,5.结构化的程序设计语言6.强大的数据库操纵功能 利用数据控件可以访问数据库系统。7.Active 控件 程序员根据需要，将Active控件添加到标准控件的工具箱中，然后我们就象使用标准控件那样使用这些ActiveX控件。

8、利用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。3个选页：新建：建立新工程；现存：选择和打开现有的工程；最新：列出最近使用过的工程。,19,20,1.

9、2.2 集成开发环境(p4),工具箱,窗体,工程窗口,属性窗口,立即窗口,21,1.主窗口(p4p7)应用程序窗口,由标题栏、菜单栏和工具栏组成2.窗体(form)窗口 设计vb程序的界面3.工具箱(toolbox)窗口 显示各种控件的制作工具,供用户在窗体上设计4.工程资源管理器(project explorer)窗口 保存一个应用程序所有的文件,工程文件的扩展名为.VBP5.属性(properties)窗口 所有窗体或控件的属性设置6.代码(code)窗口 进行程序设计的窗口，可显示和编辑程序代码。打开代码窗口方法：鼠标双击一个控件或窗体本身。,22,1.2.3 VB的几个基本概念（p7)

10、1.类 类是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义。工具箱上的“TextBox”是类，它确定了TextBox的属性、方法和事件。2.对象 是类的一个实例,继承了类的属性、方法。Vb中常用的对象有:窗体、控件等。例：窗体上有两个Text对象，是类的实例化，它们继承了Textbox的特征，也可以根据需要修改各自的属性。,23,3.对象的建立和命名（建立的控件有缺省的名字）利用工具箱在窗体上建立控件（按钮，文本框）。建立的控件对象都有默认名字(Form1,Text1等），程序员也可以在属性窗口通过设置其Name属性给控件对象重新命名。4.对象的三要素（1）属性：对象的性质，即用

11、来描述和反映对象特征的参数。（2）方法：对象的行为，即将一些通用的过程编写好并封装起来，作为方法供用户直接调用。,24,（3）事件 响应对象的动作称为事件，它发生在用户与应用程序交互时。单击控件、鼠标移动、键盘按下等。事件过程:指附在该对象上的用户编写的程序代码,是事件的处理程序。事件驱动程序设计:程序执行后，系统等待某个事件的发生，然后去执行处理此事件的事件过程，而后系统又处于等待某事件发生的状态，这就是事件驱动程序设计方式。,25,(4).VB程序的执行步骤如下：1）启动应用程序，装载和显示窗体；2）窗体（或窗体上的控件）等待事件的发生；3）事件发生时，执行对应的事件过程；4）重复执行步骤

12、（2）和（3）；5)直到遇到“END”结束语句结束程序的运行；或按“结束”强行停止程序的运行。,26,5对象的方法 对象的“方法”指的是系统为该对象提供的一些特定的子程序，利用这些子程序来实现对象的一些特定的动作。应用程序可以通过调用对象的方法来控制对象的工作。应指出的是，在Visual Basic系统中，不同的对象拥有不同的方法。对象方法的调用格式是：对象名.方法名 参数 在Visual Basic系统中，对象方法的调用可以作为一个单独语句出现。例如，窗体对象拥有Hide、Show、Print方法，它们分别用来隐藏和显示窗体、在对象上显示文本文字和表达式的值。,27,语句：Form1.Hid

13、e可以将窗体对象Form1隐藏起来。而语句：Form1.Show使窗体对象Form1成为可见。Form1.Print a,b,c 显示变量a,b,c的内容若省略对象名Form1，在当前窗体上输出运算结果,28,6.工程 用Visual Basic开发应用程序，首先要创建一个工程。工程就是用于建立应用程序的所有文件的集合，在开发应用程序的过程中还要使用工程管理器来管理这些文件。一个应用程序通常只有一个工程，一个大型的应用程序可能有多个工程。工程中主要包含下列类型的文件：工程文件（.VBP），用来记录工程中的所有部件。每当保存工程时，Visual Basic都要更新工程文件。窗体文件（.FRM），

14、每一个窗体有一个对应的窗体文件。,29,二进制数据文件（.FRX），它与每个包含二进制属性的.FRM文件相对应，该文件不能编辑。类模块文件（.CLS），工程中可以包含多个类模块文件。标准模块文件（.BAS），存储所有模块级变量和用户自定义通用过程（指可以被应用程序各处调用的过程）。ActiveX控件文件（.OCX），包含ActiveX控件的二进制文件。资源文件（.RES），一个工程最多包含一个资源文件。,30,1.3 Vb应用程序的建立（p9)1.建立用户界面对象 文件/新建工程/新建选页/选择“标准EXE”/打开/新建一个工程，在新窗体上进行用户界面的设计。2.对象属性的设置 单击控件对象/

15、出现“属性窗口”/在该窗口中选择或输入属性值。,31,3.对象事件过程及编程 在Form窗口双击控件对象 or 右击窗体/查看代码/打开“代码窗口”（p13)代码窗口的左边“对象列表框”列出了该窗体的所有对象控件（包括窗体），右边的“过程列表框”列出了对象相关的所有事件。（1）单击对象列表框右边的下拉按钮，选择对象控件。（2）单击过程列表框右边的箭头，列出与该对象控件相关的所有事件，选择所需的事件。,32,4.保存和运行程序(p14)1）保存工程（1）选择“文件”/Form1另存为（窗体文件）/“文件另存为”对话框/输入文件名（扩展名自动添加，.frm）文件夹可选择。（例：C:VBSY,事先创

16、建）（2）选择“文件”/工程另存为（工程文件）/“工程另存为”对话框、/输入文件名（.vbp),操作同上。若要再次修改或运行该文件，文件/打开工程/选择要打开的“工程文件名”/将磁盘上的VB文件调入内存。,33,2）程序运行（1）编译运行模式 文件菜单/生成exe/将程序代码机器代码保存在.exe文件（2）解释运行模式 运行菜单/启动/系统读取事件工程代码机器代码（不保存）运行,34,1.4引例【例1-1】一行内容在窗体左、右移动；移动两种方法:手动和自动，当自动时，文字闪烁显示；当内容超出窗体,进行反弹。【例1-2】对输入的字符进行转换的程序。转换规则：大写字母转换成小写字母，小写字母转换成

17、大写字母 空格不转换 其余转换成“*”。要求：每输入一个字符，马上就进行判断和转换。通过上述两例说明VB面向对象、可视化、事件驱动的特点。,35,Dim step1 As Integer 例1-1的程序代码Private Sub Form_Load()初始化 step1=1 Timer1.Interval=0End SubPrivate Sub Command2_Click()手动 Timer1.Interval=0 Call MyMoveEnd SubPrivate Sub Command1_Click()自动 Timer1.Interval=200End SubPrivate Sub Ti

18、mer1_Timer()Static Flag As Boolean If Flag Then Label1.ForeColor=&HFFFFFF Else Label1.ForeColor=&H0&Flag=Not Flag Call MyMove 调用自定义移动过程End Sub,36,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 IfEnd Sub,37,Pr

19、ivate 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$(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 Sel

20、ect 将转换文本框已有的内容与刚输入并转换的字符连接 Text2.Text=Text2.Text&aaEnd SubPrivate Sub Command1_Click()Text1.Text=Text2.Text=End SubPrivate Sub Command2_Click()EndEnd Sub,38,实验一:简单的VB应用程序Sy01-01 启动VB6.0，创建一个“标准EXE”类型的应用程序sy01-01.vbp。要求在窗口的文本框中显示“欢迎使用Visual Basic”。单击窗体：文本框中以“宋体”，“粗体”,“16号字”显示文本；双文本框中以“幼圆”，“18号字”显示文本

21、。操作步骤：1.建立用户界面对象 文件/新建工程/新建选页/选择“标准EXE”/打开/新建一个工程，在新窗体上进行用户界面的设计。利用工具画一个文本框2.对象属性的设置 单击控件对象/出现“属性窗口”/在该窗口中选择或输入属性值。Form1的caption属性：简单vb程序3.对象事件过程及编程 在Form窗口双击控件对象（form1)or 右击窗体/查看代码/打开“代码窗口”（p20)，编写程序代码,39,Private Sub Form_Click()Text1.FontName=宋体 Text1.FontSize=16 Text1.FontBold=True Text1.Text=欢迎使

22、用Visual Basic!End SubPrivate Sub Form_DblClick()Text1.FontName=幼圆 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 命令按钮（CommandButto

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

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

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

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

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

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

29、时，触发该事件。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】建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容：利用MouseMove事件决定

30、命令按钮的有效性，即当选中内容，“剪切”、“复制”按钮有效，否则无效。命令按钮的Style属性：1-Graphical,0-Standard。（缺省）,55,Dim st As String 模块级变量Private Sub cmdCopy_Click()st=Text1.SelText 将选中的内容存放到st变量中End SubPrivate Sub cmdCut_Click()st=Text1.SelText 将选中的内容存放到st变量中 Text1.SelText=将选中的内容清除,实现了剪切 cmdCopy.Enabled=False cmdCut.Enabled=False cmdP

31、aste.Enabled=TrueEnd Sub,56,Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdPaste_Click()将st变量中的内容插入到光标所在的位置,实现了粘贴 Text1.SelText=stEnd SubPrivate Sub Form_Load()设置剪切、复制、粘贴按钮无效 cmdCut.Enabled=False cmdCopy.Enabled=False cmdPaste.Enabled=FalseEnd Sub,57,Private Sub Text1_MouseMove(Button As Intege

32、r,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 当拖动鼠标未选中文本,剪切、复制按钮无效 cmdCopy.Enabled=False cmdPaste.Enabled=True End IfEnd Sub,58,2.1.3文本框（TextBox）文本框（TextBox）是一个文本编辑区域

33、，可在该区域输入，编辑和显示正文内容，在程序运行时作为人机对话的交互对象。1.主要属性 Text:文本框无Caption属性，显示正文内容在Text属性中。Maxlength:设置正文的最多字符个数,0：任意长度值.,MultiLine:设置文本框是否能够接受和显示多行文本，在运行时为只读。True：允许多行显示；False：缺省值，不允许多行显示。,59,ScrollBars:当MultiLine为True时,该属性才有效,其属性值有：0-None（缺省值）：无滚动条。1-Horizontal：水平滚动条。2-Vertical：垂直滚动条。3-Both：水平和垂直滚动条。Locked:文本控

34、件是否可被编辑，False（缺省），表示为可编辑；True:不可编辑。PassWord:口令字符。Text属性返回输入的数据,屏幕显示该字符。SelStart，SelLength，SelText:选中文本的起始、长度、内容。这三个属性在程序界面设计时不可用。,60,2.常用事件 Change事件：在文本框中输入或改变内容，以及程序运行时，Text属性改变而触发该事件。KeyPress事件：按下并且释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件。LostFocus事件：控件失去焦点时发生。在程序代码中可使用SetFocus方法来改变焦点。GetFocus事件：当控件获得

35、焦点时发生。为获得焦点，用户可以通过Tab键切换，或单击对象等操作，或在程序代码中用SetFocus方法设置焦点。,61,3.常用方法 对象.SetFocus:把光标移到指定的文本框对象中，它还可以用于CheckBox、CommandButton和ListBox等控件。4实例【例2-4】在窗体上建立一个标签和两个文本框，观察获得焦点的文本框事件GetFous和失去焦点的文本框事件LostFocus。分别单击Text1和Text2文本框。,62,2.2 复选框、单选按钮、框架 2.2.1 复选框（CheckBox）2.2.2单选按钮（OptionButton）2.2.3 框架（Frame）,63

36、,2.2.1 复选框（CheckBox）复选框（CheckBox）常用于对给定选项的逻辑选择，若干个复选框可以多项组合使用。1.主要属性 Caption属性：设置复选框显示的文本内容，也可以用连字符创建快捷方式来切换复选框的选择。Alignment属性：设置复选框的对齐方式。0（缺省值）：复选框在文本的左边；1：复选框在文本的右边。,64,Value属性：设置CheckBox控件的状态。0（缺省值）：未选定；1：选定显示为打勾；2：禁止状态，暗淡显示。Style属性：设置CheckBox控件的显示类型：0（缺省值）-Standard：标准方式。1-Graphical：图形方式。2.事件Clic

37、k事件：当单击复选框控件时触发Click事件，自动改变状态。该控件不支持DblClick事件。,65,2.2.2 单选按钮（OptionButton）单选按钮（OptionButton）用于一组多选一的控件，若干个单选按钮可以分组使用。在同一组单选按钮中，只能选择其中的一个选项，即当选中某一个单选按钮时，其他单选按钮会自动失选。1.主要属性 Caption属性：单选按钮旁的显示文本。Value属性：设置单选按钮的状态。True：选中单选按钮，当中有一个圆点，同组的其他单选按钮失效；False：未选中单选按钮。,66,补充：Font系列属性：1）FontName：字体类型Text1.FontNa

38、me=”宋体”2）FontSize:字体大小Text1.FontSize=203）ForeColor:前景色（正文颜色）Text1.ForeColor=vbRed 4)BackColor:背景色 Text1.BackColor=VbYellow,67,2事件单选按钮控件支持Click和DblClick事件 3.实例【例2-5】用单选按钮和复选框设置文本框的字体。,68,2.2.3 框架（Frame）框架是一个容器控件，它使窗体中的各控件可分组使用。1.主要属性：Caption属性：显示框架标题内容，若设置为“”（空），则框架显示为一个封闭的矩形框。Enabled属性：设置框架内控件是否有效。T

39、rue：框架中的对象可被用户操作；False：框架中的对象被屏蔽，禁止用户操作。2.事件 该控件支持Click和DblClick事件。,69,3.Frame容器中对象的产生 新产生框架和子框架控件：必须先产生框架，再在框架中产生子控件。对已有控件归入框架内：选中框架外控件，剪切后，粘贴到框架内。4实例【例2-6】在窗体上建立一个标签、两个框架和六个单选按钮，用框架将单选按钮分成相互独立的两个组，对一个框架内的单选按钮进行操作，不会影响另一个框架内的单选按钮。,70,2.3 组合框、列表框、滚动条2.3.1 组合框（ComboBox）2.3.2 列表框（ListBox）2.3.2 滚动条,71,

40、2.3.1 组合框（ComboBox）组合框（ComboBox）将文本框（TextBox）和列表框（ListBox）的功能组合在一起，它的特点是占用窗体位置极小，允许用户在文本框中输入内容，但要用AddItem方法将内容添加到列表框；也允许用户在列表框选择项目，选中的项目同时在文本框中显示。1.主要属性：Text属性：返回当前选中的项目文本，它是只读属性。,72,Style属性：设置组合框的类型。0（缺省值）：标准下拉组合框，具有下拉列表单选和输入新增文本的功能；1：简单组合框，设计时需要给出缺省值，列表不能下拉，只能列表滚动，单选并可以输入新增文本；2：下拉列表框，具有下拉列表单选功能，但不

41、能输入新增项目。组合框的三种样式如图所示,73,ListCount属性：返回组合框中项目计数，它是只读属性。List数组属性：通过下标访问组合框项目内容，下标从0到ListCount-1。可以对List的元素项目赋值来改变内容，但不能增加或删除项目，只能通过AddItem方法增加项目或RemoveItem方法删除项目。ListIndex属性：是当前选中项目的下标索引，没有项目被选定时为-1，仅在程序代码设计时可用。Sorted属性：组合框项目排列。True：按字母顺序排列。False：按加入先后顺序排列。,74,2.方法 AddItem方法：用于在组合框获列表框控件中添加项目。例：Combo1

42、.AddItem Item,Index，其中Item为字符串表达式，要添加的项目；Index是可选项，整数，用于指定新项目在组合框或列表框控件中的位置，首行的Index为0，省略表示插入到最后。RemoveItem方法：从组合框或列表框控件控件列表中删除指定位置的项目。例：Combo1.RemoveItem Index Clear方法：清除组合框中全部项目。Combo1.Clear,75,3.事件Click事件：所有类型的组合框都响应Click事件。DblClick事件：只有当Style属性设置为1（即控件是简单组合框）时，响应该事件。DropDown事件：当下拉ComboBox控件（显示列表

43、前）时触发。如果其Style属 性为1 时，则不触发该事件。KeyPress事件：当键盘按下时发生，同时获取其ASCII码。Scroll事件：当下拉列表的滚动条滚动时，该事件发生。只有当Style属性设置为1时，才会有滚动条。4.实例【例2-7】在窗体上建4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“选择”按钮，文本框会显示所选择的机器配置。,76,在设计时，可以在List属性中输入下拉框项目，按Ctrl+Enter键，输入一个项目，重复上述过程，直至输完全部项目，按Enter退出输入项目状态。也可通过AddItem方法在程序运行时，添

44、加这些项目。,77,2.3.2列表框（ListBox）列表框（ListBox）常常用于多项目选择的场合，列表框内容可以通过滚动条浏览和选择。它支持多列显示，多项选择，但不能输入文本，占用窗体位置较大。1.属性Text属性：返回当前选中的项目文本，它是只读属性。List属性：设置控件的列表部分的项目，List是一个字符串数组，该数组在设计时可以通过属性直接输入，类似前面已学过的CommboBox的List属性。List属性通过下标访问其项目内容，下标从0到ListCount-1。可以对其进行赋值改变内容，但不能增加或删除项目，只能通过AddItem方法或RemoveItem方法增删项目。,78,

45、ListIndex属性：该属性只能在程序代码中设置或引用。ListIndex的值表示程序运行时被选定的选项的序号。如果未中任何选项时ListIndex为-1。Style属性：设置列表框的二种样式。0（缺省值）：（Standerd）标准列表框；1：CheckBox复选列表框。Sorted属性：设置列表框中的项目是否按字母表顺序排序。True：按字母表顺序排序；False（缺省值）：按加入的先后顺序排序。,79,MultiSelect属性：针对style属性为0而言，设置列表框中的多项选择方式。0(缺省值)：不允许多项选择；1：简单多项选择，鼠标单击或按下空格键在列表中选中或取消选中项；2：扩展多

46、项选择单击所要选择范围的第一个项目，然后按下Shift键，同时单击所要选择范围的最后一个项目，则可选定多个连续项目。按下Ctrl键，同时鼠标单击或按下空格键可以在列表框中添加选中项或取消选中项。Selected属性：是布尔数组，配合MultiSelect属性一起使用。选中项对应的Selected(List1.ListIndex)为True，其余的都是False。,80,2.方法AddItem方法：增加新项目至列表框。List1.AddItem Item,Index其中：Item为字符串表达式，Index为插入索引位置，省略Index表示插入至最后。RemoveItem方法：从列表框中指定索引位

47、置上删除项目，其格式为：List1.RemoveItem index。Clear方法：清除列表框中全部项目。3.事件列表框支持Click和DblClick事件。,81,组合框、列表框的List属性：List:它是一个字符串数组（内存中一块连续区域）内存：1000 0 项目List1.Text 1(Combo1.text)2 3ListIndex 4下标从0Listcount1,小学中学高职大学研究生,82,1）可以改变list列表框或Combo组合框的内容 list1.Text(2)=“大专”Combo1.Text(2)=“大专”2)增加或删除项目只能用方法Additem或Removeitem

48、 Combo1.Additem“硕士研究生”List1.Additem“硕士研究生”插入list列表框或Combo组合框的最后面Combo1.Removeitem 5 List1.Removeitem 5（索引值）将硕士研究生项删除,83,3）Selected属性：List控件特有的，是一个布尔数组，只能在程序设计中设置或引用。表示对应项在程序运行期间是否被选中。例：List1.Selected(2)为True，表示列表框的第2项“高职”被选中，否则表示未被选中。那么其余项都是False,表示未被选中。4)事件 列表框支持Click和DblClick,84,4.实例【例2-8】设计如图所示的界

49、面，左列表框列出了某数据表格的待选择项目内容，右列表框显示已经选择的项目。各按钮功能：右移：将左侧列表框中待选择的字段移动到右侧列表框中。左移：将右侧列表框中已选择的字段移回到左侧列表框中。：将左侧列表框中的所有字段移动到右侧列表框中。：将右侧列表框中的所有字段移回到左侧列表框中。,85,2.3.3滚动条 水平滚动条（HScrollBar）和垂直滚动条（VScrollBar）控件常常用来附加在窗体上协助观察数据或确定位置，也可用来作为输入工具。该控件和文本框、列表框等控件中出现的滚动条不同，是一个独立的控件。1.主要属性 Max属性：当滑块处于最大位置时所代表的值（-3276832767)。M

50、in属性：当滑块处于最小位置时所代表的值（-3276832767)。,86,Value属性：滚动条滑块所处位置的当前值，该值介于Max和Min属性值之间，包括Max和Min。改变Value值可以用以下几种方法：属性窗口设置；单击移动箭头；拖动滚动滑块；单击滚动条两头；通过外界改变（如程序代码）。LargeChange属性：当用户单击滚动条滑块和滚动箭头之间的区域时，设置Value值的最大改变量。SmallChange属性：当用户单击滚动箭头时，设置Value值的最小改变量。2.事件 Change事件：程序运行时，改变Value值的操作会触发该事件。Scroll事件：当鼠标拖动滑块时，触发该事件