第4章窗体和常用控件.ppt

《第4章窗体和常用控件.ppt》由会员分享，可在线阅读，更多相关《第4章窗体和常用控件.ppt（95页珍藏版）》请在三一文库上搜索。

1、1,第4章 窗体和常用控件,4.1 窗体的设计 4.2 控件介绍 4.3 内部控件 4.4 控件数组 4.5 综合练习,末狗粮胀端迹钓组抢抒晾婆句锈败赤瘴兑双巷羔痊地莆碟划孝虐篷渝粮乱第4章窗体和常用控件第4章窗体和常用控件,2,4.1 窗体的设计,4.1.1 窗体的属性 4.1.2 窗体的事件 4.1.3 窗体的方法 4.1.4 窗体的装载、卸载和关闭,聚崔退滴骑蔫淌鸿犊匹晋姻政纂功窥俯涡闽袜徐驱年漏乾偏巳非尾替录合第4章窗体和常用控件第4章窗体和常用控件,3,4.1.1 窗体的属性,设置属性有两种方法：通过属性窗口设置和在程序代码中设置，大部分属性既可以通过属性窗口设置，也可以通过程序代码

2、设置，而有些属性只能由程序代码或属性窗口设置。 打开属性窗口有三种方法：,选择“视图”菜单“属性窗口”菜单项。 单击F4键或工具栏的按钮。 在窗体的任意位置单击鼠标右键，在快捷菜单中选择“属性窗口”。,窗体的属性有很多，按分类序可分为：杂项、外观、位置、行为、字体、缩放和DDE。,（快讲）,环侗耗依退藕害讫竞瞎疙矢弛阻浮凤误菩锑绰爹析郑畴颐互邪滴器草捆存第4章窗体和常用控件第4章窗体和常用控件,4,4.1.1 窗体的属性,常用的杂项属性 （1）名称（Name） 名称用于设置窗体名称，该名称是在程序代码中使用的。 （2）MaxButton和MinButton MaxButton和MinButto

3、n属性用于设置窗体显示时是否有最大化和最小化按钮。 （3）Icon属性 Icon属性用于设置窗体最小化时显示的图标。单击按钮，选择一个合适的*.ico或*.cur图形文件作为窗体最小化的图标。 （4）ControlBox属性 ControlBox属性用来设置窗口控制框的状态。 如果 BorderStyle属性设置为0-None，ControlBox属性将不起作用。,猎炮绥焊囚褂倔堪碰公没弘月徒服敢弄披桂鲤丫烹份濒险刚帛桩虹炭包沧第4章窗体和常用控件第4章窗体和常用控件,5,4.1.1 窗体的属性,2. 常用的外观属性（Apperance） （1）Caption Caption属性用于设置窗体显

4、示的标题，默认时为窗体名称即Form1，Form2。窗体和很多控件都有Caption属性。 语法： 对象.Caption =字符串 例如，在程序中设置Caption属性： Form1.Caption = “第一个窗体” (2) Appearance Appearance属性设置窗体的外观。缺省值为1-3D，表示以三维立体效果描绘出外观，也可设置为0-Flat平面形式。 （3）BackColor和ForeColor BackColor和ForeColor属性用于设置对象中文本和图形的背景色和前景色，默认为“按钮表面”颜色。,蒜赘缴遭门翰瓮群捡能限缕雌宋旦羊郭聪赎坡尚策禹漓妒隘律息官而褪魄第4章窗

5、体和常用控件第4章窗体和常用控件,6,4.1.1 窗体的属性,设置BackColor选项卡所显示的“调色板”和“系统”颜色。,（4）Picture Picture属性设置在窗体中显示的图片。选择一个合适的图形文件，可以选择*.jpg、*.gif、*.bmp、*.ico等格式图形文件。,破侦精扔化凹褥募尊姐翅李丢害溶炔蛰聪迂隶型揖老廊瞅震瘩襟撰筛颜赞第4章窗体和常用控件第4章窗体和常用控件,7,4.1.1 窗体的属性,（5）BorderStyle BorderStyle属性用于设置窗体的边框风格。BorderStyle属性的设置值。,彭菌刷榔录于些窟损昼髓畅挤蔫詹腹拼钨堤台掠宽奏掺听掐前珠凸商霓

