二章节创建用户界面

《二章节创建用户界面》由会员分享，可在线阅读，更多相关《二章节创建用户界面（67页珍藏版）》请在金锄头文库上搜索。

1、江苏省计算机等级考试 Visual Basic 程序设计程序设计矽乡剃怪得拦佩沦狙具后册后滨彰床迹阿径购蚁渡凸丸匙鸳鲤襟要妙土砷二章节创建用户界面二章节创建用户界面第二章第二章第二章第二章 创建用户界面创建用户界面创建用户界面创建用户界面旱招淌巩憨祥蛙铸岛辛拢瓮水岛腿叛雅缎蕉陛鹃峡仓捣敌送沤级撂兄畸礼二章节创建用户界面二章节创建用户界面 Visual Basic 程序设计程序设计 掌握窗体的常用属性、事件和方法以及多窗体和掌握窗体的常用属性、事件和方法以及多窗体和 MDIMDI窗体的概念；窗体的概念； 掌握常用控件：掌握常用控件：文本框文本框、标签标签、命令按钮命令按钮、列表列表框框、组合框组

2、合框、图片框图片框、单选按钮单选按钮和和复选框复选框的常用属性、的常用属性、事件和方法事件和方法 ； 掌握菜单的制作和使用方法掌握菜单的制作和使用方法 。教学要求教学要求苹粤率术赴邹故镰遵刀胎籽铲豺劳狡均伍伸吴鸯耗价住编桥巡笛寄灰侩苗二章节创建用户界面二章节创建用户界面2 Visual Basic 程序设计程序设计 2.1 2.1 创建窗体创建窗体 2.2 Visual Basic 2.2 Visual Basic 的常用控件的常用控件 2.3 2.3 制作菜单制作菜单教学内容教学内容胸技兽贸瞪亏腺故榨焰愈票懈鹿母讥夹棋笺侥放浩械蹄讹抢宙因爱萌贩属二章节创建用户界面二章节创建用户界面3 Vis

3、ual Basic 程序设计程序设计窗体窗体： 窗体是窗体是VBVB应用程序的基本构造模块，用于创建应用程序的基本构造模块，用于创建VBVB应用程序用户界面或对话框，是包容各种控件对应用程序用户界面或对话框，是包容各种控件对象的象的容器容器。 由标题栏、边框以及客户区组成。由标题栏、边框以及客户区组成。2.1 2.1 创建窗体创建窗体纯羌毙捣趟菩瘫矩盆粹庶池殊摊个氟搪何壬瘦肆裳妨娥霄尤迭汞耿闪旋办二章节创建用户界面二章节创建用户界面4 Visual Basic 程序设计程序设计2.1.1 窗体的属性、方法与事件窗体的属性、方法与事件 NameName（名名称称）：窗窗体体名名称称, ,在在程程

4、序序代代码码中中，被被作作为为对对象象的的标标识识名名，以以识识别别不不同同的的窗窗体体对对象象，自自行行命命名名窗窗体体时时，必必须须以以一一个个字字母母开开头头，可可包包含含数数字字和和下下划划线线，不不能能包包含含空空格格和和标标点点符符号号，长度小于长度小于4040个字符个字符。 CaptionCaption：窗窗体体标标题题，是是出出现现在在窗窗体体标标题题栏栏上上的的文文本本，缺缺省省使用窗体名。使用窗体名。BackColorBackColor与与ForeColorForeColor：窗体的背景色与前景色：窗体的背景色与前景色BorderStyleBorderStyle：窗窗体体边

5、边框框风风格格。设设定定值值及及相相关关的的VBVB内内部部常常量量及不同风格详见下表：及不同风格详见下表：1 1、常用属性、常用属性嘿狭芋肢刺熬街谰篷烤拌墟惮官暇雁碱鹤祁瞩贞洁嘱朽瓤轩蠕舷膝戈擅缄二章节创建用户界面二章节创建用户界面5 Visual Basic 程序设计程序设计 常数常数 设置值设置值 描述描述vbBSNone 0vbBSNone 0 无（没有边框或与边框相关的元素）无（没有边框或与边框相关的元素）vbFixedSingle 1vbFixedSingle 1 固定单边框。可以包含控制菜单框，固定单边框。可以包含控制菜单框， 标题栏和关闭按钮，不能改变尺寸。标题栏和关闭按钮，不

6、能改变尺寸。vbSizablevbSizable 2 2 可调整的边框。可以改变窗体大小。可调整的边框。可以改变窗体大小。 （缺省值）（缺省值）vbFixedDouble 3vbFixedDouble 3 对话框风格的窗体。大小不能改变。对话框风格的窗体。大小不能改变。vbFixedToolWindowvbFixedToolWindow 4 4 工具栏风格窗体。大小不能改变。工具栏风格窗体。大小不能改变。vbSizableToolWindow 5 vbSizableToolWindow 5 工具栏风格窗体。大小可变。工具栏风格窗体。大小可变。 BorderStyleBorderStyle属性的

7、六种设置值属性的六种设置值燃孜碱武晕痉怜味甲资孽蹿辩闲劝褐掠侧越娟篇爆接曹积忙抉汇放轮惫冲二章节创建用户界面二章节创建用户界面6 Visual Basic 程序设计程序设计 EnabledEnabled：活动属性。缺省值为活动属性。缺省值为”TrueTrue”, ,当设置为当设置为”FalseFalse”时，窗口时，窗口及其上控件及其上控件将不能被访问。将不能被访问。 Left Left、TopTop、HeightHeight和和WidthWidth：决定窗体位置与大小。决定窗体位置与大小。LeftLeft和和TopTop是窗体左上角的坐标（是窗体左上角的坐标（屏幕左上角为坐标零点）屏幕左上角

8、为坐标零点）；HeightHeight和和WidthWidth是窗体的高度和宽度，是窗体的高度和宽度， 单位均为特维；单位均为特维； FontFont：字体属性，设置字体属性，设置窗体上正文窗体上正文字体、字型、字号等；字体、字型、字号等； VisibleVisible: :可见属性。缺省为可见属性。缺省为“ True True”; ;当设置为当设置为“FalseFalse”时，窗体隐藏，注意：此属性只在运行时生效。时，窗体隐藏，注意：此属性只在运行时生效。 Picture Picture: :背景图片属性。背景图片属性。 Moveable Moveable：可移动属性，缺省为：可移动属性，缺

9、省为True,True,窗体在运行时可拖动，窗体在运行时可拖动，FalseFalse时，不能拖动；时，不能拖动；窗体常用属性窗体常用属性轨熙畅肌傅悠引盒税杠顺岗毫靡殃途熬佑伟懦释询煮掖贷因碧堡钳涉入渡二章节创建用户界面二章节创建用户界面7 Visual Basic 程序设计程序设计在在VBVB中，有两种设置窗体（或其他对象）属性值的方法。中，有两种设置窗体（或其他对象）属性值的方法。M在设计时，通过在设计时，通过属性窗口属性窗口为其设定各种属性值；为其设定各种属性值；M在程序执行过程中改变属性值，即在程序执行过程中改变属性值，即通过程序通过程序代码改变代码改变属性值属性值在程序代码中则使用如下

10、格式的代码行来改变属性值：在程序代码中则使用如下格式的代码行来改变属性值： Object . Property = Expression式中，式中，ObjectObject是对象名；是对象名； PropertyProperty是属于该对象的某个属性名；是属于该对象的某个属性名； ExpressionExpression是为该属性赋予的值是为该属性赋予的值, ,必须和属性类型一致，即必须和属性类型一致，即属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应是逻辑型。是逻辑型。 例：例： Labe11.Caption =欢迎学习欢迎学

11、习VB!“ VB!“ Form1.Enable = False = False Form1.Caption = = Label1.Caption2.1.2 2.1.2 定制窗体属性定制窗体属性伦吭冲鸵桑值睛誓没莉贼河厚遮碾求磺四媒磁噶耿妙擞霉咕拷淖简环檄帮二章节创建用户界面二章节创建用户界面8 Visual Basic 程序设计程序设计窗体的常用方法窗体的常用方法A Show Show： 显示方法。显示方法。 如：如：form2.Showform2.ShowA HideHide： 隐藏方法；隐藏方法； 如：如：form2.form2. HideHideA Move Move： 移动方法；如：移

