二章创建用户界面

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

1、江苏省计算机等级考试 Visual Basic 程序设计程序设计第二章第二章第二章第二章 创建用户界面创建用户界面创建用户界面创建用户界面 Visual Basic 程序设计程序设计 掌握窗体的常用属性、事件和方法以及多窗体和掌握窗体的常用属性、事件和方法以及多窗体和 MDIMDI窗体的概念；窗体的概念； 掌握常用控件：掌握常用控件：文本框文本框、标签标签、命令按钮命令按钮、列表列表框框、组合框组合框、图片框图片框、单选按钮单选按钮和和复选框复选框的常用属性、的常用属性、事件和方法事件和方法 ； 掌握菜单的制作和使用方法掌握菜单的制作和使用方法 。教学要求教学要求2 Visual Basic

2、程序设计程序设计 2.1 2.1 创建窗体创建窗体 2.2 Visual Basic 2.2 Visual Basic 的常用控件的常用控件 2.3 2.3 制作菜单制作菜单教学内容教学内容3 Visual Basic 程序设计程序设计窗体窗体： 窗体是窗体是VBVB应用程序的基本构造模块，用于创建应用程序的基本构造模块，用于创建VBVB应用程序用户界面或对话框，是包容各种控件对应用程序用户界面或对话框，是包容各种控件对象的象的容器容器。 由标题栏、边框以及客户区组成。由标题栏、边框以及客户区组成。2.1 2.1 创建窗体创建窗体4 Visual Basic 程序设计程序设计2.1.1 窗体的

3、属性、方法与事件窗体的属性、方法与事件 NameName（名名称称）：窗窗体体名名称称, ,在在程程序序代代码码中中，被被作作为为对对象象的的标标识识名名，以以识识别别不不同同的的窗窗体体对对象象，自自行行命命名名窗窗体体时时，必必须须以以一一个个字字母母开开头头，可可包包含含数数字字和和下下划划线线，不不能能包包含含空空格格和和标标点点符符号号，长度小于长度小于4040个字符个字符。 CaptionCaption：窗窗体体标标题题，是是出出现现在在窗窗体体标标题题栏栏上上的的文文本本，缺缺省省使用窗体名。使用窗体名。BackColorBackColor与与ForeColorForeColor

4、：窗体的背景色与前景色窗体的背景色与前景色BorderStyleBorderStyle：窗窗体体边边框框风风格格。设设定定值值及及相相关关的的VBVB内内部部常常量量及不同风格详见下表：及不同风格详见下表：1 1、常用属性常用属性5 Visual Basic 程序设计程序设计 常数常数 设置值设置值 描述描述vbBSNonevbBSNone 0 0 无（没有边框或与边框相关的元素）无（没有边框或与边框相关的元素）vbFixedSinglevbFixedSingle 1 1 固定单边框。可以包含控制菜单框，固定单边框。可以包含控制菜单框， 标题栏和关闭按钮，不能改变尺寸。标题栏和关闭按钮，不能改

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

6、值属性的六种设置值6 Visual Basic 程序设计程序设计 EnabledEnabled：活动属性。缺省值为活动属性。缺省值为”TrueTrue”, ,当设置为当设置为”FalseFalse”时，窗口时，窗口及其上控件及其上控件将不能被访问。将不能被访问。 LeftLeft、TopTop、HeightHeight和和WidthWidth：决定窗体位置与大小。决定窗体位置与大小。LeftLeft和和TopTop是窗体左上角的坐标（是窗体左上角的坐标（屏幕左上角为坐标零点）屏幕左上角为坐标零点）；HeightHeight和和WidthWidth是窗体的高度和宽度，是窗体的高度和宽度， 单位均

7、为特维；单位均为特维； FontFont：字体字体属性，设置属性，设置窗体上正文窗体上正文字体、字型、字号等；字体、字型、字号等； VisibleVisible: :可见属性。可见属性。缺省为缺省为“ TrueTrue”; ;当设置为当设置为“FalseFalse”时，窗体隐藏，注意：此属性只在运行时生效。时，窗体隐藏，注意：此属性只在运行时生效。 PicturePicture: :背景图片属性。背景图片属性。 MoveableMoveable：可移动属性，缺省为可移动属性，缺省为True,True,窗体在运行时可拖动，窗体在运行时可拖动，FalseFalse时，不能拖动；时，不能拖动；窗体常

8、用属性窗体常用属性7 Visual Basic 程序设计程序设计在在VBVB中，有两种设置窗体（或其他对象）属性值的方法。中，有两种设置窗体（或其他对象）属性值的方法。M在设计时，通过在设计时，通过属性窗口属性窗口为其设定各种属性值；为其设定各种属性值；M在程序执行过程中改变属性值，即在程序执行过程中改变属性值，即通过程序通过程序代码改变代码改变属性值属性值在程序代码中则使用如下格式的代码行来改变属性值：在程序代码中则使用如下格式的代码行来改变属性值： Object . Property = Expression式中，式中，ObjectObject是对象名；是对象名； PropertyProp

9、erty是属于该对象的某个属性名；是属于该对象的某个属性名； ExpressionExpression是为该属性赋予的值是为该属性赋予的值, ,必须和属性类型一致，即必须和属性类型一致，即属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应是逻辑型。是逻辑型。 例：例： Labe11.Caption =欢迎学习欢迎学习VB!“ VB!“ Form1.Enable = False = False Form1.Caption = = Label1.Caption2.1.2 2.1.2 定制窗体属性定制窗体属性8 Visual Basi

10、c 程序设计程序设计窗体的常用方法窗体的常用方法A ShowShow： 显示方法。显示方法。 如：如：form2.Showform2.ShowA HideHide： 隐藏方法；隐藏方法； 如：如：form2.form2. HideHideA Move Move： 移动方法；如：移动方法；如：form1.Move form1.Move left,top,width,heightleft,top,width,heightA Print Print： 打印方法；打印方法；A ClsCls： 清除方法清除方法, ,清除窗体上所有打印的文本或图形清除窗体上所有打印的文本或图形A RefreshRefre