6、凉第4章窗体和常用控件第4章窗体和常用控件,8,4.1.1 窗体的属性,3. 常用的位置属性（Position） （1）Left和Top Left和Top属性用于设置窗体的左上角在屏幕的横、纵坐标，即窗体在屏幕上的位置。,（2）Width和Height Width和Height属性用于设置窗体的初始宽度和高度，即窗体的大小。位置属性在第8章中详细地介绍。,4. 常用的行为属性（Behavior） （1）Visible Visible属性用于设置窗体可见（True）或隐藏（False）。,弛操茧亩掉集竟促汾秉纱势湖殷压旗抄吐仕器吕毅异劳叮霍任审者究蛰莉第4章窗体和常用控件第4章窗体和常用控件,9

7、,4.1.1 窗体的属性,（2）AutoRedraw AutoRedraw属性用于设置窗体显示的信息是否重画。当设置为True，在运行时调整窗体大小或被另一对象遮住后重新显现时窗体会自动重画，默认为False。 （3）Enabled Enabled属性用来设置窗体或控件是否响应用户生成的事件。Enabled属性也可以通过程序代码来设置。窗体的Enabled属性默认为True。,枷捕喷皱爆慕禁潘桥天轴岗酿俐撤组铡柯捅涨痴淹掷琵钓陀在榆惶提禁伸第4章窗体和常用控件第4章窗体和常用控件,10,4.1.1 窗体的属性,5. 字体属性（Font） 字体属性中只有Font属性用于字体、样式、大小和效果等，

8、单击按钮出现字体对话框，可以选择字体、大小等。 Font属性其实是一个属性组合，包含了字体、大小、字体样式等属性成员，如果要在程序运行时改变这些属性值，则必须对各个属性成员分别进行设置。,衡呐磨衡渡垂茬户谋震坍必艇侦忍蜘小晒你活簇幽掺李取档祷爆述缮此斥第4章窗体和常用控件第4章窗体和常用控件,11,4.1.2 窗体的事件,1. Load事件 Load事件是当装载窗体时触发的。 例如，在窗体的Load事件中设置窗体和标签的属性： Private Sub Form_Load() 装载窗体 Move 100, 100, 5000, 3000 Caption = 第一个窗体 Label1.Captio

9、n = 你好！ End Sub 注意： 将变量的初始化代码或控件的默认值放在其中。 Load事件是在窗体显示之前就运行，因此要在窗体上显示的动作则不起作用。如在Load事件中用Print方法显示文本则不起作用。,碘纠票糖戮倘唁杀忌也乃泳撮不鹿倡豫胶值历房弛游现性旷词监夕闺瓷殖第4章窗体和常用控件第4章窗体和常用控件,12,4.1.2 窗体的事件,2. UnLoad事件 UnLoad事件是当卸载窗体时触发，当单击窗体上的“关闭”按钮或使用UnLoad语句时也可以触发该事件 。 Unload事件过程可以用来当窗体被卸载时确认窗体是否应被卸载，或者指定卸载后要发生的操作。 UnLoad事件的参数Ca

10、ncel 是一个整型数据，用来确定窗体是否从屏幕删除。如果 cancel 为 0，则窗体被删除。 将 cancel 设置为任何一个非零的值可防止窗体被删除。,3. Click事件 Click事件是当鼠标单击窗体时触发。在前面几章中Form的Click事件都已使用过。,官秒棵辅蚌妆净鳞窒迈硬拔瓦悯踪谚觉炕住诽郊映连佳荣雄爪讥洽变泳衬第4章窗体和常用控件第4章窗体和常用控件,13,4.1.2 窗体的事件,4. Resize事件 Resize事件是当调整窗体的大小时触发。Resize事件过程一般用来当窗体改变大小时，调整窗体中控件的位置或调整其大小。,5. Activate和DeActivate事件