12、动方法；如：form1.Move form1.Move left,top,width,heightleft,top,width,heightA Print Print： 打印方法；打印方法；A Cls Cls： 清除方法清除方法, ,清除窗体上所有打印的文本或图形清除窗体上所有打印的文本或图形A Refresh Refresh： 刷新方法；刷新方法；通常窗体的刷新是自动进行的。通常窗体的刷新是自动进行的。 方法可使方法可使对象执行一个动作或任务。对象执行一个动作或任务。 使用方法的格式是：使用方法的格式是： 对象名对象名. .方法方法 或或 对象名对象名. .方法方法Arg1,Arg2,.Ar

13、g1,Arg2,. 后一种方法是带有参数的方法。后一种方法是带有参数的方法。窗体的常用方法窗体的常用方法俩扎净硬发手筛彼非垂藕摸营槽彬权角乔藻兜睛的竖咋扬材辩话洒补负毒二章节创建用户界面二章节创建用户界面9 Visual Basic 程序设计程序设计Private Sub Command1_Click() Dim inchw, inchh inchw = Form1.Width inchh = Form1.Height MsgBox “将窗体移动到屏幕的左上角将窗体移动到屏幕的左上角, 同时尺寸缩小为原来的一半同时尺寸缩小为原来的一半 Form1.Move 0, 0, inchw / 2, i

14、nchh / 2End Sub例例: : 使用使用MoveMove方法移动一个窗体，重新定位在屏幕左上角，尺方法移动一个窗体，重新定位在屏幕左上角，尺 寸缩小一倍。寸缩小一倍。举例：举例：乐苟受盘刽游但进丁铣卸藏慈淆述砖灶吱蹄砍毁淡异毙钱车蔓谋能锤阎锌二章节创建用户界面二章节创建用户界面10 Visual Basic 程序设计程序设计事件：事件：能够被对象所识别的动作能够被对象所识别的动作; ; 当某事件发生了，系统会自动执行其事件过程内的代码当某事件发生了，系统会自动执行其事件过程内的代码事件过程的一般格式：事件过程的一般格式： Private Sub Private Sub 对象名对象名_

15、 _事件名（事件名（ 参数表参数表 ） （程序代码）（程序代码） End Sub End Sub例如：例如：窗体的常用事件窗体的常用事件A ClickClick： 单击事件；单击事件；A DblClick DblClick： 双击事件；双击事件；A Load Load： 装载事件；装载事件；A ResizeResize： 在窗体被改变大小时，会触发本事件；在窗体被改变大小时，会触发本事件；A ActivateActivate： 激活事件，当窗体变为当前窗口时，引发本事件；激活事件，当窗体变为当前窗口时，引发本事件；A DeactivateDeactivate： 失去激活事件，当窗体失去激活状态

16、，即另一个失去激活事件，当窗体失去激活状态，即另一个 窗体成为当前窗口时，引发本事件。窗体成为当前窗口时，引发本事件。Private Sub Form_Click() vb语句语句 End Sub窗体常用事件窗体常用事件噪蔷岛柑荣源橱涂考姥虚腮检譬钱句享功镐揪哲润苯池与矣都沫遁拙爽彝二章节创建用户界面二章节创建用户界面11 Visual Basic 程序设计程序设计2.1.3 窗体的显示、隐藏、装载和卸载窗体的显示、隐藏、装载和卸载 1 1、窗体的显示与隐藏、窗体的显示与隐藏 2 2、装载窗体和、装载窗体和LoadLoad事件事件 3 3、卸载窗体与、卸载窗体与UnloadUnload事件事件

17、 4 4、 End End 语语 句句 钩篮肃脆诈潜剁印厅缝活菩吉幼踏软苇绅灶缘吮颧塘秩威蠕咋非甚重涎拄二章节创建用户界面二章节创建用户界面12 Visual Basic 程序设计程序设计（1） 显示窗体显示窗体，可在程序中加入以下代码可在程序中加入以下代码： Formname.Show Style 其中：其中：FormnameFormname是要显示的窗体名。是要显示的窗体名。 Show Show方法的方法的StyleStyle参数决定窗体是有模式的参数决定窗体是有模式的（vbModelvbModel）还是无模式的（）还是无模式的（vbModelessvbModeless）。）。l有模式窗体

18、不允许用户同时与应用程序的其他窗体交互，有模式窗体不允许用户同时与应用程序的其他窗体交互，如如WindowsWindows程序中的命令执行确认窗口程序中的命令执行确认窗口；l无模式窗体则允许用户与一个程序的其他窗口自由交互，无模式窗体则允许用户与一个程序的其他窗口自由交互，如如VBVB环境中的工程、属性和代码窗口等环境中的工程、属性和代码窗口等，缺省值是无模式缺省值是无模式1 1、窗体的显示与隐藏、窗体的显示与隐藏（2）隐藏窗体隐藏窗体，可在程序中加入以下代码：可在程序中加入以下代码： Formname.HideFormname.Hide 其中：其中：FormnameFormname是要隐藏的

19、窗体名。是要隐藏的窗体名。描郡搐呆滁传肝消低唁吏愉斩浮揖涟镐曲狰笺渔甥炸钒场戮朔仑裔丑血辫二章节创建用户界面二章节创建用户界面13 Visual Basic 程序设计程序设计（1 1）编写事件过程时，建议不要自行输入程序框架，而）编写事件过程时，建议不要自行输入程序框架，而应选定应选定对象和事件过程，对象和事件过程，由系统自动产生框架。由系统自动产生框架。（2 2）命令按钮）命令按钮1 1的单击事件名为的单击事件名为Command1_ClickCommand1_Click，命令按钮，命令按钮2 2的的单击事件名为单击事件名为Command2_ClickCommand2_Click，但对于一个窗

20、体，单击事件过，但对于一个窗体，单击事件过程名程名为为Form_ClickForm_Click，而不是而不是Form1_ClickForm1_Click，即窗体的事件过程，即窗体的事件过程中的对象名是中的对象名是FORMFORM，而非具体的，而非具体的namename属性值。属性值。例：单击窗体例：单击窗体1 1，显示窗体，显示窗体2 2。 Private Sub Form_Click Private Sub Form_Click（）（） Form2.Show Form2.Show End Sub End Sub注意：注意：批有羽按冬燕锅像饱择椰谬哈补焉译腆俐丰焊追抵离均愿央繁匀脉乎舞炬二章节

21、创建用户界面二章节创建用户界面14 Visual Basic 程序设计程序设计2 2、装载窗体和、装载窗体和LoadLoad事件事件 使用装载语句可把窗体（或其他对象）载入内存，但并使用装载语句可把窗体（或其他对象）载入内存，但并不显示它。不显示它。 装载语句装载语句的格式是：的格式是：Load Object 其中：其中：Object是窗体名（对象名）是窗体名（对象名） 由于由于VBVB应用程序在执行时，会应用程序在执行时，会自动装载自动装载启动窗体，所以启动窗体，所以没有必要对启动窗体使用没有必要对启动窗体使用LoadLoad语句。语句。 当系统装载窗体时，将引发窗体的当系统装载窗体时，将引

22、发窗体的LoadLoad事件事件； 在使用在使用ShowShow方法显示窗体时，也会自动将尚未载入内方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发该窗体的存的窗体装入内存，并引发该窗体的LoadLoad事件事件。工致年拭线屹遵撬森矩权扔住幕撩露忧济瑶连翘耙冀林届狠狸蛋辽啃耗涨二章节创建用户界面二章节创建用户界面15 Visual Basic 程序设计程序设计3 3、卸载窗体与、卸载窗体与UnloadUnload事件事件 使用卸载语句可把窗体（或其他对象）从内存卸载。使用卸载语句可把窗体（或其他对象）从内存卸载。 卸载语句卸载语句的格式是：的格式是： Unload Object 其