11、sh： 刷新方法；刷新方法；通常窗体的刷新是自动进行的。通常窗体的刷新是自动进行的。 方法可使方法可使对象执行一个动作或任务。对象执行一个动作或任务。 使用方法的格式是：使用方法的格式是： 对象名对象名. .方法方法 或或 对象名对象名. .方法方法Arg1,Arg2,.Arg1,Arg2,. 后一种方法是带有参数的方法。后一种方法是带有参数的方法。窗体的常用方法窗体的常用方法9 Visual Basic 程序设计程序设计Private Sub Command1_Click() Dim inchw, inchh inchw = Form1.Width inchh = Form1.Height

12、MsgBox “将窗体移动到屏幕的左上角将窗体移动到屏幕的左上角, 同时尺寸缩小为原来的一半同时尺寸缩小为原来的一半 Form1.Move 0, 0, inchw / 2, inchh / 2End Sub例例: : 使用使用MoveMove方法移动一个窗体，重新定位在屏幕左上角，尺方法移动一个窗体，重新定位在屏幕左上角，尺 寸缩小一倍。寸缩小一倍。举例：举例：10 Visual Basic 程序设计程序设计事件：事件：能够被对象所识别的动作能够被对象所识别的动作; ; 当某事件发生了，系统会自动执行其事件过程内的代码当某事件发生了，系统会自动执行其事件过程内的代码事件过程的一般格式：事件过程

13、的一般格式： Private Sub Private Sub 对象名对象名_ _事件名（事件名（ 参数表参数表 ） （程序代码）（程序代码） End SubEnd Sub例如：例如：窗体的常用事件窗体的常用事件A ClickClick： 单击事件；单击事件；A DblClickDblClick： 双击事件；双击事件；A LoadLoad： 装载事件；装载事件；A ResizeResize： 在窗体被改变大小时，会触发本事件；在窗体被改变大小时，会触发本事件；A ActivateActivate： 激活事件，当窗体变为当前窗口时，引发本事件；激活事件，当窗体变为当前窗口时，引发本事件；A Dea

14、ctivateDeactivate： 失去激活事件，当窗体失去激活状态，即另一个失去激活事件，当窗体失去激活状态，即另一个 窗体成为当前窗口时，引发本事件。窗体成为当前窗口时，引发本事件。Private Sub Form_Click() vb语句语句 End Sub窗体常用事件窗体常用事件11 Visual Basic 程序设计程序设计2.1.3 窗体的显示、隐藏、装载和卸载窗体的显示、隐藏、装载和卸载 1 1、窗体的显示与隐藏、窗体的显示与隐藏 2 2、装载窗体和、装载窗体和LoadLoad事件事件 3 3、卸载窗体与、卸载窗体与UnloadUnload事件事件 4 4、 End End 语

15、语 句句 12 Visual Basic 程序设计程序设计（1） 显示窗体显示窗体，可在程序中加入以下代码可在程序中加入以下代码： Formname.Show Style 其中：其中：FormnameFormname是要显示的窗体名。是要显示的窗体名。 ShowShow方法的方法的StyleStyle参数决定窗体是有模式的参数决定窗体是有模式的（vbModelvbModel）还是无模式的（还是无模式的（vbModelessvbModeless）。）。l有模式窗体不允许用户同时与应用程序的其他窗体交互，有模式窗体不允许用户同时与应用程序的其他窗体交互，如如WindowsWindows程序中的命令

16、执行确认窗口程序中的命令执行确认窗口；l无模式窗体则允许用户与一个程序的其他窗口自由交互，无模式窗体则允许用户与一个程序的其他窗口自由交互，如如VBVB环境中的工程、属性和代码窗口等环境中的工程、属性和代码窗口等，缺省值是无模式缺省值是无模式1 1、窗体的显示与隐藏窗体的显示与隐藏（2）隐藏窗体隐藏窗体，可在程序中加入以下代码：可在程序中加入以下代码： Formname.HideFormname.Hide 其中：其中：FormnameFormname是要隐藏的窗体名。是要隐藏的窗体名。13 Visual Basic 程序设计程序设计（1 1）编写事件过程时，建议不要自行输入程序框架，而）编写事

17、件过程时，建议不要自行输入程序框架，而应选定应选定对象和事件过程，对象和事件过程，由系统自动产生框架由系统自动产生框架。（2 2）命令按钮）命令按钮1 1的单击事件名为的单击事件名为Command1_ClickCommand1_Click，命令按钮命令按钮2 2的的单击事件名为单击事件名为Command2_ClickCommand2_Click，但对于一个窗体，单击事件过但对于一个窗体，单击事件过程名程名为为Form_ClickForm_Click，而不是而不是Form1_ClickForm1_Click，即窗体的事件过程即窗体的事件过程中的对象名是中的对象名是FORMFORM，而非具体的而非

18、具体的namename属性值。属性值。例：单击窗体例：单击窗体1 1，显示窗体，显示窗体2 2。 Private Sub Form_ClickPrivate Sub Form_Click（）（） Form2.ShowForm2.Show End Sub End Sub注意：注意：14 Visual Basic 程序设计程序设计2 2、装载窗体和装载窗体和LoadLoad事件事件 使用装载语句可把窗体（或其他对象）载入内存，但并使用装载语句可把窗体（或其他对象）载入内存，但并不显示它。不显示它。 装载语句装载语句的格式是：的格式是：Load Object 其中：其中：Object是窗体名（对象名