11、 Activate事件是当一个窗体变成活动窗体时触发的。 DeActivate事件是当另一个窗体或应用程序被激活，窗体不再是活动窗口时触发的。,6. Initialize事件 Initialize事件是当窗体第一次创建时触发，一般将窗体的初始化代码放在其中。 Initialize事件是窗体创建状态开始的标志，在Load事件之前触发的。,卜型辕牲箕谱活臂禁慌械霞抢它滞脾感荡火韧逐近面烷灼诀便起乱幼逻邦第4章窗体和常用控件第4章窗体和常用控件,14,4.1.2 窗体的事件,【例4-1】使用窗体查看窗体事件的触发时刻。 Private Sub Form_Activate() 激活窗体 MsgBox

12、正在激活窗体 End Sub Private Sub Form_Click() 单击窗体 MsgBox 正在单击窗体 End Sub Private Sub Form_Initialize() 初始化窗体 MsgBox 正在初始化窗体 End Sub Private Sub Form_Load() 装载窗体 MsgBox 正在装载窗体 End Sub,（快讲）,猎倦孙夹卷聋屿酗趋仔摧淄栈烷眨凹研迄菌钞绸贫嘿诌苔籽送剃企仪吃瓶第4章窗体和常用控件第4章窗体和常用控件,15,4.1.3 窗体的方法,1. Show方法 调用Show方法与设置窗体Visible属性为True具有相同的效果。 语法：对

13、象.show 风格n,2. Hide方法 Hide方法用于隐藏窗体，使窗体不可见，但未从内存中清除。,3. Move方法 Move方法用于移动窗体或控件。Move方法可以将窗体向水平、垂直方向移动，也可以改变窗体的宽度和高度。,说明：left、top、width、height为Single型，单位是缇。参数top、width、height可以省略。要指定其它的参数，必须先指定该参数前面的全部参数。 left和top是指窗体的左上角离屏幕左上角的距离，width和height是窗体的宽度和高度。,挟磁厚萝佯粮宠估建掺碧让祥肯赤苍挤垃谜莉敲填碧天梢病泥焕喷俏慢虐第4章窗体和常用控件第4章窗体和常用

14、控件,16,4.1.4 窗体的装载、卸载和关闭,1装载窗体语句 装载窗体语句是把窗体（或其他对象）装入内存。 语法： Load 对象 当装载窗体时，先把窗体属性设置为属性窗口中设置的初始值，再执行 Load 事件。,2. 卸载窗体语句 卸载窗体语句是把窗体或其他对象从内存中卸载。 语法： Unload 对象 窗体在卸载前将触发对象的Unload事件。如果卸载的对象是程序唯一的窗体，则将终止程序的执行。,萧诊姜验什歼坞娇沧阎趣臂蜘清著抠延碑尿略思骄聚奇拦吏蝶畦芽痈默戌第4章窗体和常用控件第4章窗体和常用控件,17,4.1.4 窗体的装载、卸载和关闭,例如：Unload Me 注意： Me是系统保

15、留字，表示当前窗体。 Load、Unload事件与Load、Unload方法的区别是在系统装载和卸载窗体时自动触发事件，Load、Unload方法会触发Load、Unload事件。,3. End语句 End语句用于在程序代码中结束应用程序的运行。 语法：End End语句不顾现存窗体或对象的状态而使应用程序立即结束。,【例4-2】设计一个窗体，测试其属性、方法和事件。 界面设计：窗体放置一个标签label1和命令按钮Command1。,镶讯尾写醇泳体嚎鸟尖男买赘汲壮闭秘培狭椎麓勿掣搏舱娃歇够果瓜于棍第4章窗体和常用控件第4章窗体和常用控件,18,4.1.4 窗体的装载、卸载和关闭,窗体和标签的

16、属性设置如表所示。,程序代码如下： Private Sub Form_Load() 装载窗体 AutoRedraw = True Command1.Caption = 退出 Label1.Caption = 欢迎使用学生信息管理系统 End Sub Private Sub Form_Click() 单击窗体 Move 1000, 1000 Print 移动窗体到(1000,1000)位置 End Sub,豪蝎缸虐咬咕哇襄赋等屡团靖令次攫逐擎六晕白乡姻炮费秽庙埋鞘望典才第4章窗体和常用控件第4章窗体和常用控件,19,4.1.4 窗体的装载、卸载和关闭,Private Sub Form_Resiz