23、中：其中：ObjectObject是窗体名（对象名）是窗体名（对象名） 卸载将使该对象的所有属性重新恢复为设计态时设定的初始卸载将使该对象的所有属性重新恢复为设计态时设定的初始值；卸载还将引发对象的值；卸载还将引发对象的UnloadUnload事件事件。 如果卸载的对象是程序唯一的窗体，则将终止程序的运行。如果卸载的对象是程序唯一的窗体，则将终止程序的运行。一起来看个例子吧！一起来看个例子吧！份套谴容硕篆波灌弃折搭血函掌萨业刨竭邱赚汾直晓戳枫站澜悸雄忌憾辫二章节创建用户界面二章节创建用户界面16 Visual Basic 程序设计程序设计4.End 4.End 语句语句 在程序代码中可使用在程

24、序代码中可使用EndEnd语句结束程序运行，语句结束程序运行，形式是：形式是：End 执行该语句将终止应用程序的执行，并从执行该语句将终止应用程序的执行，并从内存卸载内存卸载所有窗体所有窗体。娟翘妥充组料愚己藏孵籽隙箭邀圃寅撇稀垒熔鹊劫翼冒激窟碑物茁剁铜渡二章节创建用户界面二章节创建用户界面17 Visual Basic 程序设计程序设计格式：格式：Object.Print Object.Print 功能：将输出项显示在窗体或图片框上。功能：将输出项显示在窗体或图片框上。说明：（说明：（1 1）对象名缺省，则输出到窗体上；）对象名缺省，则输出到窗体上； （2 2）输出项之间用逗号或分号间隔，若

25、用逗号间隔，则）输出项之间用逗号或分号间隔，若用逗号间隔，则为为标准标准输出；若用分号间隔，则为输出；若用分号间隔，则为紧凑紧凑输出。输出。2.1.4 Print2.1.4 Print方法方法 Private Sub command1_Click() Print 1, 2, 3 Print 1; 2; 3 Print Print ab, cd Print ab; cd; End Sub观察下列观察下列Print语句的执行结果。语句的执行结果。治葬揖仪自婚覆疚尼恃冻陨利埃民游馋誓与件饵怂隐身班工螺鸿莆呼拣宅二章节创建用户界面二章节创建用户界面18 Visual Basic 程序设计程序设计多窗体

26、程序设计多窗体程序设计 当应用程序中有多个窗体界面时，设计时，同样先新建一个当应用程序中有多个窗体界面时，设计时，同样先新建一个工程，其中有一个窗体工程，其中有一个窗体form1form1，然后通过下列步骤，设计多窗体：，然后通过下列步骤，设计多窗体：1 1、添加并设计窗体、添加并设计窗体 “ “工程工程” “” “添加窗体添加窗体”，再依次设计每一个窗体的，再依次设计每一个窗体的界面元素以及相应的事件过程；界面元素以及相应的事件过程；2 2、设置启动窗体、设置启动窗体 “ “工程工程” “” “工程属性工程属性”，在，在“通用通用”选项卡上，设选项卡上，设置置“启动对象启动对象”。注意：（注

27、意：（1 1）在启动窗体中，必须要有对其他窗体的引用接口，）在启动窗体中，必须要有对其他窗体的引用接口，可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。 （2 2）多窗体应用程序保存时，先将每一个窗体以一个独立）多窗体应用程序保存时，先将每一个窗体以一个独立的窗体文件保存，扩展名为的窗体文件保存，扩展名为.frm.frm，再保存工程文件。，再保存工程文件。 （3 3）多窗体应用程序打开时，直接打开工程文件，将会把）多窗体应用程序打开时，直接打开工程文件，将会把该程序中所有的窗体文件都装载。该程序中所有的窗体文件都装载。穗碳琵卿窟境

28、耐侨匠绊瑞叭婶腥娜丝闭围焕海骋熟花供责篇蝎酿霞瘦侗跟二章节创建用户界面二章节创建用户界面19 Visual Basic 程序设计程序设计MDIMDI（多文档界面）窗体（多文档界面）窗体 在多窗体应用程序中，一般有一个在多窗体应用程序中，一般有一个MDIMDI窗体（框架，父窗体）窗体（框架，父窗体）构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。创建创建MDIMDI应用程序的步骤：应用程序的步骤：1 1、“工程工程” “” “添加添加MDIMDI窗体窗体”；2 2、将应用程序中其它窗体的、将应用程序中其它窗体的 MDIchild MDI

29、child 属性设置为属性设置为“True”.“True”.3 3、将、将 MDI MDI窗体设置为启动窗体。窗体设置为启动窗体。注意：注意：1 1、一个应用程序中，只有一个、一个应用程序中，只有一个MDIMDI窗体；窗体；2 2、在、在MDIMDI窗体上，除窗体上，除PictureBoxPictureBox和和TimerTimer外，一般不能直接放置其外，一般不能直接放置其他控件，他控件，3 3、关闭、关闭 MDI MDI窗体，将自动关闭所有打开的子窗体。窗体，将自动关闭所有打开的子窗体。4 4、运行时，子窗体只能在、运行时，子窗体只能在MDIMDI窗体内移动。窗体内移动。 举例举例证碟萄叠

30、政桐反抵慑倪邑螟摈箕塑姻笺迅占九陶凤咳手订兹视撑糯造腐技二章节创建用户界面二章节创建用户界面20 Visual Basic 程序设计程序设计2.2 Visual Basic2.2 Visual Basic2.2 Visual Basic2.2 Visual Basic的常用控件的常用控件的常用控件的常用控件 2.2.1 2.2.1 概述概述 2.2.2 2.2.2 常用控件常用控件殿瓮矿闪粳志肋栖轰奄扇龟人啼恐墩贵淘时坊凛秤情煮屎判笺抒驱银恩蛛二章节创建用户界面二章节创建用户界面21 Visual Basic 程序设计程序设计控件名控件名 功能功能Pointer指针指针 用于改变控件大小和位置

31、等用于改变控件大小和位置等 PictureBox图片框图片框 显示图形或图象显示图形或图象Label标签标签 用于文字说明，显示提示性信息用于文字说明，显示提示性信息TextBox文本框文本框 用于字符输入用于字符输入Frame框架框架 用于组合控件，将控件分组用于组合控件，将控件分组CommandButton命令按钮命令按钮 单击执行命令单击执行命令CheckBox复选框复选框 用于多项选择用于多项选择OptionButton选项按钮选项按钮 用于从多个选项中单选其一用于从多个选项中单选其一ComboBox组合框组合框 列表框与文本框的组合列表框与文本框的组合ListBox列表框列表框 列出

32、多个选项供选择列出多个选项供选择H.ScrollBar水平滚动条水平滚动条 产生水平滚动条产生水平滚动条V.ScrollBar垂直滚动条垂直滚动条 产生垂直滚动条产生垂直滚动条Timer计时器计时器 用于定时用于定时DriveListBox驱动器列表框驱动器列表框 DirListBox文件夹列表框文件夹列表框 FileListBox文件列表框文件列表框 Shape图形图形 Line线条线条 Image图象图象 Data数据控件数据控件 OLE控件控件基基本本控控件件制灿帧专旁谍解葛蔑铂斑褂羹诌脊匆嘶潜淌赞惶珠凄爵微吕绎霞兑见本魏二章节创建用户界面二章节创建用户界面22 Visual Basic

33、 程序设计程序设计 VBVB通通过过控控件件箱箱提提供供了了这这些些和和用用户户进进行行交交互互的的可视化部件，即可视化部件，即 控件控件。 1.文本框（文本框（Text Box）2.标签（标签（Label）3.命令按钮（命令按钮（Command Button）4. 列表框（列表框（ListBox）5.组合框（组合框（ComboBox）6.图象控件（图象控件（Image）和图片框（）和图片框（PictureBox）7.选项按钮（选项按钮（Option Button）、复选框）、复选框8.CheckBox）与框架控件（）与框架控件（Frame）9.滚动条控件（滚动条控件（ HScrollBar和