19、）是窗体名（对象名） 由于由于VBVB应用程序在执行时，会应用程序在执行时，会自动装载自动装载启动窗体，所以启动窗体，所以没有必要对启动窗体使用没有必要对启动窗体使用LoadLoad语句。语句。 当系统装载窗体时，将引发窗体的当系统装载窗体时，将引发窗体的LoadLoad事件事件； 在使用在使用ShowShow方法显示窗体时，也会自动将尚未载入内方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发该窗体的存的窗体装入内存，并引发该窗体的LoadLoad事件事件。15 Visual Basic 程序设计程序设计3 3、卸载窗体与卸载窗体与UnloadUnload事件事件 使用卸载语句可把

20、窗体（或其他对象）从内存卸载。使用卸载语句可把窗体（或其他对象）从内存卸载。 卸载语句卸载语句的格式是：的格式是： Unload Object 其中：其中：ObjectObject是窗体名（对象名）是窗体名（对象名） 卸载将使该对象的所有属性重新恢复为设计态时设定的初始卸载将使该对象的所有属性重新恢复为设计态时设定的初始值；卸载还将引发对象的值；卸载还将引发对象的UnloadUnload事件事件。 如果卸载的对象是程序唯一的窗体，则将终止程序的运行。如果卸载的对象是程序唯一的窗体，则将终止程序的运行。一起来看个例子吧！一起来看个例子吧！16 Visual Basic 程序设计程序设计4.End

21、 4.End 语句语句 在程序代码中可使用在程序代码中可使用EndEnd语句结束程序运行，语句结束程序运行，形式是：形式是：End 执行该语句将终止应用程序的执行，并从执行该语句将终止应用程序的执行，并从内存卸载内存卸载所有窗体所有窗体。17 Visual Basic 程序设计程序设计格式：格式： Object.Print Object.Print 功能：将输出项显示在窗体或图片框上。功能：将输出项显示在窗体或图片框上。说明：（说明：（1 1）对象名缺省，则输出到窗体上；）对象名缺省，则输出到窗体上； （2 2）输出项之间用逗号或分号间隔，若用逗号间隔，则）输出项之间用逗号或分号间隔，若用逗号

22、间隔，则为为标准标准输出；若用分号间隔，则为输出；若用分号间隔，则为紧凑紧凑输出。输出。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 程序设计程序设计多窗体程序设计多窗体程序设计 当应用程序中有多个窗体界面时，设计时，同样先新建一个当应用程序中有多个窗体界面时，设计时，同样先新建一个工程，其中有一个窗体工程

23、，其中有一个窗体form1form1，然后通过下列步骤，设计多窗体：然后通过下列步骤，设计多窗体：1 1、添加并设计窗体、添加并设计窗体 “ “工程工程” “” “添加窗体添加窗体”，再依次设计每一个窗体的，再依次设计每一个窗体的界面元素以及相应的事件过程；界面元素以及相应的事件过程；2 2、设置启动窗体、设置启动窗体 “ “工程工程” “” “工程属性工程属性”，在，在“通用通用”选项卡上，设选项卡上，设置置“启动对象启动对象”。注意：（注意：（1 1）在启动窗体中，必须要有对其他窗体的引用接口，）在启动窗体中，必须要有对其他窗体的引用接口，可以是菜单命令或命令按钮的形式，否则其他窗体将无法

24、显示。可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。 （2 2）多窗体应用程序保存时，先将每一个窗体以一个独立）多窗体应用程序保存时，先将每一个窗体以一个独立的窗体文件保存，扩展名为的窗体文件保存，扩展名为. .frmfrm，再保存工程文件。再保存工程文件。 （3 3）多窗体应用程序打开时，直接打开工程文件，将会把）多窗体应用程序打开时，直接打开工程文件，将会把该程序中所有的窗体文件都装载。该程序中所有的窗体文件都装载。19 Visual Basic 程序设计程序设计MDIMDI（多文档界面）窗体多文档界面）窗体 在多窗体应用程序中，一般有一个在多窗体应用程序中，一般有一个MDIMD

25、I窗体（框架，父窗体）窗体（框架，父窗体）构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。创建创建MDIMDI应用程序的步骤：应用程序的步骤：1 1、“工程工程” “” “添加添加MDIMDI窗体窗体”；2 2、将应用程序中其它窗体的、将应用程序中其它窗体的 MDIchildMDIchild 属性设置为属性设置为“True”.True”.3 3、将将 MDIMDI窗体设置为启动窗体。窗体设置为启动窗体。注意：注意：1 1、一个应用程序中，只有一个、一个应用程序中，只有一个MDIMDI窗体；窗体；2 2、在、在MDIMDI窗体上，除窗体

26、上，除PictureBoxPictureBox和和TimerTimer外，一般不能直接放置其外，一般不能直接放置其他控件，他控件，3 3、关闭关闭 MDIMDI窗体，将自动关闭所有打开的子窗体。窗体，将自动关闭所有打开的子窗体。4 4、运行时，子窗体只能在、运行时，子窗体只能在MDIMDI窗体内移动。窗体内移动。 举例举例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

27、常用控件常用控件21 Visual Basic 程序设计程序设计控件名控件名 功能功能Pointer指针指针 用于改变控件大小和位置等用于改变控件大小和位置等 PictureBox图片框图片框 显示图形或图象显示图形或图象Label标签标签 用于文字说明，显示提示性信息用于文字说明，显示提示性信息TextBox文本框文本框 用于字符输入用于字符输入Frame框架框架 用于组合控件，将控件分组用于组合控件，将控件分组CommandButton命令按钮命令按钮 单击执行命令单击执行命令CheckBox复选框复选框 用于多项选择用于多项选择OptionButton选项按钮选项按钮 用于从多个选项中单