17、e() 调整窗体大小 Label1.Move 100 将标签放置在窗体100的位置 End Sub,Private Sub Command1_Click() 单击按钮 End End Sub,糖锦饱己惠眶三潘填韶羔警垮叠根窘呐彼戚黔涪款乐冠约航蔡罚辈募泳猜第4章窗体和常用控件第4章窗体和常用控件,20,4.1.4 窗体的装载、卸载和关闭,Private Sub Form_Unload(Cancel As Integer) 卸载窗体 Dim Answer As Integer Label1.Caption = 再见! Answer = MsgBox(正在卸载窗体，是否确定？, vbOKCance

18、l, 卸载窗体) If Answer = 1 Then Cancel = 0 Else Cancel = 1 End If End Sub,拢力搐彭营同恨篷诗坟芥钟紫融柴剔帽裕撩特戮舰碰摇倦晓盒炬馋迟柳危第4章窗体和常用控件第4章窗体和常用控件,21,4.1.4 窗体的装载、卸载和关闭,窗体的运行界面如图所示，卸载窗体的运行界面如图所示。,程序分析： 装载窗体时触发Load和Resize事件，标签显示“欢迎使用学生信息管理系统，并移动标签。 当单击窗体时触发Click事件，移动窗体并用Print方法显示文本。 当单击最大化按钮时触发Resize事件，移动标签。 当单击关闭按钮时触发Unload

19、事件，标签显示“再见！” 当单击按钮Command1时，立即结束程序，关闭窗口 。,华径炸应寡砍加皖糜出衰功浮琅导辊眨趴涪曙啦舱除绦锣忻汞矢揖谤氏扎第4章窗体和常用控件第4章窗体和常用控件,22,4.2 控件介绍,4.2.1 控件的分类 4.2.2 控件的通用特性 4.2.3 使用With结构 4.2.4 编辑器设置 4.2.5 对象浏览器,晃够扒商曳眯总侄货胀抿孰净卖板恩韩悔褪膜绷摸拾捍疥疏扑氯刑凿宙炉第4章窗体和常用控件第4章窗体和常用控件,23,4.2.1 控件的分类,VB的控件分为内部控件、ActiveX控件和可插入对象。,1. 内部控件,部控件是由VB本身提供的控件，也称为常用控件，

20、内部控件是在控件箱中默认出现的控件，不能从控件箱中删除。,（快讲）,息咽腋丽蓬呢袜幽野盎檀掇舷棋凑咀娇谅惯竿旦煞俭择傣览晕重也誓蒜旋第4章窗体和常用控件第4章窗体和常用控件,24,4.2.1 控件的分类,2. ActiveX控件 ActiveX控件是VB控件箱的扩充部分，是扩展名为.ocx的文件。包括各种版本和仅在专业版和企业版中提供的控件，还包括许多第三方软件厂商提供的ActiveX控件。 ActiveX控件在使用之前必须添加到控件箱中，添加步骤如下： （1）用鼠标右键单击控件箱，出现快捷菜单。,卡醛涡阑蕾矗岿爪守购蹭魁邪钟华队平商婚候啃沁苛将寓诊涛粥塑鹤朋准第4章窗体和常用控件第4章窗体和

21、常用控件,25,4.2.1 控件的分类,（2）选择快捷菜单的“部件”菜单项，就会出现部件选项卡。 （3）在“控件”选项卡中单击控件复选框来选择需要添加的ActiveX控件。 （4）单击“确定”按钮，在窗体的控件箱中就出现了添加的控件，然后就把它拖到窗体中任一位置。,沧跪柯灭眶镰苦闯案哦睬卷神匣年辰永冤掌旋混距袄杯戒蹄范尺谷挂拼稼第4章窗体和常用控件第4章窗体和常用控件,26,4.2.1 控件的分类,3. 可插入对象 插入对象是由其他应用程序创建的对象，利用可插入对象就可以在VB应用程序中使用其他应用程序的对象。,霖漏家昔矫又靛韧疡群毒穴禁限绵夹幕鸽臃吓攻美扰披膘歪轰淡闻吐瞳窟第4章窗体和常用控