34、和VScrollBar ）10.定时器控件定时器控件(Timer)常用控件常用控件鳞沪矗丹郧言颂滓扫咏虚蜀幕安碟三题靳拷捂忧了暗肉盆晋浪锣丈骑谤扎二章节创建用户界面二章节创建用户界面23 Visual Basic 程序设计程序设计1.1.文本框（文本框（Text BoxText Box）功功能能：用用于于接接收收用用户户在在框框内内输输入入的的字字符符信信息息，或或显显示示由由程程序序代码产生的信息。代码产生的信息。属性属性：lName(名称名称)：文本框的名称，：文本框的名称，lText：文文本本属属性性，该该属属性性值值就就是是用用户户在在文文本本框框输输入入的的内内容容。( (注意：注意

35、：TextBoxTextBox无无CaptionCaption属性属性） lPasswordChar：口口令令属属性性。本本属属性性缺缺省省值值为为空空字字符符串串，表表示示用用户户由由键键盘盘输输入入的的字字符符，直直接接在在文文本本框框中中显显示示出出来来；如如果果该该属属性性值值为为某某个个字字符符，则则文文本本框框中中输输入入的的内内容容均均显显示示为为该该字字符符，用用户户看看不不见见实实际际输输入入的的字字符符，一一般般可可用用于于口口令令输输入。（如属性值设为入。（如属性值设为* *） 橡瑶丹犊集疗蕉一丝擅赊乒惯柞网网耐拾抠蒲恰晒唉戒坪夺加疆贺瓮倍桥二章节创建用户界面二章节创建用

36、户界面24 Visual Basic 程序设计程序设计lMaxLength：最最大大长长度度属属性性。缺缺省省为为0 0，表表示示本本文文本本框框可可以以接接收任意个字符。收任意个字符。lMultiLine：多多行行属属性性。本本属属性性值值若若为为“真真”，则则可可输输入入多多行行文本；否则只能输入一行文本。文本；否则只能输入一行文本。该属性不能在程序中改变该属性不能在程序中改变lScrollbars:Scrollbars:在文本框中添加水平和垂直滚动条。在文本框中添加水平和垂直滚动条。 l00无无l11仅水平滚动条仅水平滚动条l22仅垂直滚动条仅垂直滚动条l33均有均有lAlignment

37、:Alignment:对齐属性，有三种选择对齐属性，有三种选择l00（缺省值）文本左对齐。（缺省值）文本左对齐。l11文本右对齐文本右对齐l22文本居中文本居中lLeftLeft、 top top、 Width Width、 Height : Height :相对于相对于用户区用户区用户区用户区的左上角位置。的左上角位置。文本框前提是前提是MultiLine为为True属性属性：老域柒渊苇羡熬贡胶就膝牲敌与穴侣粮延短刁晶员豌代咀甸要饶吟挺蝎贯二章节创建用户界面二章节创建用户界面25 Visual Basic 程序设计程序设计方法方法：lSetFocusSetFocus：设置焦点，通过本方法可使

38、光标指向指定：设置焦点，通过本方法可使光标指向指定的文本框。的文本框。 事件事件 ：lChangeChange：在文本框的：在文本框的TextText属性属性, ,即文本的内容发生变即文本的内容发生变化时，就触发本事件；化时，就触发本事件；lLostFocusLostFocus：当光标离开文本框时，引发本事件。：当光标离开文本框时，引发本事件。lKeyPressKeyPress: :当焦点在文本框，并按下任何标准字符集当焦点在文本框，并按下任何标准字符集的按键时会引发本事件。的按键时会引发本事件。例：文本框例：文本框文本框噬烽免绑聪淬此股岿梁这每伤使桐掣逊木牧棉呛擅遵呵思黍他望镇担辩丹二章节创

39、建用户界面二章节创建用户界面26例：在窗体例：在窗体1 1中的文本框中输入口令，单击中的文本框中输入口令，单击“判断判断”按纽，如口令按纽，如口令正确，显示窗体正确，显示窗体2 2，否则，弹出提示错误窗口，单击，否则，弹出提示错误窗口，单击“清空清空”按纽，按纽，清除文本框中的口令，并将焦点设置在其中以便下次录入。清除文本框中的口令，并将焦点设置在其中以便下次录入。礼音睁预玛肃箔藉负剖来启谜哭杆深第汁泵玛拒栗骇造徘需封瘸稽磕藕小二章节创建用户界面二章节创建用户界面27 Visual Basic 程序设计程序设计Private Sub Command1_Click() If Text1.Text

40、 = cpu Then form2_2.Show Else MsgBox sorry! you cant enter the form2! End IfEnd Sub密码设置密码设置清空文本框，设置焦点清空文本框，设置焦点Private Sub Command2_Click() Text1.Text = Text1.SetFocus End Sub程序代码程序代码凋攀洞孙想查朽缮手挫沈噬足穴砖躬衅纹耐衫威峙绅口晋帖盯净斧寥举砚二章节创建用户界面二章节创建用户界面28 Visual Basic 程序设计程序设计Private Sub Text1_KeyPress(KeyAscii As Inte

41、ger) If KeyAscii = 13 Then If Text1.Text = cpu Then Form2_2.Show Else MsgBox sorry! you cant enter the form2!, , 文本框文本框 End If End IfEnd Sub另外一种触发方式：另外一种触发方式：披智远圆贞齿怨挟径停炕蛛蓖啡按汁岛堰育双币懊斟菌冀铂翼脊鞍渴毕跺二章节创建用户界面二章节创建用户界面29 Visual Basic 程序设计程序设计2、标签（、标签（Label）功功能能：用用于于在在窗窗体体上上增增加加文文字字说说明明。如如用用作作窗窗体体的的状状态态栏栏，或或为文

42、本框、列表框等添加注释文字说明等。为文本框、列表框等添加注释文字说明等。(1) 属性属性 NameName：标签名称；：标签名称； CaptionCaption：标题属性。本属性值即为标签所显示的文本内容；：标题属性。本属性值即为标签所显示的文本内容； AlignmentAlignment：对对齐齐属属性性。缺缺省省值值为为0 0，将将CaptionCaption文文本本左左对对齐齐；若设为若设为1 1，为右对齐；设为，为右对齐；设为2 2，则为居中；，则为居中； AutoSizeAutoSize: :大大小小自自适适应应属属性性，当当取取值值为为“True”“True”时时，标标签签大大小小

43、 会会 随随 实实 际际 显显 示示 的的 内内 容容 （ CaptionCaption） 而而 变变 化化 ， 缺缺 省省 为为“False”“False”。 WordWrap:WordWrap:字字折折行行属属性性。取取值值为为“True”“True”时时，标标签签大大小小垂垂直直扩扩展展，即即标标题题文文字字换换行行，为为“False”“False”时时，则则水水平平拓拓展展，缺缺省省“False”“False”，该属性只有在该属性只有在AutoSizeAutoSize属性为属性为“TrueTrue”时才有效时才有效。喧幂廉好袍嘴贺壹捶翠叼嚎肿输雀舱炯讫瑰陌扁欠烟灼缉巾克躯税损迷位二章节

44、创建用户界面二章节创建用户界面30 Visual Basic 程序设计程序设计(2) 方法方法 RefreshRefresh：刷新；：刷新； Move Move：移动。：移动。(3)事件事件 Click（单击）、（单击）、DblClick（双击）（很少用及）（双击）（很少用及）注意：注意： 标签得不到焦点，所以无标签得不到焦点，所以无SetFocus方法方法例例 Label粕命斌材铁仕海梦欠姥怨拂特户编诵战似注渴丙成檄剔舜悍蹈炯褐菏掐饯二章节创建用户界面二章节创建用户界面31 Visual Basic 程序设计程序设计Private Sub Command1_MouseMove(Button

45、As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = Command1.Left Label1.Top = Command1.Top + Command1.Height Label1.WordWrap = False Label1.AutoSize = True Label1.BackColor = vbYellow Label1.Visible = True Label1.Caption = 关闭窗体，结束应用程序关闭窗体，结束应用程序End Sub设置颜色设置颜色使标签可见使标签可见文本不换行文本不换行例

46、：窗体例：窗体FORM1FORM1上有一个命令按纽上有一个命令按纽“Close”“Close”，当鼠标光标移动动到，当鼠标光标移动动到该按钮上时，在按纽下方显示由该按钮上时，在按纽下方显示由LABEL1LABEL1提供的提示行：背景色为提供的提示行：背景色为“淡黄色淡黄色”，文字为，文字为“关闭窗体，结束应用程序关闭窗体，结束应用程序”。喊您僵恼邀铭剁抵虞匡朗踞掌肚旺窑搔囤如钾蹄勘稳敌菱砒刃娠叙谤诈絮二章节创建用户界面二章节创建用户界面32 Visual Basic 程序设计程序设计Private Sub Command1_Click() Unload MeEnd Sub除命令按钮外，鼠标在除

47、命令按钮外，鼠标在窗体其他位置移动时，窗体其他位置移动时，并不出现标签提示并不出现标签提示Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Visible = FalseEnd Sub此吉茄之检碘北孕狠证励连揽虚棠哨酉尘搐憎推褥岿宪匝思搓帽按撕坛励二章节创建用户界面二章节创建用户界面33 Visual Basic 程序设计程序设计3 3、命令按钮（、命令按钮（Command ButtonCommand Button） 功功能能 ： 用用户户用用鼠鼠标标

48、单单击击命命令令按按钮钮，就就表表示示要要执执行行一一条条命命令令，命令的具体功能则是由触发的单击事件过程中的程序代码决定。命令的具体功能则是由触发的单击事件过程中的程序代码决定。(1)属性属性lCaption：标题属性。就是显示在按钮上的提示文字标题属性。就是显示在按钮上的提示文字；lDefault：确确定定属属性性。当当该该属属性性为为“True”“True”时时，按按“回回车车键键”等等同同于于单单击击此此按按钮钮。在在一一个个窗窗体体中中，也也只只能能有有一一个个命命令令按按钮的该属性值为钮的该属性值为“True”“True”. .缺省值为缺省值为“False”“False”。lCan

49、cel：取取消消属属性性。当当本本属属性性值值设设为为“True”“True”（真真）时时，按按“Esc”“Esc”键键即即等等同同于于单单击击本本按按钮钮；在在一一个个窗窗体体中中，只只能能有有一一 个个 命命 令令 按按 钮钮 的的 该该 属属 性性 设设 置置 为为 “TrueTrue”， 缺缺 省省 值值 为为“False”“False”； lEnable:Enable:有有效效属属性性，当当该该属属性性为为“False”“False”时时，命命令令按按钮钮无无效，效， 不能响应用户事件，不能响应用户事件，缺省为缺省为“True”“True”。兑性蹿蓝挺肌架屯疟汛搪毛蚌货据吩轴神蹈沤此

50、痞挛遗麓驮降轨扁懦夹要二章节创建用户界面二章节创建用户界面34 Visual Basic 程序设计程序设计(2)方法方法lSetFocus：设置焦点。设置焦点。 设设置置为为焦焦点点的的按按钮钮，标标题题周周围围将将有有一一个个边边框框，用用户户直直接接按按“回车键回车键”时，将会触发执行该按钮的单击事件时，将会触发执行该按钮的单击事件。(3)事件事件 ClickClick，即鼠标单击。这是，即鼠标单击。这是命令按钮最基本、最重要的事件。命令按钮最基本、最重要的事件。书书P23P23 例例 2-2诣避尊交捎掣仙裳滨廉赞疯琉猩汤字翘镐露乐宜屿待摆玻度插反坪樊出蔷二章节创建用户界面二章节创建用户界

51、面35 Visual Basic 程序设计程序设计例例2-22-2一个使用命令按钮的程序示例一个使用命令按钮的程序示例葡世棍岔抿核闻商汛距氛篷湖侗埠名邑很歼慨至粘络涟射简捧叠猪扯误蔚二章节创建用户界面二章节创建用户界面36Private Sub Command1_Click() Label1.Caption = 报效祖国报效祖国 Command2.Enabled = True Command2.SetFocus Command1.Enabled = FalseEnd Sub使按钮使按钮2 2变为活动状态变为活动状态Private Sub Command2_Click() Label1.Capt

52、ion = 努力学习努力学习 Command1.Enabled = True Command1.SetFocus Command2.Enabled = FalseEnd Sub使按钮使按钮1 1变为非活动状态变为非活动状态使按钮使按钮2 2具有焦点具有焦点烤瓢怠当卸田闪垦琵爬舟咙鹿恃钳咯倾挟痘避黔苯芳沮勒岁饺鸿淤腆桔青二章节创建用户界面二章节创建用户界面37 Visual Basic 程序设计程序设计4、列表框（、列表框（ListBox） 用途用途 ：列出可供用户选择的项目列表。：列出可供用户选择的项目列表。 属性属性：lListList：表表属属性性。用用于于保保存存列列表表内内容容。程程序

53、序代代码码中中，可可通通过过表表属性以及列表项序号实现对某具体列表项的访问：属性以及列表项序号实现对某具体列表项的访问： 对象名对象名.List(.List(列表项序号列表项序号) ) 其其中中的的对对象象名名即即为为列列表表框框的的NameName属属性性值值；列列表表项项的的序序号号从从0 0开始，由上到下依次为开始，由上到下依次为0 0、1 1、2 2、3.3. 列列表表框框中中的的列列表表项项的的添添加加方方法法：一一是是设设计计时时在在属属性性窗窗口口的的LISTLIST属属性性值值中中直直接接添添加加，二二是是在在程程序序运运行行时时，在在代代码码中中通通过过additemaddi

54、tem方法添加。方法添加。lListCountListCount：列表项数目。：列表项数目。掩棍鸥焦嘱物片习应常沦伟楼褐钱贱拍伦彼嘲溉猩嗜疯杏坠耪父舀峦族祟二章节创建用户界面二章节创建用户界面38 Visual Basic 程序设计程序设计lListIndexListIndex：列列表表项项索索引引。其其值值为为当当前前选选选选中中中中的的的的列列列列表表表表项项项项的的序序号号，第一个列表项的序号为第一个列表项的序号为0 0，如果未选任何项目，则其值为，如果未选任何项目，则其值为-1-1；lTextText：列列表表项项正正文文。其其值值为为当当前前选选中中的的列列表表项项的的文文本本，它它

55、与与List (ListIndex)相同；相同； 即即List1.Text=List1.List(ListIndex)List1.Text=List1.List(ListIndex)lColumnsColumns：列列属属性性。设设置置列列表表框框中中显显示示的的列列表表项项的的列列数数。该该属属性性缺缺省省为为，只只显显示示一一列列文文本本。逐逐行行显显示示列列表表项项，可可能能有有垂垂直直滚动条，取值为大于滚动条，取值为大于0 0的值时，列表项可占多列显示；的值时，列表项可占多列显示；lSortedSorted：排排序序属属性性。取取值值为为“True”“True”时时，各各列列表表项项将

56、将按按字字母母表排序，取值为表排序，取值为“False”“False”时，将不排序。时，将不排序。 属性属性入怀蚀词左肖峡盲倚韦钉例洞帖鬃肥威洋逮弛涝毁伟掠巧韧拜手揪碧茂旅二章节创建用户界面二章节创建用户界面39 Visual Basic 程序设计程序设计方法方法：& AddItemAddItem ：添加列表项。使用下面的格式来添加：添加列表项。使用下面的格式来添加： 对象名对象名.AddItem .AddItem ,插入位置序号插入位置序号 若不指定插入位置，则插入到列表末尾；若不指定插入位置，则插入到列表末尾；& ClearClear ：删除列表中所有列表项。：删除列表中所有列表项。& R

57、emoveItemRemoveItem ：删除指定列表项。用法如下：删除指定列表项。用法如下： 对象名对象名.RemoveItem .RemoveItem 删除项序号删除项序号事件事件： 虽然列表框可以响应单击虽然列表框可以响应单击ClickClick和双击和双击DblClickDblClick事件。事件。但很少使用。但很少使用。例：列表框例：列表框温茧蜜择喇融皖浮捅菊走俩礁撵舟垂厨移疫秉蔫搀宝言尝叹霄茎沾路椽与二章节创建用户界面二章节创建用户界面40 Visual Basic 程序设计程序设计 界面如图所示，在文本框中输入内容，再单击界面如图所示，在文本框中输入内容，再单击“增加增加”命令命

58、令按纽，可以将文本框中的内容添加至列表框中；对指定的列表框按纽，可以将文本框中的内容添加至列表框中；对指定的列表框选项，单击选项，单击“删除删除”可将其删除，同时及时更新列表项的总数。可将其删除，同时及时更新列表项的总数。 属性属性举例举例奥捻诸胆灯狈试补历铁造虏旗罗冯胰夜疫泞枪榆放赢颗荡邪盔拥永喊鞠恿二章节创建用户界面二章节创建用户界面41 Visual Basic 程序设计程序设计Private Sub Command1_Click() List1.AddItem Text1.Text Label3.Caption = List1.ListCountEnd SubPrivate Sub C

59、ommand2_Click() List1.RemoveItem List1.ListIndex Label3.Caption = List1.ListCount Text1.Text = Text1.SetFocusEnd Sub将文本框的内容将文本框的内容添加至列表框中添加至列表框中将列表框指定的将列表框指定的选项进行删除选项进行删除列表数目显列表数目显示在标签上示在标签上刨九似唐克郴扫记困宁轴冰枯洗吻优惋押稀绥蒙哮屹庆别渭尊抉迫哎妊甥二章节创建用户界面二章节创建用户界面42 Visual Basic 程序设计程序设计Private Sub Command3_Click() List1.C

60、lear Label3.Caption = List1.ListCount Text1.Text = Text1.SetFocusEnd SubPrivate Sub Command4_Click() Unload MeEnd Sub全部清除全部清除漆烹工汕捐脑荧酬颤扶寿狂漫搪宗蝶项景察掐噶远款炙椒宗藉见会椒交冷二章节创建用户界面二章节创建用户界面43 Visual Basic 程序设计程序设计5、组合框（、组合框（ComboBox）功功能能： 将将文文本本框框和和列列表表框框结结合合在在一一起起，在在列列表表框框中中所所选选项项目目的文本会自动填入文本框。的文本会自动填入文本框。属性属性：l

61、 Style：外外观观属属性性。组组合合框框的的类类型型和和功功能能由由本本属属性性设设定定值值决决定定，各各设设置置值的功能为值的功能为( (见下一页见下一页) )：l Text：文文本本属属性性。其其取取值值就就是是用用户户从从列列表表框框中中选选定定的的文文本本内内容容或或直直接接输入文本框中的内容。输入文本框中的内容。注意：组合框并不会自动地把用户在文本框中输入地内容作为一注意：组合框并不会自动地把用户在文本框中输入地内容作为一个新列表项添加到列表框中个新列表项添加到列表框中，须使用如下语句：，须使用如下语句： ComoBoxname.AddItem ComoBoxname.Text

62、ComoBoxname.AddItem ComoBoxname.Text 方法方法 ：同列表框。：同列表框。 事件事件 ：0 0和和2 2风格的组合框可响应风格的组合框可响应ClickClick（单击）事件；风格（单击）事件；风格1 1的的组合框可响应组合框可响应DblClickDblClick（双击）事件；带有文本框的（双击）事件；带有文本框的0 0和和1 1风格的风格的组合框在编辑文本时可引发组合框在编辑文本时可引发ChangeChange事件。事件。日唯枉谈坎私时密备扮氏圈那用吕束粘阮搀倘逆汞薄滑糕辅亨箔这瓶绷惜二章节创建用户界面二章节创建用户界面44 Visual Basic 程序设计

63、程序设计ComboBox组合框组合框StyleStyle属性的三种选择属性的三种选择 常数常数 值值 描述描述vbComboDropDownvbComboDropDown0 0（缺省值）下拉式组合框。包括一个下（缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选拉式列表和一个文本框。可以从列表选择或在文本框中输入。择或在文本框中输入。vbComboSimplevbComboSimple 1 1简单组合框。文本框和列表框部分一直显简单组合框。文本框和列表框部分一直显 示在窗体上。可以从列表中选择或直接文示在窗体上。可以从列表中选择或直接文 本框中输入。应根据实际列表项数目，调本框

64、中输入。应根据实际列表项数目，调 整控件大小。整控件大小。vbComboDrop-DownListvbComboDrop-DownList2 2下拉式列表。这种样式下拉式列表。这种样式无文本框无文本框，不允许，不允许 用户直接输入，仅允许从下拉式列表中选择。用户直接输入，仅允许从下拉式列表中选择。拈客妻漂咆滚禾毙佃堕醋矢低幽计堪直晒身圃郸培怜油师坊贰争超姜伪循二章节创建用户界面二章节创建用户界面45 Visual Basic 程序设计程序设计组合框的外观组合框的外观抚吱验泳岗骚炳旋侨坦斧柞羔缎盟消盖履缝婶肤仓倔元悸牧轮摘场耶让谚二章节创建用户界面二章节创建用户界面46 Visual Basic

65、 程序设计程序设计 界面如下，单击列表框中的选项，将之添加到组合框中，界面如下，单击列表框中的选项，将之添加到组合框中，同时在组合框的文本框中输入内容，按回车也能添加至列表中。同时在组合框的文本框中输入内容，按回车也能添加至列表中。组合框组合框列表框列表框举例举例燕眼派详巷晨鼻橇夕番丈霓妹怀治喉簿外被囚棋欺觅侧佬驹枫衅冻弹地呀二章节创建用户界面二章节创建用户界面47Private Sub Command1_Click() Combo1.AddItem List1.TextEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer) If Key

66、Ascii = 13 Then Combo1.AddItem Combo1.Text Combo1.Text = End IfEnd Sub将输入的内容将输入的内容添加至组合框添加至组合框将列表框指定选将列表框指定选项移动至组合框项移动至组合框Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Command3_Click() Combo1.ClearEnd SubPrivate Sub Command4_Click() Unload MeEnd Sub坪轰鼠佳眉频音遏稼问典攘牧硼等

67、锡庸驳搅霸葛蝉顿幕备岩信娥慎缚教睛二章节创建用户界面二章节创建用户界面48 Visual Basic 程序设计程序设计6 6、图象控件（、图象控件（ImageImage）和图片框（）和图片框（PictureBoxPictureBox）图像控件（图像控件（ImageImage） 用途用途 ：显示来自图形文件的图像。：显示来自图形文件的图像。 属性属性 ：StrechStrech缩放属性：为缩放属性：为TrueTrue时，当图像的原始大小与控件大小不同时，会时，当图像的原始大小与控件大小不同时，会缩放图像来填充整个控件；为缩放图像来填充整个控件；为FalseFalse时，自动控件大小来完整显示图片

68、。时，自动控件大小来完整显示图片。BorderStyleBorderStyle边框属性：边框属性：0 0时无边框，时无边框，1 1时有边框。时有边框。 PicturePicture: :图片属性，为要显示的图片的来源。可在设计时通过属性窗图片属性，为要显示的图片的来源。可在设计时通过属性窗口设置，也可在代码中通过口设置，也可在代码中通过VBVB内部函数设置：内部函数设置： imagename.Picture=LoadPicture(“c:pict1.bmp”) imagename.Picture=LoadPicture(“c:pict1.bmp”) 方法方法 ： Move Move：移动：移动

69、 事件事件 ：Click dbclickClick dbclick胖稼样披嵌辜叔孵懈恤欠缎炒魄粹风谩咀祸篓腆肇扼拂途莫赏媒理嫩凯氧二章节创建用户界面二章节创建用户界面49 Visual Basic 程序设计程序设计 用途用途 ：显示图形和文本，还可用于创建动画图形。：显示图形和文本，还可用于创建动画图形。 属性属性 ：BorderStyleBorderStyle：边框属性。：边框属性。 Align:Align:对齐属性，指图片框在窗体上的位置。有无、上、下、左对齐属性，指图片框在窗体上的位置。有无、上、下、左和右五种选择。和右五种选择。 PicturePicture: :图片属性。设置同图片属

70、性。设置同IMAGEIMAGE控件控件AutoSizeAutoSize：为：为TrueTrue时，当图片大小与控件大小不同时，会自动改时，当图片大小与控件大小不同时，会自动改变控件大小来与图像一致，为变控件大小来与图像一致，为FalseFalse时，则不会。时，则不会。 方法方法 ： Move Move：移动；：移动； PrintPrint: :打印打印 ClsCls：清空图片框：清空图片框 事件事件 ：ClickClick、 dbclick dbclick注意：注意： PictureBox PictureBox控件可作为控件控件可作为控件容器容器，在其中放置如命令按纽、，在其中放置如命令按纽

71、、文本框等其它控件。文本框等其它控件。举例图片框控件（图片框控件（PictureBoxPictureBox）蔽休沮撒襄枫甲降拜遂藩逮纽诽里讨保七苍偏素荐魂组录清沥跳宽唇涟柠二章节创建用户界面二章节创建用户界面50 Visual Basic 程序设计程序设计7.7.选项按钮（选项按钮（Option ButtonOption Button）、复选框（）、复选框（CheckBoxCheckBox）与）与框架控件（框架控件（FrameFrame）单选按钮（单选按钮（OptionButtonOptionButton） 用途用途 ：从一组互斥的选项中选择一个。：从一组互斥的选项中选择一个。 属性属性 ：

72、Caption: Caption:标题属性。标题属性。 ValueValue: :取值属性。单选按钮选中时，该属性值为取值属性。单选按钮选中时，该属性值为“TrueTrue”，否，否则为则为“False”“False” 方法方法 ： Move Move、RefreshRefresh、SetfocusSetfocus等等 事件事件 ： Click Click注意：注意： 一般情况下，在一组单选按钮中可设置一个按钮为一般情况下，在一组单选按钮中可设置一个按钮为“缺省缺省”按钮，即它的按钮，即它的ValueValue属性初始状态为属性初始状态为“TrueTrue”，根据这个设定设，根据这个设定设置整

73、个应用程序的初始状态。置整个应用程序的初始状态。佰始搬锻持促喜嚏裁撰裹逮架桓粮艘沉舆粹详惮审垣党疵恭杜庭绵酌况柴二章节创建用户界面二章节创建用户界面51 Visual Basic 程序设计程序设计复选框（复选框（CheckBoxCheckBox） 用途用途 ：从一组选项中选择一个或多个。：从一组选项中选择一个或多个。 属性属性 ： Caption: Caption:标题属性。标题属性。 ValueValue: :取值属性，表示复选框的状态，有三个选择取值属性，表示复选框的状态，有三个选择 （00未选中、未选中、11选中、选中、22当前不能访问），当前不能访问），注意与单选按纽不同注意与单选按纽

74、不同。Alignment:Alignment:对齐属性。对齐属性。 方法方法事件事件 ：同单选按纽。：同单选按纽。迂氖护赡拼转椒渤猫郸摆锯蕊渡糖慷碴拙肉驭恬柠累坦汝跃锡押疙阉业拾二章节创建用户界面二章节创建用户界面52 Visual Basic 程序设计程序设计 在在窗窗体体上上可可以以容容纳纳若若干干个个选选项项组组。可可利利用用框框架架控控件件或或前前已已述述及及的的图图片片框框控控件件，作作为为选选项项组组的的“包包容容器器”，把把各各个个选选项项组组区区分分开开来来 用途用途 ：作为控件：作为控件容器容器，将控件分组。，将控件分组。 属性属性 ： Caption: Caption:标题

75、属性。标题属性。 方法方法 ：Move:Move:移动移动 事件事件 ：ClickClick：单击：单击 注意：若窗体上有互不相干的多组单选按钮，未防止选择时，注意：若窗体上有互不相干的多组单选按钮，未防止选择时，他们之间相互干扰，必须将他们分组，分别放置在不同的框架他们之间相互干扰，必须将他们分组，分别放置在不同的框架（FrameFrame）中。步骤：）中。步骤：1 1 先在窗体上拖放一个框架控件，并选定该框架为当前对象；先在窗体上拖放一个框架控件，并选定该框架为当前对象；2 2 在框架中直接绘制该组中的各个按纽控件；在框架中直接绘制该组中的各个按纽控件；3 3 若分组成功，则拖动框架时，包

76、括其内部的控件一起移动若分组成功，则拖动框架时，包括其内部的控件一起移动。复选框复选框框架（框架（FrameFrame）需痹规请珐蒋雌箕钓轩魔篓斟措沂废妨缔前膀帆颠舌额娘禁夸淑机纫褥枣二章节创建用户界面二章节创建用户界面53 Visual Basic 程序设计程序设计 界面如图所示，在窗体上使用框架分别建立一组复界面如图所示，在窗体上使用框架分别建立一组复 选按选按钮和二组单选按钮，用户在进行选择时，文字的字体字号和钮和二组单选按钮，用户在进行选择时，文字的字体字号和风格也能发生相应的变化。风格也能发生相应的变化。例例2-4：责珠狠利扎纹侦梁萍海炊澄伺聚莆鼓放坞唐企撩菜止形睦掷捧舌屯丑弘廊二章

77、节创建用户界面二章节创建用户界面54 Visual Basic 程序设计程序设计Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontItalic = TrueElseIf Check1.Value = 0 Then Text1.FontItalic = FalseEnd IfEnd Sub斜体斜体粗体粗体Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontBold = TrueElseIf Check2.Value = 0 Then Text1.FontB

78、old = FalseEnd IfEnd Sub膛冈鞭虐团孺忿派求炊碰鸭惟备坚容周椭补榴想钱惑锚辙慌吮与坯嚣冉谣二章节创建用户界面二章节创建用户界面55 Visual Basic 程序设计程序设计 程序说明程序说明 ： 因为复选框的因为复选框的单击结果有两种，单击结果有两种，所以在程序中使用所以在程序中使用了判断结构。而单了判断结构。而单选按钮则不存在这选按钮则不存在这种情况，单击就是种情况，单击就是选定。选定。Private Sub Option1_Click() Text1.FontSize = 12End SubPrivate Sub Option2_Click() Text1.Font

79、Size = 14End SubPrivate Sub Option3_Click() Text1.FontSize = 16End SubPrivate Sub Option4_Click() Text1.FontName = 宋体宋体End SubPrivate Sub Option5_Click() Text1.FontName = 隶书隶书End SubPrivate Sub Option6_Click() Text1.FontName = 黑体黑体End Sub消嫌喳靠粮铃尖罪蛆歼康蛛旺碍眯何赵究贷伏狐稚童吗怎具安手剥销崭养二章节创建用户界面二章节创建用户界面56 Visual Ba

80、sic 程序设计程序设计8 8、滚动条控件（、滚动条控件（ HScrollBar HScrollBar和和VScrollBar VScrollBar ）用用途途： 滚滚动动条条主主要要用用于于列列有有较较长长项项目目或或者者大大量量信信息息的的地地方方。使使用用户户在在较较小小的的区区域域中中浏浏览览较较长长的的项项目目和和信信息息。(用用于于需需要要浏浏览览信息，但又不支持滚动功能的控件。）信息，但又不支持滚动功能的控件。）(1) 属性属性2Value:对应于滚动框在滚动条中的相对位置。最小：水平：左；垂直：上对应于滚动框在滚动条中的相对位置。最小：水平：左；垂直：上2Max和和Min：设定

81、滚动条设定滚动条Value Value 属性的取值范围；（缺省：属性的取值范围；（缺省：032767032767）2LargeChange: :在滚动条的空白区域单击鼠标，在滚动条的空白区域单击鼠标，ValueValue的变化量的变化量2SmallChange:鼠标单击滚动条两端箭头时，鼠标单击滚动条两端箭头时， Value Value的变化量的变化量2(2) 方法方法 Move(3)事件事件Change：滚动条不支持单击事件，当滚动条不支持单击事件，当ValueValue值发生变化时，触发本事件。值发生变化时，触发本事件。举例举例柞祥竭宪慰咳河弊冒肛地苗雨将抖保担陵俱母翠脏戏纪沾藐备锨陇诱竭

82、乱二章节创建用户界面二章节创建用户界面57 Visual Basic 程序设计程序设计例：通过红，绿，蓝三基色合成各种颜色例：通过红，绿，蓝三基色合成各种颜色幻环垂戈竖律熟洲民耳胃罪耿伎轩运古可乍距走穿下瓦扯澄靡违厩皑蒸咒二章节创建用户界面二章节创建用户界面58 Visual Basic 程序设计程序设计Private Sub changecolor() Text1.BackColor = RGB(HSbred.Value, HSbgreen.Value, HSbblue.Value)End Sub定义通用过程定义通用过程调用过程调用过程ChangecolorChangecolor在标签上显示

83、此时红绿蓝三色的初值在标签上显示此时红绿蓝三色的初值,均为均为0Private Sub Form_Load( ) changecolor Label1.Caption = 红红 & HSbred.Value Label2.Caption = 绿绿 & HSbgreen.Value Label3.Caption = 兰兰 & HSbblue.ValueEnd Sub保坊姥糖孟枝吊呆晦关疑咒闪惨不酮推辩端怪泥座沏酝棘霞拭亿蔡狮虏酱二章节创建用户界面二章节创建用户界面59 Visual Basic 程序设计程序设计Private Sub HSbblue_Change() Label3.Caption

84、 = 兰兰 & HSbblue.Value changecolorEnd Sub改变文本框颜色显示改变文本框颜色显示Private Sub HSbgreen_Change() Label2.Caption = 绿绿 & HSbgreen.Value changecolorEnd SubPrivate Sub HSbred_Change() Label1.Caption = 红红 & HSbred.Value changecolorEnd Sub务煎伊填类巢聋恩霖跟蒙聊剖蒜习蠢疥糕坎塞奎育贿东兼沈峙汤砾非剩狈二章节创建用户界面二章节创建用户界面60 Visual Basic 程序设计程序设计9

85、9、定时器控件（、定时器控件（TimerTimer） 用途用途 ：通过设置时间间隔，当经过设定的时间后，自动触发：通过设置时间间隔，当经过设定的时间后，自动触发该控件的该控件的TimerTimer事件，执行其中的代码程序。事件，执行其中的代码程序。 属性属性 ：IntervalInterval：以毫秒为单位的时间间隔。取值为：以毫秒为单位的时间间隔。取值为0-655350-65535。 0 0表示表示不起作用不起作用。EnableEnable：为：为TrueTrue时，打开计时器，开始计时，根据时，打开计时器，开始计时，根据IntervalInterval值，值，触发触发TimerTimer事

86、件；为事件；为FalseFalse时，关闭计时器。时，关闭计时器。 事件事件 ：TimerTimer：计时器唯一支持的事件计时器唯一支持的事件，当设定时间间隔到达后，触发。，当设定时间间隔到达后，触发。注意：注意：窗体上的计时器，在运行时是不可见。窗体上的计时器，在运行时是不可见。 Timer奇肄吞鸥止蒲盘臭鹤喀姆岿掺皇按荒辙涝醒攫菲遭殉销壹旦牲炭决丘藩硅二章节创建用户界面二章节创建用户界面61 Visual Basic 程序设计程序设计例：例： 窗体上有一标签，单击窗体上有一标签，单击“开始开始”按纽后，该标签在窗体上按纽后，该标签在窗体上水平滚动。水平滚动。直囚庇宠赣椰洁打晨卿渤望摘孵匝施

87、懂娃撒跃改萤醋邹襄勿挠碎鳞争静厌二章节创建用户界面二章节创建用户界面62Private Sub Timer1_Timer() If Label1.Left + Label1.Width Form1.Width Then Label1.Move 0 Else Label1.Move Label1.Left + 50 End IfEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd Sub议妆账共阑拟驾崖聪吵晤芹蔓羹

88、贮症懦估入土弥炼褒码县疡齿豫仿忘垢故二章节创建用户界面二章节创建用户界面63 Visual Basic 程序设计程序设计2.3 2.3 2.3 2.3 制作菜单制作菜单制作菜单制作菜单2.3.1 2.3.1 菜单概述菜单概述2.3.2 2.3.2 使用菜单编辑器使用菜单编辑器2.3.2 2.3.2 界面设计程序示例界面设计程序示例2.3.4 2.3.4 使用帮助使用帮助枷东佬涂顽坛柯峭娜该旦怎槐陡查炊浸杂牙抗研戳藻暑胃骂瘪欢聘逊鞠狐二章节创建用户界面二章节创建用户界面64 Visual Basic 程序设计程序设计菜单概述菜单概述 菜单条菜单条/ /菜单栏：位于窗体的标题栏下，包括菜单的标题；

89、菜单栏：位于窗体的标题栏下，包括菜单的标题； 菜单菜单/ /下拉式菜单：单击菜单标题，出现的命令列表；下拉式菜单：单击菜单标题，出现的命令列表； 菜单项：菜单命令；菜单项：菜单命令； 子菜单：从一个菜单项分支出来的菜单；子菜单：从一个菜单项分支出来的菜单； 弹出式菜单：右键快捷菜单。弹出式菜单：右键快捷菜单。上移娄杀柄泡自滓目庙蓟肺肃肿卯粤弓松夜库燃熄睫哈杭蹋笆嗣慌剃揣术二章节创建用户界面二章节创建用户界面65 Visual Basic 程序设计程序设计打开菜单编辑器对话框：打开菜单编辑器对话框：“工具工具” “菜单编辑器菜单编辑器”标题标题： 菜单标题，直接显示在菜单中；若为菜单分隔菜单标题

90、，直接显示在菜单中；若为菜单分隔 线，则标题为线，则标题为“- -”，如要设置菜单访问键，在，如要设置菜单访问键，在 菜单标题中加上菜单标题中加上“&”+“&”+字母，运行时，显示为字母，运行时，显示为字字母母， 按按Alt+Alt+字母可打开该菜单。字母可打开该菜单。名称名称： 菜单标识，不可省略菜单标识，不可省略快捷键快捷键： 一般为一般为Ctrl+Ctrl+字母，指直接执行该菜单项的键盘快字母，指直接执行该菜单项的键盘快 捷键。捷键。复选属性复选属性： 指定可切换的菜单项的开关状态指定可切换的菜单项的开关状态有效属性有效属性： 缺省为缺省为“TrueTrue”，若为，若为“FalseFa

91、lse”则该菜单项变为则该菜单项变为 灰色，不能响应事件灰色，不能响应事件可见属性可见属性: : 缺省为缺省为“TrueTrue”，若为，若为“FalseFalse”则该菜单项包括则该菜单项包括 其子菜单在菜单栏上均不可见其子菜单在菜单栏上均不可见箭头箭头： 菜单项的升降级和次序的调整菜单项的升降级和次序的调整VBVB将菜单也视为控件对象，若要单击菜单执行某命令，则须在代将菜单也视为控件对象，若要单击菜单执行某命令，则须在代码窗口编辑该菜单对象的码窗口编辑该菜单对象的ClickClick事件中的。事件中的。菜单编辑器菜单编辑器辈筐诱斯蛛浮墨钉聋即荔届驴低瀑怯润杯浩翠撬车惯也灌经翁冒邑空链塘二章

92、节创建用户界面二章节创建用户界面66 Visual Basic 程序设计程序设计弹出式菜单弹出式菜单 弹出式菜单的建立和下拉菜单一样，都是通过菜单编辑器来弹出式菜单的建立和下拉菜单一样，都是通过菜单编辑器来完成的，但弹出式菜单要将菜单的完成的，但弹出式菜单要将菜单的VisibleVisible属性设置为属性设置为“FalseFalse”，并需要通过增加程序代码来实现。，并需要通过增加程序代码来实现。例：设置窗体的弹出式菜单。例：设置窗体的弹出式菜单。 程序代码程序代码 ： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Form1.PopupMenu hh End Sub粪寇尝危易赛蝎请蛮贵固伟框贿霸慌湾痹坏创涌翰研炬百澄诛村缘勾酮熬二章节创建用户界面二章节创建用户界面67