28、选其一用于从多个选项中单选其一ComboBox组合框组合框 列表框与文本框的组合列表框与文本框的组合ListBox列表框列表框 列出多个选项供选择列出多个选项供选择H.ScrollBar水平滚动条水平滚动条 产生水平滚动条产生水平滚动条V.ScrollBar垂直滚动条垂直滚动条 产生垂直滚动条产生垂直滚动条Timer计时器计时器 用于定时用于定时DriveListBox驱动器列表框驱动器列表框 DirListBox文件夹列表框文件夹列表框 FileListBox文件列表框文件列表框 Shape图形图形 Line线条线条 Image图象图象 Data数据控件数据控件 OLE控件控件基基本本控控件

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

30、件（ HScrollBar和和VScrollBar ）10.定时器控件定时器控件(Timer)常用控件常用控件23 Visual Basic 程序设计程序设计1.1.文本框（文本框（Text BoxText Box）功功能能：用用于于接接收收用用户户在在框框内内输输入入的的字字符符信信息息，或或显显示示由由程程序序代码产生的信息。代码产生的信息。属性属性：lName(名称名称)：文本框的名称，：文本框的名称，lText：文文本本属属性性，该该属属性性值值就就是是用用户户在在文文本本框框输输入入的的内内容容。( (注意：注意：TextBoxTextBox无无CaptionCaption属性属性）

31、 lPasswordChar：口口令令属属性性。本本属属性性缺缺省省值值为为空空字字符符串串，表表示示用用户户由由键键盘盘输输入入的的字字符符，直直接接在在文文本本框框中中显显示示出出来来；如如果果该该属属性性值值为为某某个个字字符符，则则文文本本框框中中输输入入的的内内容容均均显显示示为为该该字字符符，用用户户看看不不见见实实际际输输入入的的字字符符，一一般般可可用用于于口口令令输输入。（如属性值设为入。（如属性值设为* *） 24 Visual Basic 程序设计程序设计lMaxLength：最最大大长长度度属属性性。缺缺省省为为0 0，表表示示本本文文本本框框可可以以接接收任意个字符。

32、收任意个字符。lMultiLine：多多行行属属性性。本本属属性性值值若若为为“真真”，则则可可输输入入多多行行文本；否则只能输入一行文本。文本；否则只能输入一行文本。该属性不能在程序中改变该属性不能在程序中改变lScrollbars:Scrollbars:在文本框中添加水平和垂直滚动条。在文本框中添加水平和垂直滚动条。 l00无无l11仅水平滚动条仅水平滚动条l22仅垂直滚动条仅垂直滚动条l33均有均有lAlignment:Alignment:对齐属性，有三种选择对齐属性，有三种选择l00（缺省值）文本左对齐。缺省值）文本左对齐。l11文本右对齐文本右对齐l22文本居中文本居中lLeftLe

33、ft、 toptop、 WidthWidth、 Height :Height :相对于相对于用户区用户区用户区用户区的左上角位置。的左上角位置。文本框前提是前提是MultiLine为为True属性属性：25 Visual Basic 程序设计程序设计方法方法：lSetFocusSetFocus：设置焦点，通过本方法可使光标指向指定设置焦点，通过本方法可使光标指向指定的文本框。的文本框。 事件事件 ：lChangeChange：在文本框的在文本框的TextText属性属性, ,即文本的内容发生变即文本的内容发生变化时，就触发本事件；化时，就触发本事件；lLostFocusLostFocus：当光

34、标离开文本框时，引发本事件。当光标离开文本框时，引发本事件。lKeyPressKeyPress: :当焦点在文本框，并按下任何标准字符集当焦点在文本框，并按下任何标准字符集的按键时会引发本事件。的按键时会引发本事件。例：文本框例：文本框文本框26例：在窗体例：在窗体1 1中的文本框中输入口令，单击中的文本框中输入口令，单击“判断判断”按纽，如口令按纽，如口令正确，显示窗体正确，显示窗体2 2，否则，弹出提示错误窗口，单击，否则，弹出提示错误窗口，单击“清空清空”按纽，按纽，清除文本框中的口令，并将焦点设置在其中以便下次录入。清除文本框中的口令，并将焦点设置在其中以便下次录入。27 Visual

35、 Basic 程序设计程序设计Private Sub Command1_Click() If Text1.Text = 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

36、As Integer) 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）功功能能：用用于于在在窗窗体体上上增增加加文文字字说说明明。如如用用作作窗窗体体的的状状态态栏栏，或或为文本框、列表框等添加注释文字说明等。为文本框、列表框等添加注释文字说明等。(1) 属性属性

37、 NameName：标签名称；标签名称； CaptionCaption：标题属性。本属性值即为标签所显示的文本内容；标题属性。本属性值即为标签所显示的文本内容； AlignmentAlignment：对对齐齐属属性性。缺缺省省值值为为0 0，将将CaptionCaption文文本本左左对对齐齐；若设为若设为1 1，为右对齐；设为，为右对齐；设为2 2，则为居中；，则为居中； AutoSizeAutoSize: :大大小小自自适适应应属属性性，当当取取值值为为“True”True”时时，标标签签大大小小 会会 随随 实实 际际 显显 示示 的的 内内 容容 （ CaptionCaption） 而

38、而 变变 化化 ， 缺缺 省省 为为“False”False”。 WordWrapWordWrap: :字字折折行行属属性性。取取值值为为“True”True”时时，标标签签大大小小垂垂直直扩扩展展，即即标标题题文文字字换换行行，为为“False”False”时时，则则水水平平拓拓展展，缺缺省省“False”False”，该属性只有在该属性只有在AutoSizeAutoSize属性为属性为“TrueTrue”时才有效时才有效。30 Visual Basic 程序设计程序设计(2) 方法方法 RefreshRefresh：刷新；刷新； MoveMove：移动。移动。(3)事件事件 Click（单

39、击）、单击）、DblClick（双击）（很少用及）双击）（很少用及）注意：注意： 标签得不到焦点，所以无标签得不到焦点，所以无SetFocus方法方法例例 Label31 Visual Basic 程序设计程序设计Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = Command1.Left Label1.Top = Command1.Top + Command1.Height Label1.WordWrap = False Lab

40、el1.AutoSize = True Label1.BackColor = vbYellow Label1.Visible = True Label1.Caption = 关闭窗体，结束应用程序关闭窗体，结束应用程序End Sub设置颜色设置颜色使标签可见使标签可见文本不换行文本不换行例：窗体例：窗体FORM1FORM1上有一个命令按纽上有一个命令按纽“Close”Close”，当鼠标光标移动动到当鼠标光标移动动到该按钮上时，在按纽下方显示由该按钮上时，在按纽下方显示由LABEL1LABEL1提供的提示行：背景色为提供的提示行：背景色为“淡黄色淡黄色”，文字为，文字为“关闭窗体，结束应用程序

41、关闭窗体，结束应用程序”。32 Visual Basic 程序设计程序设计Private Sub Command1_Click() Unload MeEnd Sub除除命令按钮外，鼠标在命令按钮外，鼠标在窗体其他位置移动时，窗体其他位置移动时，并不出现标签提示并不出现标签提示Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Visible = FalseEnd Sub33 Visual Basic 程序设计程序设计3 3、命令按钮（命令按钮（Comma

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

43、True”True”. .缺省值为缺省值为“False”False”。lCancel：取取消消属属性性。当当本本属属性性值值设设为为“True”True”（真真）时时，按按“Esc”Esc”键键即即等等同同于于单单击击本本按按钮钮；在在一一个个窗窗体体中中，只只能能有有一一 个个 命命 令令 按按 钮钮 的的 该该 属属 性性 设设 置置 为为 “TrueTrue”， 缺缺 省省 值值 为为“False”False”； lEnable:Enable:有有效效属属性性，当当该该属属性性为为“False”False”时时，命命令令按按钮钮无无效，效， 不能响应用户事件，不能响应用户事件，缺省为缺省

44、为“True”True”。34 Visual Basic 程序设计程序设计(2)方法方法lSetFocus：设置焦点。设置焦点。 设设置置为为焦焦点点的的按按钮钮，标标题题周周围围将将有有一一个个边边框框，用用户户直直接接按按“回车键回车键”时，将会触发执行该按钮的单击事件时，将会触发执行该按钮的单击事件。(3)事件事件 ClickClick，即鼠标单击。这是即鼠标单击。这是命令按钮最基本、最重要的事件。命令按钮最基本、最重要的事件。书书P23P23 例例 2-235 Visual Basic 程序设计程序设计例例2-22-2一个使用命令按钮的程序示例一个使用命令按钮的程序示例36Privat

45、e Sub Command1_Click() Label1.Caption = 报效祖国报效祖国 Command2.Enabled = True Command2.SetFocus Command1.Enabled = FalseEnd Sub使使按钮按钮2 2变为活动状态变为活动状态Private Sub Command2_Click() Label1.Caption = 努力学习努力学习 Command1.Enabled = True Command1.SetFocus Command2.Enabled = FalseEnd Sub使使按钮按钮1 1变为非活动状态变为非活动状态使使按钮按钮

46、2 2具有焦点具有焦点37 Visual Basic 程序设计程序设计4、列表框（列表框（ListBox） 用途用途 ：列出可供用户选择的项目列表。：列出可供用户选择的项目列表。 属性属性：lListList：表表属属性性。用用于于保保存存列列表表内内容容。程程序序代代码码中中，可可通通过过表表属性以及列表项序号实现对某具体列表项的访问：属性以及列表项序号实现对某具体列表项的访问： 对象名对象名.List(.List(列表项序号列表项序号) ) 其其中中的的对对象象名名即即为为列列表表框框的的NameName属属性性值值；列列表表项项的的序序号号从从0 0开始，由上到下依次为开始，由上到下依次

47、为0 0、1 1、2 2、3.3. 列列表表框框中中的的列列表表项项的的添添加加方方法法：一一是是设设计计时时在在属属性性窗窗口口的的LISTLIST属属性性值值中中直直接接添添加加，二二是是在在程程序序运运行行时时，在在代代码码中中通通过过additemadditem方法添加。方法添加。lListCountListCount：列表项数目。列表项数目。38 Visual Basic 程序设计程序设计lListIndexListIndex：列列表表项项索索引引。其其值值为为当当前前选选选选中中中中的的的的列列列列表表表表项项项项的的序序号号，第一个列表项的序号为第一个列表项的序号为0 0，如果未

48、选任何项目，则其值为，如果未选任何项目，则其值为-1-1；lTextText：列列表表项项正正文文。其其值值为为当当前前选选中中的的列列表表项项的的文文本本，它它与与List (ListIndex)相同；相同； 即即List1.Text=List1.List(ListIndex)List1.Text=List1.List(ListIndex)lColumnsColumns：列列属属性性。设设置置列列表表框框中中显显示示的的列列表表项项的的列列数数。该该属属性性缺缺省省为为，只只显显示示一一列列文文本本。逐逐行行显显示示列列表表项项，可可能能有有垂垂直直滚动条，取值为大于滚动条，取值为大于0 0

49、的值时，列表项可占多列显示；的值时，列表项可占多列显示；lSortedSorted：排排序序属属性性。取取值值为为“True”True”时时，各各列列表表项项将将按按字字母母表排序，取值为表排序，取值为“False”False”时，将不排序。时，将不排序。 属性属性39 Visual Basic 程序设计程序设计方法方法：& AddItemAddItem ：添加列表项。使用下面的格式来添加：添加列表项。使用下面的格式来添加： 对象名对象名.AddItem .AddItem ,插入位置序号插入位置序号 若不指定插入位置，则插入到列表末尾；若不指定插入位置，则插入到列表末尾；& ClearClea

50、r ：删除列表中所有列表项。删除列表中所有列表项。& RemoveItemRemoveItem ：删除指定列表项。用法如下：删除指定列表项。用法如下： 对象名对象名.RemoveItem .RemoveItem 删除项序号删除项序号事件事件： 虽然列表框可以响应单击虽然列表框可以响应单击ClickClick和双击和双击DblClickDblClick事件。事件。但很少使用。但很少使用。例：列表框例：列表框40 Visual Basic 程序设计程序设计 界面如图所示，在文本框中输入内容，再单击界面如图所示，在文本框中输入内容，再单击“增加增加”命令命令按纽，可以将文本框中的内容添加至列表框中；

51、对指定的列表框按纽，可以将文本框中的内容添加至列表框中；对指定的列表框选项，单击选项，单击“删除删除”可将其删除，同时及时更新列表项的总数。可将其删除，同时及时更新列表项的总数。 属性属性举例举例41 Visual Basic 程序设计程序设计Private Sub Command1_Click() List1.AddItem Text1.Text Label3.Caption = List1.ListCountEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndex Label3.Caption = List1.

52、ListCount Text1.Text = Text1.SetFocusEnd Sub将文本框的内容将文本框的内容添加至列表框中添加至列表框中将列表框指定的将列表框指定的选项进行删除选项进行删除列表数目显列表数目显示在标签上示在标签上42 Visual Basic 程序设计程序设计Private Sub Command3_Click() List1.Clear Label3.Caption = List1.ListCount Text1.Text = Text1.SetFocusEnd SubPrivate Sub Command4_Click() Unload MeEnd Sub全部清除全

53、部清除43 Visual Basic 程序设计程序设计5、组合框（组合框（ComboBox）功功能能： 将将文文本本框框和和列列表表框框结结合合在在一一起起，在在列列表表框框中中所所选选项项目目的文本会自动填入文本框。的文本会自动填入文本框。属性属性：l Style：外外观观属属性性。组组合合框框的的类类型型和和功功能能由由本本属属性性设设定定值值决决定定，各各设设置置值的功能为值的功能为( (见下一页见下一页) )：l Text：文文本本属属性性。其其取取值值就就是是用用户户从从列列表表框框中中选选定定的的文文本本内内容容或或直直接接输入文本框中的内容。输入文本框中的内容。注意：组合框并不会

54、自动地把用户在文本框中输入地内容作为一注意：组合框并不会自动地把用户在文本框中输入地内容作为一个新列表项添加到列表框中个新列表项添加到列表框中，须使用如下语句：，须使用如下语句： ComoBoxname.AddItemComoBoxname.AddItem ComoBoxname.TextComoBoxname.Text 方法方法 ：同列表框。：同列表框。 事件事件 ：0 0和和2 2风格的组合框可响应风格的组合框可响应ClickClick（单击）事件；风格单击）事件；风格1 1的的组合框可响应组合框可响应DblClickDblClick（双击）事件；带有文本框的双击）事件；带有文本框的0 0

55、和和1 1风格的风格的组合框在编辑文本时可引发组合框在编辑文本时可引发ChangeChange事件。事件。44 Visual Basic 程序设计程序设计ComboBox组合框组合框StyleStyle属性的三种选择属性的三种选择 常数常数 值值 描述描述vbComboDropDownvbComboDropDown0 0（缺省值）下拉式组合框。包括一个下缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选拉式列表和一个文本框。可以从列表选择或在文本框中输入。择或在文本框中输入。vbComboSimplevbComboSimple 1 1简单组合框。文本框和列表框部分一直显简单组合

56、框。文本框和列表框部分一直显 示在窗体上。可以从列表中选择或直接文示在窗体上。可以从列表中选择或直接文 本框中输入。应根据实际列表项数目，调本框中输入。应根据实际列表项数目，调 整控件大小。整控件大小。vbComboDrop-DownListvbComboDrop-DownList2 2下拉式列表。这种样式下拉式列表。这种样式无文本框无文本框，不允许，不允许 用户直接输入，仅允许从下拉式列表中选择。用户直接输入，仅允许从下拉式列表中选择。45 Visual Basic 程序设计程序设计组合框的外观组合框的外观46 Visual Basic 程序设计程序设计 界面如下，单击列表框中的选项，将之添

57、加到组合框中，界面如下，单击列表框中的选项，将之添加到组合框中，同时在组合框的文本框中输入内容，按回车也能添加至列表中。同时在组合框的文本框中输入内容，按回车也能添加至列表中。组合框组合框列表框列表框举例举例47Private Sub Command1_Click() Combo1.AddItem List1.TextEnd SubPrivate Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text Combo1.Text = End IfEnd Sub将输入的内容将输

58、入的内容添加至组合框添加至组合框将将列表框指定选列表框指定选项移动至组合框项移动至组合框Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Command3_Click() Combo1.ClearEnd SubPrivate Sub Command4_Click() Unload MeEnd Sub48 Visual Basic 程序设计程序设计6 6、图象控件（图象控件（ImageImage）和图片框（和图片框（PictureBoxPictureBox）图像控件（图像控件（Ima

59、geImage） 用途用途 ：显示来自图形文件的图像。：显示来自图形文件的图像。 属性属性 ：StrechStrech缩放属性：为缩放属性：为TrueTrue时，当图像的原始大小与控件大小不同时，会时，当图像的原始大小与控件大小不同时，会缩放图像来填充整个控件；为缩放图像来填充整个控件；为FalseFalse时，自动控件大小来完整显示图片。时，自动控件大小来完整显示图片。BorderStyleBorderStyle边框属性：边框属性：0 0时无边框，时无边框，1 1时有边框。时有边框。 PicturePicture: :图片属性，为要显示的图片图片属性，为要显示的图片的来源的来源。可在设计时通

60、过属性窗。可在设计时通过属性窗口设置，也可在代码中通过口设置，也可在代码中通过VBVB内部函数设置：内部函数设置： imagename.Pictureimagename.Picture=LoadPicture(“c:pict1.bmp”)=LoadPicture(“c:pict1.bmp”) 方法方法 ： MoveMove：移动移动 事件事件 ：Click Click dbclickdbclick49 Visual Basic 程序设计程序设计 用途用途 ：显示图形和文本，还可用于创建动画图形。：显示图形和文本，还可用于创建动画图形。 属性属性 ：BorderStyleBorderStyle：

61、边框属性。边框属性。 Align:Align:对齐属性，指图片框在窗体上的位置。有无、上、下、左对齐属性，指图片框在窗体上的位置。有无、上、下、左和右五种选择。和右五种选择。 PicturePicture: :图片属性。设置同图片属性。设置同IMAGEIMAGE控件控件AutoSizeAutoSize：为：为TrueTrue时，当图片大小与控件大小不同时，会自动改时，当图片大小与控件大小不同时，会自动改变控件大小来与图像一致，为变控件大小来与图像一致，为FalseFalse时，则不会。时，则不会。 方法方法 ： MoveMove：移动；移动； PrintPrint: :打印打印 ClsCls：

62、清空图片框清空图片框 事件事件 ：ClickClick、 dbclickdbclick注意：注意： PictureBoxPictureBox控件可作为控件控件可作为控件容器容器，在其中放置如命令按纽、，在其中放置如命令按纽、文本框等其它控件。文本框等其它控件。举例图片框控件（图片框控件（PictureBoxPictureBox）50 Visual Basic 程序设计程序设计7.7.选项按钮（选项按钮（Option ButtonOption Button）、）、复选框（复选框（CheckBoxCheckBox）与与框架控件（框架控件（FrameFrame）单选按钮（单选按钮（OptionBut

63、tonOptionButton） 用途用途 ：从一组互斥的选项中选择一个。从一组互斥的选项中选择一个。 属性属性 ： Caption:Caption:标题属性。标题属性。 ValueValue: :取值属性。单选按钮选中时，该属性值为取值属性。单选按钮选中时，该属性值为“TrueTrue”，否否则为则为“False”False” 方法方法 ： MoveMove、RefreshRefresh、SetfocusSetfocus等等 事件事件 ： ClickClick注意：注意： 一般情况下，在一组单选按钮中可设置一个按钮为一般情况下，在一组单选按钮中可设置一个按钮为“缺省缺省”按钮，即它的按钮，即

64、它的ValueValue属性初始状态为属性初始状态为“TrueTrue”，根据这个设定设根据这个设定设置整个应用程序的初始状态。置整个应用程序的初始状态。51 Visual Basic 程序设计程序设计复选框（复选框（CheckBoxCheckBox） 用途用途 ：从一组选项中选择一个或多个。从一组选项中选择一个或多个。 属性属性 ： Caption:Caption:标题属性。标题属性。 ValueValue: :取值属性，表示复选框的状态，有三个选择取值属性，表示复选框的状态，有三个选择 （00未选中、未选中、11选中、选中、22当前不能访问），当前不能访问），注意与单选按纽不同注意与单选按

65、纽不同。Alignment:Alignment:对齐属性。对齐属性。 方法方法事件事件 ：同单选按纽。：同单选按纽。52 Visual Basic 程序设计程序设计 在在窗窗体体上上可可以以容容纳纳若若干干个个选选项项组组。可可利利用用框框架架控控件件或或前前已已述述及及的的图图片片框框控控件件，作作为为选选项项组组的的“包包容容器器”，把把各各个个选选项项组组区区分分开开来来 用途用途 ：作为控件：作为控件容器容器，将控件分组。，将控件分组。 属性属性 ： Caption:Caption:标题属性。标题属性。 方法方法 ：Move:Move:移动移动 事件事件 ：ClickClick：单击单

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

67、meFrame）53 Visual Basic 程序设计程序设计 界面如图所示，在窗体上使用框架分别建立一组复界面如图所示，在窗体上使用框架分别建立一组复 选按选按钮和二组单选按钮，用户在进行选择时，文字的字体字号和钮和二组单选按钮，用户在进行选择时，文字的字体字号和风格也能发生相应的变化。风格也能发生相应的变化。例例2-4：54 Visual Basic 程序设计程序设计Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontItalic = TrueElseIf Check1.Value = 0 Then Text1.Fon

68、tItalic = FalseEnd IfEnd Sub斜体斜体粗体粗体Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontBold = TrueElseIf Check2.Value = 0 Then Text1.FontBold = FalseEnd IfEnd Sub55 Visual Basic 程序设计程序设计 程序说明程序说明 ： 因为复选框的因为复选框的单击结果有两种，单击结果有两种，所以在程序中使用所以在程序中使用了判断结构。而单了判断结构。而单选按钮则不存在这选按钮则不存在这种情况，单击就是种情况，单击就是

69、选定。选定。Private Sub Option1_Click() Text1.FontSize = 12End SubPrivate Sub Option2_Click() Text1.FontSize = 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_

70、Click() Text1.FontName = 黑体黑体End Sub56 Visual Basic 程序设计程序设计8 8、滚动条控件滚动条控件（ HScrollBarHScrollBar和和VScrollBar VScrollBar ）用用途途： 滚滚动动条条主主要要用用于于列列有有较较长长项项目目或或者者大大量量信信息息的的地地方方。使使用用户户在在较较小小的的区区域域中中浏浏览览较较长长的的项项目目和和信信息息。(用用于于需需要要浏浏览览信息，但又不支持滚动功能的控件。）信息，但又不支持滚动功能的控件。）(1) 属性属性2Value:对应于滚动框在滚动条中的相对位置。最小：水平：左；

71、垂直：上对应于滚动框在滚动条中的相对位置。最小：水平：左；垂直：上2Max和和Min：设定滚动条设定滚动条Value Value 属性的取值范围；（缺省：属性的取值范围；（缺省：032767032767）2LargeChange: :在滚动条的空白区域单击鼠标，在滚动条的空白区域单击鼠标，ValueValue的变化量的变化量2SmallChange:鼠标单击滚动条两端箭头时，鼠标单击滚动条两端箭头时， ValueValue的变化量的变化量2(2) 方法方法 Move(3)事件事件Change：滚动条不支持单击事件，当滚动条不支持单击事件，当ValueValue值发生变化时，触发本事件。值发生变

72、化时，触发本事件。举例举例57 Visual Basic 程序设计程序设计例：通过红，绿，蓝三基色合成各种颜色例：通过红，绿，蓝三基色合成各种颜色58 Visual Basic 程序设计程序设计Private Sub changecolor() Text1.BackColor = RGB(HSbred.Value, HSbgreen.Value, HSbblue.Value)End Sub定义通用过程定义通用过程调用过程调用过程ChangecolorChangecolor在标签上显示此时红绿蓝三色的初值在标签上显示此时红绿蓝三色的初值,均为均为0Private Sub Form_Load( )

73、 changecolor Label1.Caption = 红红 & HSbred.Value Label2.Caption = 绿绿 & HSbgreen.Value Label3.Caption = 兰兰 & HSbblue.ValueEnd Sub59 Visual Basic 程序设计程序设计Private Sub HSbblue_Change() Label3.Caption = 兰兰 & HSbblue.Value changecolorEnd Sub改变文本框颜色显示改变文本框颜色显示Private Sub HSbgreen_Change() Label2.Caption = 绿

74、绿 & HSbgreen.Value changecolorEnd SubPrivate Sub HSbred_Change() Label1.Caption = 红红 & HSbred.Value changecolorEnd Sub60 Visual Basic 程序设计程序设计9 9、定时器控件（定时器控件（TimerTimer） 用途用途 ：通过设置时间间隔，当经过设定的时间后，自动触发：通过设置时间间隔，当经过设定的时间后，自动触发该控件的该控件的TimerTimer事件，执行其中的代码程序。事件，执行其中的代码程序。 属性属性 ：IntervalInterval：以毫秒为单位的时间

75、间隔。取值为以毫秒为单位的时间间隔。取值为0-655350-65535。 0 0表示表示不起作用不起作用。EnableEnable：为：为TrueTrue时，打开计时器，开始计时，根据时，打开计时器，开始计时，根据IntervalInterval值，值，触发触发TimerTimer事件；为事件；为FalseFalse时，关闭计时器。时，关闭计时器。 事件事件 ：TimerTimer：计时器唯一支持的事件计时器唯一支持的事件，当设定时间间隔到达后，触发。，当设定时间间隔到达后，触发。注意：注意：窗体上的计时器，在运行时是不可见。窗体上的计时器，在运行时是不可见。 Timer61 Visual B

76、asic 程序设计程序设计例：例： 窗体上有一标签，单击窗体上有一标签，单击“开始开始”按纽后，该标签在窗体上按纽后，该标签在窗体上水平滚动。水平滚动。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()

77、Timer1.Enabled = TrueEnd Sub63 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 程序设计程序设计菜单概述菜单概述 菜单条菜单条/ /菜单栏：位于窗体的标题栏下，包括菜单的标题；菜单栏：位于窗体的标题栏下，包括菜单的标题； 菜单菜单/ /下拉式菜单下拉式菜单：单击菜单标题，出现的命令列表；单击

78、菜单标题，出现的命令列表； 菜单项：菜单命令；菜单项：菜单命令； 子菜单：从一个菜单项分支出来的菜单；子菜单：从一个菜单项分支出来的菜单； 弹出式菜单：右键快捷菜单。弹出式菜单：右键快捷菜单。65 Visual Basic 程序设计程序设计打开菜单编辑器对话框：打开菜单编辑器对话框：“工具工具” “菜单编辑器菜单编辑器”标题标题： 菜单标题，直接显示在菜单中；若为菜单分隔菜单标题，直接显示在菜单中；若为菜单分隔 线，则标题为线，则标题为“- -”，如要设置菜单访问键，在，如要设置菜单访问键，在 菜单标题中加上菜单标题中加上“&”+&”+字母，运行时，显示为字母，运行时，显示为字字母母， 按按A

79、lt+Alt+字母可打开该菜单。字母可打开该菜单。名称名称： 菜单标识，不可省略菜单标识，不可省略快捷键快捷键： 一般为一般为Ctrl+Ctrl+字母，指字母，指直接执行该菜单项的键盘快直接执行该菜单项的键盘快 捷键捷键。复选属性复选属性： 指定可切换的指定可切换的菜单项的开关状态菜单项的开关状态有效属性有效属性： 缺省为缺省为“TrueTrue”，若为若为“FalseFalse”则该菜单项变为则该菜单项变为 灰色，不能响应事件灰色，不能响应事件可见属性可见属性: : 缺省为缺省为“TrueTrue”，若为若为“FalseFalse”则该菜单项包括则该菜单项包括 其其子菜单在菜单栏上均不可见子

80、菜单在菜单栏上均不可见箭头箭头： 菜单项的升降级和次序的调整菜单项的升降级和次序的调整VBVB将菜单也视为控件对象将菜单也视为控件对象，若要单击菜单执行某命令，则须在代，若要单击菜单执行某命令，则须在代码窗口编辑该菜单对象的码窗口编辑该菜单对象的ClickClick事件中的事件中的。菜单编辑器菜单编辑器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 Sub67