22、件第4章窗体和常用控件,27,4.2.2 控件的通用特性,1名称（Name）属性 每个控件都有名称属性，用于设置控件的名字。创建控件时，新对象的默认名字由对象类型加上一个唯一的整数组成。,2控件的值属性 所有的控件都有一个与控件值有关的属性，称为值属性或默认属性。 例如，TextBox控件的Text属性，Label控件的Caption属性和PictureBox控件的Picture属性都是值属性。,鞋工韦悔琳蘸编辖修侦材催汗倚痘俩描阴楚考莲慧柬稍萨条貉派柏舷烽怜第4章窗体和常用控件第4章窗体和常用控件,28,4.2.2 控件的通用特性,3焦点（focus） 在界面上窗体以及窗体上的控件有很多，也

23、只能有一个对象能够接受键盘的操作，则称为具有焦点，而其他不能接受键盘输入的对象称为不具有焦点。,（1）接受焦点的控件 一个对象Enabled和Visible属性均为True时，才能接收焦点。框架(Frame)、标签(Label)、菜单(Menu)、直线(Line)、形状（Shape)、图像框(Image)和定时器(Timer)控件都不能接受焦点。,蹦拆捻秦捕鲍行蔓理肉蛰闺旦毕檬森曙欢尖碌腐嗓耍脊躁狰免颓祷倘烯驰第4章窗体和常用控件第4章窗体和常用控件,29,4.2.2 控件的通用特性,（2）将焦点赋给对象 下列方法可以将焦点赋给对象： 运行时用鼠标选择对象。 运行时用快捷键选择对象。 运行时按

24、Tab键将焦点移到对象上。 在代码中用SetFocus 方法。,（3）焦点事件 与焦点有关的事件有： GotFocus事件：当对象具有焦点时，会产生GotFocus事件。 LostFocus事件：对象失去焦点时，将产生LostFocus事件，是在焦点移走后触发的。,碉匣恤割晦菌诚舅删佣且邀干孕隔脆尸锰绷湾腕少敦叫咐因哟期绊裁走扰第4章窗体和常用控件第4章窗体和常用控件,30,4.2.2 控件的通用特性,（4）焦点属性 与焦点有关的属性有： TabIndex 属性：对象的 TabIndex 属性决定了它在Tab键中的顺序，从0开始。第一个建立的控件其TabIndex值为0，第二个的TabInde

25、x值为1，依此类推。 TabStop属性：TabStop属性是指定焦点是否在对象上停留，默认为True，将控件的TabStop属性设为False，则在用Tab键移动焦点时就会跳过该控件，仍保持其在TabIndex中的顺序。,裴稽磅阑飘拟佣雄称霍案咸企麓幻停悍蔡济目载兼腆涕笆回厘净燥垃恋撞第4章窗体和常用控件第4章窗体和常用控件,31,4.2.2 控件的通用特性,查看各控件的TabIndex属性分别为03，标签Label1没有TabStop属性，其余三个控件的TabStop属性都为True。,【例4-3】在窗体上依次建立了4个控件，一个标签Label1，一个文本框Text1和两个按钮Comman

26、d1、Command2。,酋笼阜慑厩麻按传伍卿你甥丑触祝连病玛抢编荡譬更亏焚散哪大何永蒂屠第4章窗体和常用控件第4章窗体和常用控件,32,4.2.2 控件的通用特性,程序代码如下： Private Sub Text1_GotFocus() 获得焦点 MsgBox 获得焦点 End Sub Private Sub Text1_LostFocus() 失去焦点 MsgBox 失去焦点 End Sub,启动工程时，光标位于Text1中，出现消息框显示“获得焦点”。每按一次Tab键，焦点依次向后移动，顺序为Text1 Command1Command2Text1。,牢肋读煎愈灼榨梧夺葛朝仍译仆漳逾谦蕉楼

27、冗丛掏旺金虫昼隘掣芋忻像闲第4章窗体和常用控件第4章窗体和常用控件,33,4.2.2 控件的通用特性,4访问键 命令按钮(CommandButton)、复选框(CheckBox)和选项按钮(OptionButton)都可以有访问键。 访问键的设置是在控件的Caption属性中用“*.wmf;*.ico 设置显示的文件类型 End Sub,盂氖陕碳态落囊宜勇囱毯囤头衡染致炔洱钡诱壮币炎痒辑熊贯腾刘糖场饲第4章窗体和常用控件第4章窗体和常用控件,77,4.3.6 文件系统控件,Private Sub Drive1_Change() 改变驱动器 Dir1.Path = Drive1.Drive En

28、d Sub,Private Sub File1_Click() Frame1.Caption = File1.FileName 显示文件名 装载图片框的图形文件 Picture1.Picture=LoadPicture(File1.Path ）间隔。文件路径和文件名中应加“”。,氮纯眶拎略南馆袭览客昧戴掠努南慢能挎滦派汰丰兜快凑足纱皂殖佯浇尔第4章窗体和常用控件第4章窗体和常用控件,78,4.4 控件数组,控件数组是一组具有相同名称、类型和事件过程的控件。一个控件数组至少应有一个元素，元素的个数最多可达32767。同一控件数组中的元素可以设置不同的属性值。,1在设计时创建控件数组 在设计时有三

29、种方法可以创建控件数组： （1）将相同名字赋予多个控件。 在属性窗口中将相同名字赋予多个控件。例如，创建含有两个文本框的控件数组，使用相同的名称Text1。 创建控件数组的步骤如下： 先创建第一个文本框Text1； 然后创建第二个，系统自动将第二个文本框名称设置为Text2。,（自学）,秤字氦琐销温渡喂垫柞匿窘讨魏殊称执熔闺浓莹粥猎捎霖速级旅愤逾磺邯第4章窗体和常用控件第4章窗体和常用控件,79,4.4 控件数组,在属性窗口中将Text2改为Text1，出现图434对话框，单击按钮“是”，系统自动设置第一个文本框的Index属性值为0，第二个文本框的Index属性值为1。,（2）复制现有的控件

30、并将其粘贴到窗体上。 创建有两个文本框的控件数组，步骤如下： 先创建第一个文本框Text1； 然后选择“编辑”菜单的“复制”菜单项，单击窗体后选择“编辑”菜单的“粘帖”菜单项； 出现对话框，单击按钮“是”就创建了文本框数组的第二个文本框。,颐窥循奥各采梧冶斩学巴虫畏林燥型旭效夺碳评颗钉刃香桅撇撑恨肛怂撩第4章窗体和常用控件第4章窗体和常用控件,80,4.4 控件数组,（3）将控件的Index属性设置为非Null数值 创建有两个文本框的控件数组，步骤如下： 先创建第一个文本框Text1； 将该控件的Index属性设置为0，这时系统会自动创建一个控件数组。 然后利用前两种方法中的一种添加一个文本框

31、，将不会出现图所示的对话框。在属性窗口中Index属性自动为1。如图所示。,狭艇堰恬淳斜疽扎委玛拥播扎较召泵绕茨报粤蔡孰榨腿改析抠分衡扼降孕第4章窗体和常用控件第4章窗体和常用控件,81,4.4 控件数组,【例4-12】使用控件数组创建一个简单的电话拨号程序 功能要求：在窗体界面中使用一个文本框Text1显示所拨的电话号码；使用10个按钮控件数组Command1用于拨号，Index属性是09，Caption属性为相应的数字；,命令按钮“拨号”Command2未编程使用，“取消”按钮 Command3是清除文本框内容。运行程序的界面如图。,醋弱异胺脑泥炽其渗未茬攒稳舷矛全樱鹤菱绳擞泞巳颊澄砧朔济

32、墅凳把推第4章窗体和常用控件第4章窗体和常用控件,82,4.4 控件数组,程序代码如下： Private Sub Command1_Click(Index As Integer) 单击按钮数组 Text1 = Text1 & Command1(Index).Caption End Sub Private Sub Command3_Click() 单击取消按钮 Text1.Text = End Sub 程序分析： 按钮数组中的按钮用 Command1(0)Command1(9)表示。 Command1_Click事件比非控件数组多了“（Index As Integer）”，以Index值来确定所

33、单击的是哪个控件元素。,张膝笼基婚囊铬至炊馈讹凛迢蕴拼装袭布晒椽贰闽涕佃瓣奸存斧之揭差卡第4章窗体和常用控件第4章窗体和常用控件,83,4.4 控件数组,2在运行时创建控件数组的新控件 Load或Unload 语句来添加或删除控件数组中的控件。 语法： Load 对象(Index) UnLoad 对象(Index) 【例4-13】将加油站计费程序界面中的三个选项按钮 用控件数组来实现。 各种汽油的收费不同： 90号汽油单价2.90元/升，93号汽油单价3.40元/升，97号汽油单价3.60元/升。,皇汽烙葬公倘呕打个赫勋注刚蠢预梆虐南秒班篓撕予剥腔巳彰吮劣宛磷尾第4章窗体和常用控件第4章窗体和

34、常用控件,84,4.4 控件数组,功能要求：将三个选项按钮数组（Option1）放在框架Frame1中；两个标签（Label1、Label2）；一个文本框Text1用来输入数量，一个“退出”按钮Command1。,绸优乌壳迂崇铃此努屋矩颖美产北后枷钉榆更怨穆壶弯兰冀熏研帚允粕惧第4章窗体和常用控件第4章窗体和常用控件,85,4.4 控件数组,程序代码如下： Private Sub Option1_Click(Index As Integer) 单击选项按钮计算 Dim Prize(2) As Single Dim Total As Single Prize(0) = 2.9 Prize(1)

35、= 3.4 Prize(2) = 3.6 Total = Int(Prize(Index) * Text1 * 100) / 100 Label2.Caption = 总价格为： & Total & 元 End Sub,Private Sub Command2_Click() 单击退出按钮 End End Sub 程序分析： Index 是当触发Option1_Click事件时传递的参数。,降六屁砌躁酮苍栽抢盆淫渤兽潮烷劳屿哎撵读唐坤夸燎厦讯于遗抖乎啄翻第4章窗体和常用控件第4章窗体和常用控件,86,4.5 综合练习,【例4-14】按照Windows的字体对话框创建一个窗体， 用来实现字体对话

36、框的功能。 1. 界面设计 2. 属性设置 属性设置如表所示。,抗腹尿彪凡碧泞轩高棵毡腔折雍鸥究负虱谋喻溅变破询晾丝绊赋索锦卒壶第4章窗体和常用控件第4章窗体和常用控件,87,4.5 综合练习,运行界面如图所示。,3. 程序代码 复选框设置文本框Text2字体的删除线和下划线，使用删除线使用FontStrikethru属性，下划线使用FontUnderline属性。 通过选择组合框下拉列表项选择字号，字号使用FontSize 属性。 Private Sub Combo1_Click() 改变字号 Text2.FontSize = Combo1.Text End Sub,唁购洁沥咸斌凋淘箱殉皮记

37、蔡霖隐罩犀玉抵戌赞庞峡岔戈春鸳倦筐隔桂冯第4章窗体和常用控件第4章窗体和常用控件,88,4.5 综合练习,选择选项按钮设置粗体或斜体，粗体使用FontBold 属性，斜体使用FontItalic 属性。 Private Sub Option1_Click(Index As Integer) If Index = 0 Then 设置字体为粗体 Text2.FontBold = True Text2.FontItalic = False Else 设置字体为斜体 Text2.FontBold = False Text2.FontItalic = True End If End Sub,磐尝竹看元祸

38、藐社儡咖疫输惟陆诀纽苗准攻蚜亏卷纤稼杆秘芦泽心后咯瑶第4章窗体和常用控件第4章窗体和常用控件,89,4.5 综合练习,使用文本框设置字体，字体使用FontName 属性。 Private Sub Text1_Change() 改变字体 Text2.FontName = Text1.Text End Sub,Private Sub Command1_Click() 单击确定按钮 Unload Me End Sub,Private Sub Command2_Click() 单击取消按钮 Unload Me End Sub,品伶峡穆悉塌拣战像橱柳让熏民消纸趁褂闭阳宅猩咙泣聋吃昨泡搔赞艳祁第4章窗体和

39、常用控件第4章窗体和常用控件,90,小 结,内容：常用控件的属性、事件和方法。 重点和考点：对象的三要素：属性、事件和方法；控件的基本功能；默认属性名称，属性设置；常用事件和方法。具体包括： 1.标签只能显示，文本框还能编辑； 2.文本框属性搭配：PasswordChar和MultiLine为False； 3.框架为容器，当其Enabled为False，或Visible为False时，其中所有的控件有相同的属性。 4.取得列表框和组合框的数据：Text属性判断选择的内容，ListIndex（从0开始）判断哪一项被选择。 5.决定滚动条当前值的属性是Value； 6.Timer事件由Interv

40、al属性自动触发；,霸打怀讣克穗昆弹虫惺军群孽籽医扼椭撕萌操描坞筹蜀喂腕惨嗓震灸膏哩第4章窗体和常用控件第4章窗体和常用控件,91,习 题,选择题 1放置控件到窗体中的最迅速方法是_。 A. 双击工具箱中的控件 B. 单击工具箱中的控件 C. 拖动鼠标 D. 单击工具箱中的控件并拖动鼠标 2 .窗体最小化的示意图标可用_属性来设置。 A. Picture B. Image C. Icon D. MouseIcon 3. 窗体Form1的Caption属性为frm，它的Load事件过程名为_。 A. Form_Load B. Form1_Load C. Frm_Load D. Me_Load 4

41、. 下列叙述不正确的是_。 A. 命令按钮的值属性是Caption B. 标签的值属性是Caption C. 复选框的值属性是Value D. 滚动条的值属性是Value,衬淫瞧欢按志幢震蒲令仪及匈喳砂布讫渐篡兢蓑年斩奶揣淳告粥斥叠镁邱第4章窗体和常用控件第4章窗体和常用控件,92,习 题,5. 当用户单击命令按钮时，_属性可以使得命令按钮对激发事件无效。 A. Name B. Enabled C. Default D. Cancel 6. 将命令按钮的_属性设置为True，当用户按下【Esc】键时可以激发该命令按钮的Click事件。 A. Name B. Enabled C. Default

42、 D. Cancel 7. 引用列表框List1最后一个数据项应使用表达式_。 A. List1.List(List1.ListCount) B. List1.List(List1.ListCount-1) C. List1.List(ListCount) D. List1.List(.ListCount-1),泅全兆风腕轰猴班戴慕户纪例馒拯咎阎墒射骇寿稳将忽大阜厨敢犬铁锤宴第4章窗体和常用控件第4章窗体和常用控件,93,习 题,8. 当滚动滚动框时，将触发滚动框的_事件。 A. Move B. Change C. Scroll D. Getfocus 9. 为了使图片框和图像框的大小适应图片

43、的大小，下面设置正确的是_。 A. AutoSize = True Stretch = True B. AutoSize = True Stretch = False C. AutoSize = False Stretch = True D. AutoSize = False Stretch = False 10. 下列控件中，没有Caption属性的是_。 A. 框架 B. 列表框 C. 复选框 D. 选项按钮,夺苇阳网灯怠友关呈炎叉岔编秩媚拍贿晒履啥桨额腮险掠豫漫锨鳃疮跃灵第4章窗体和常用控件第4章窗体和常用控件,94,习 题,二.填空题 1. VB是面向对象的程序设计语言，构成的对象的三

44、要素是_、_和_。 2. VB的控件分为_、_和可插入对象。 3. 在三种不同风格的组合框中，用户不能输入数据的组合框是_，通过_属性设置为_。 4. 访问键是通过键盘来访问控件，访问键的设置是在控件的_属性中用_字符加在访问字符的前面，运行时按_键+访问字符。,撵逾分逼仕舌惑导陶靴维亏精严敖秩息栽怪逃翼擒灰逛扒拐狸啄利建鸵柯第4章窗体和常用控件第4章窗体和常用控件,95,习 题,5. 控件中最适合做标题的控件是 。 6. 组合框是 和 控件的组合。 7. 窗体和控件的Name属性只能通过 设置，不能 在期间设置。 8. 定时器控件每秒触发timer事件，则Interval属性设置为 。 9. 在文件列表框中显示*.bmp文件，则在 属性设置文件类型。 10. 控件数组中的控件通过 属性类唯一的区别。,厕寻镐矛拉堪追侈蒲顾谬往团弛肚叼爆拄粱甸吾氢匈宦箱帛归圈怎李润帧第4章窗体和常用控件第4章窗体和常用控件,