(精品)VB教学PPT2.ppt

《(精品)VB教学PPT2.ppt》由会员分享，可在线阅读，更多相关《(精品)VB教学PPT2.ppt（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 固定单边框。可以包含控制菜单框，固定单边框。可以包含控制菜单框，标题栏和关闭按钮，不能改变尺寸。标题栏和关闭按钮，不能改变尺寸。vbSi

5、zablevbSizable 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是窗体的高度和宽度，是窗体的高度和宽度，单位均为特维；单位均为特维；Fon

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

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

9、ExpressionExpression是为该属性赋予的值是为该属性赋予的值,必须和属性类型一致，即必须和属性类型一致，即属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应属性是字符型，表达式也应是字符型；属性是逻辑型，表达式也应是逻辑型。是逻辑型。例：例：Labe11.Caption=欢迎学习欢迎学习VB!“VB!“Form1.Enable =False =False Form1.Caption=Label1.Caption2.1.2 2.1.2 定制窗体属性定制窗体属性8 Visual Basic 程序设计程序设计窗体的常用方法窗体的常用方法A ShowShow：显示方法。显示方法

10、。如：如：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 RefreshRefresh：刷新方法；刷新方法；通常窗体的刷新是自动进行的。通常窗体的刷新是自动进行的。方法可使方法可使对象执行一

11、个动作或任务。对象执行一个动作或任务。使用方法的格式是：使用方法的格式是：对象名对象名.方法方法 或或 对象名对象名.方法方法Arg1,Arg2,.Arg1,Arg2,.后一种方法是带有参数的方法。后一种方法是带有参数的方法。窗体的常用方法窗体的常用方法9 Visual Basic 程序设计程序设计Private Sub Command1_Click()Dim inchw,inchh inchw=Form1.Width inchh=Form1.Height MsgBox“将窗体移动到屏幕的左上角将窗体移动到屏幕的左上角,同时尺寸缩小为原来的一半同时尺寸缩小为原来的一半 Form1.Move 0

12、,0,inchw/2,inchh/2End Sub例例:使用使用MoveMove方法移动一个窗体，重新定位在屏幕左上角，尺方法移动一个窗体，重新定位在屏幕左上角，尺 寸缩小一倍。寸缩小一倍。举例：举例：10 Visual Basic 程序设计程序设计事件：事件：能够被对象所识别的动作能够被对象所识别的动作;当某事件发生了，系统会自动执行其事件过程内的代码当某事件发生了，系统会自动执行其事件过程内的代码事件过程的一般格式：事件过程的一般格式：Private Sub Private Sub 对象名对象名_ _事件名（事件名（参数表参数表）（程序代码）（程序代码）End SubEnd Sub例如：例

13、如：窗体的常用事件窗体的常用事件A ClickClick：单击事件；单击事件；A DblClickDblClick：双击事件；双击事件；A LoadLoad：装载事件；装载事件；A ResizeResize：在窗体被改变大小时，会触发本事件；在窗体被改变大小时，会触发本事件；A ActivateActivate：激活事件，当窗体变为当前窗口时，引发本事件；激活事件，当窗体变为当前窗口时，引发本事件；A DeactivateDeactivate：失去激活事件，当窗体失去激活状态，即另一个失去激活事件，当窗体失去激活状态，即另一个 窗体成为当前窗口时，引发本事件。窗体成为当前窗口时，引发本事件。P

14、rivate Sub Form_Click()vb语句语句 End Sub窗体常用事件窗体常用事件11 Visual Basic 程序设计程序设计2.1.3 窗体的显示、隐藏、装载和卸载窗体的显示、隐藏、装载和卸载 1 1、窗体的显示与隐藏、窗体的显示与隐藏 2 2、装载窗体和、装载窗体和LoadLoad事件事件 3 3、卸载窗体与、卸载窗体与UnloadUnload事件事件 4 4、End End 语语 句句 12 Visual Basic 程序设计程序设计（1）显示窗体显示窗体，可在程序中加入以下代码可在程序中加入以下代码：Formname.Show Style 其中：其中：Formnam

15、eFormname是要显示的窗体名。是要显示的窗体名。ShowShow方法的方法的StyleStyle参数决定窗体是有模式的参数决定窗体是有模式的（vbModelvbModel）还是无模式的（还是无模式的（vbModelessvbModeless）。）。l有模式窗体不允许用户同时与应用程序的其他窗体交互，有模式窗体不允许用户同时与应用程序的其他窗体交互，如如WindowsWindows程序中的命令执行确认窗口程序中的命令执行确认窗口；l无模式窗体则允许用户与一个程序的其他窗口自由交互，无模式窗体则允许用户与一个程序的其他窗口自由交互，如如VBVB环境中的工程、属性和代码窗口等环境中的工程、属性

16、和代码窗口等，缺省值是无模式缺省值是无模式1 1、窗体的显示与隐藏窗体的显示与隐藏（2）隐藏窗体隐藏窗体，可在程序中加入以下代码：可在程序中加入以下代码：Formname.HideFormname.Hide 其中：其中：FormnameFormname是要隐藏的窗体名。是要隐藏的窗体名。13 Visual Basic 程序设计程序设计（1 1）编写事件过程时，建议不要自行输入程序框架，而）编写事件过程时，建议不要自行输入程序框架，而应选定应选定对象和事件过程，对象和事件过程，由系统自动产生框架由系统自动产生框架。（2 2）命令按钮）命令按钮1 1的单击事件名为的单击事件名为Command1_C

17、lickCommand1_Click，命令按钮命令按钮2 2的的单击事件名为单击事件名为Command2_ClickCommand2_Click，但对于一个窗体，单击事件过但对于一个窗体，单击事件过程名程名为为Form_ClickForm_Click，而不是而不是Form1_ClickForm1_Click，即窗体的事件过程即窗体的事件过程中的对象名是中的对象名是FORMFORM，而非具体的而非具体的namename属性值。属性值。例：单击窗体例：单击窗体1 1，显示窗体，显示窗体2 2。Private Sub Form_ClickPrivate Sub Form_Click（）（）Form2

18、.ShowForm2.Show End Sub End Sub注意：注意：14 Visual Basic 程序设计程序设计2 2、装载窗体和装载窗体和LoadLoad事件事件 使用装载语句可把窗体（或其他对象）载入内存，但并使用装载语句可把窗体（或其他对象）载入内存，但并不显示它。不显示它。装载语句装载语句的格式是：的格式是：Load Object 其中：其中：Object是窗体名（对象名）是窗体名（对象名）由于由于VBVB应用程序在执行时，会应用程序在执行时，会自动装载自动装载启动窗体，所以启动窗体，所以没有必要对启动窗体使用没有必要对启动窗体使用LoadLoad语句。语句。当系统装载窗体时

19、，将引发窗体的当系统装载窗体时，将引发窗体的LoadLoad事件事件；在使用在使用ShowShow方法显示窗体时，也会自动将尚未载入内方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发该窗体的存的窗体装入内存，并引发该窗体的LoadLoad事件事件。15 Visual Basic 程序设计程序设计3 3、卸载窗体与卸载窗体与UnloadUnload事件事件 使用卸载语句可把窗体（或其他对象）从内存卸载。使用卸载语句可把窗体（或其他对象）从内存卸载。卸载语句卸载语句的格式是：的格式是：Unload Object 其中：其中：ObjectObject是窗体名（对象名）是窗体名（对象名）卸

20、载将使该对象的所有属性重新恢复为设计态时设定的初始卸载将使该对象的所有属性重新恢复为设计态时设定的初始值；卸载还将引发对象的值；卸载还将引发对象的UnloadUnload事件事件。如果卸载的对象是程序唯一的窗体，则将终止程序的运行。如果卸载的对象是程序唯一的窗体，则将终止程序的运行。一起来看个例子吧！一起来看个例子吧！16 Visual Basic 程序设计程序设计4.End 4.End 语句语句 在程序代码中可使用在程序代码中可使用EndEnd语句结束程序运行，语句结束程序运行，形式是：形式是：End 执行该语句将终止应用程序的执行，并从执行该语句将终止应用程序的执行，并从内存卸载内存卸载所

21、有窗体所有窗体。17 Visual Basic 程序设计程序设计格式：格式：Object.Print Object.Print 功能：将输出项显示在窗体或图片框上。功能：将输出项显示在窗体或图片框上。说明：（说明：（1 1）对象名缺省，则输出到窗体上；）对象名缺省，则输出到窗体上；（2 2）输出项之间用逗号或分号间隔，若用逗号间隔，则）输出项之间用逗号或分号间隔，若用逗号间隔，则为为标准标准输出；若用分号间隔，则为输出；若用分号间隔，则为紧凑紧凑输出。输出。2.1.4 Print2.1.4 Print方法方法 Private Sub command1_Click()Print 1,2,3 Pr

22、int 1;2;3 Print Print ab,cd Print ab;cd;End Sub观察下列观察下列Print语句的执行结果。语句的执行结果。18 Visual Basic 程序设计程序设计多窗体程序设计多窗体程序设计 当应用程序中有多个窗体界面时，设计时，同样先新建一个当应用程序中有多个窗体界面时，设计时，同样先新建一个工程，其中有一个窗体工程，其中有一个窗体form1form1，然后通过下列步骤，设计多窗体：然后通过下列步骤，设计多窗体：1 1、添加并设计窗体、添加并设计窗体 “工程工程”“”“添加窗体添加窗体”，再依次设计每一个窗体的，再依次设计每一个窗体的界面元素以及相应的事

23、件过程；界面元素以及相应的事件过程；2 2、设置启动窗体、设置启动窗体 “工程工程”“”“工程属性工程属性”，在，在“通用通用”选项卡上，设选项卡上，设置置“启动对象启动对象”。注意：（注意：（1 1）在启动窗体中，必须要有对其他窗体的引用接口，）在启动窗体中，必须要有对其他窗体的引用接口，可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。可以是菜单命令或命令按钮的形式，否则其他窗体将无法显示。（2 2）多窗体应用程序保存时，先将每一个窗体以一个独立）多窗体应用程序保存时，先将每一个窗体以一个独立的窗体文件保存，扩展名为的窗体文件保存，扩展名为.frmfrm，再保存工程文件。再保存工程文

24、件。（3 3）多窗体应用程序打开时，直接打开工程文件，将会把）多窗体应用程序打开时，直接打开工程文件，将会把该程序中所有的窗体文件都装载。该程序中所有的窗体文件都装载。19 Visual Basic 程序设计程序设计MDIMDI（多文档界面）窗体多文档界面）窗体 在多窗体应用程序中，一般有一个在多窗体应用程序中，一般有一个MDIMDI窗体（框架，父窗体）窗体（框架，父窗体）构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。构成外部容器窗口，再包括不同的子窗体构成内层窗体界面。创建创建MDIMDI应用程序的步骤：应用程序的步骤：1 1、“工程工程”“”“添加添加MDIMDI窗体窗体”；2 2

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

26、体只能在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 常用控件常用控件21 Visual Basic 程序设计程序设计控件名控件名 功能功能Pointer指针指针 用于改变控件大小和位置等用于改变控件大小和位置等 PictureBox图片框图片框 显示图形或图象显示图形或图象Label标签标签 用于文字说明，显示提示性信息用

27、于文字说明，显示提示性信息TextBox文本框文本框 用于字符输入用于字符输入Frame框架框架 用于组合控件，将控件分组用于组合控件，将控件分组CommandButton命令按钮命令按钮 单击执行命令单击执行命令CheckBox复选框复选框 用于多项选择用于多项选择OptionButton选项按钮选项按钮 用于从多个选项中单选其一用于从多个选项中单选其一ComboBox组合框组合框 列表框与文本框的组合列表框与文本框的组合ListBox列表框列表框 列出多个选项供选择列出多个选项供选择H.ScrollBar水平滚动条水平滚动条 产生水平滚动条产生水平滚动条V.ScrollBar垂直滚动条垂直

28、滚动条 产生垂直滚动条产生垂直滚动条Timer计时器计时器 用于定时用于定时DriveListBox驱动器列表框驱动器列表框 DirListBox文件夹列表框文件夹列表框 FileListBox文件列表框文件列表框 Shape图形图形 Line线条线条 Image图象图象 Data数据控件数据控件 OLE控件控件基基本本控控件件22 Visual Basic 程序设计程序设计 VBVB通通过过控控件件箱箱提提供供了了这这些些和和用用户户进进行行交交互互的的可视化部件，即可视化部件，即 控件控件。1.文本框（文本框（Text Box）2.标签（标签（Label）3.命令按钮（命令按钮（Comma

29、nd Button）4.列表框（列表框（ListBox）5.组合框（组合框（ComboBox）6.图象控件（图象控件（Image）和图片框（和图片框（PictureBox）7.选项按钮（选项按钮（Option Button）、）、复选框复选框8.CheckBox）与框架控件（与框架控件（Frame）9.滚动条控件（滚动条控件（HScrollBar和和VScrollBar）10.定时器控件定时器控件(Timer)常用控件常用控件23 Visual Basic 程序设计程序设计1.1.文本框（文本框（Text BoxText Box）功功能能：用用于于接接收收用用户户在在框框内内输输入入的的字字符

30、符信信息息，或或显显示示由由程程序序代码产生的信息。代码产生的信息。属性属性：lName(名称名称)：文本框的名称，：文本框的名称，lText：文文本本属属性性，该该属属性性值值就就是是用用户户在在文文本本框框输输入入的的内内容容。(注意：注意：TextBoxTextBox无无CaptionCaption属性属性）lPasswordChar：口口令令属属性性。本本属属性性缺缺省省值值为为空空字字符符串串，表表示示用用户户由由键键盘盘输输入入的的字字符符，直直接接在在文文本本框框中中显显示示出出来来；如如果果该该属属性性值值为为某某个个字字符符，则则文文本本框框中中输输入入的的内内容容均均显显示

31、示为为该该字字符符，用用户户看看不不见见实实际际输输入入的的字字符符，一一般般可可用用于于口口令令输输入。（如属性值设为入。（如属性值设为*）24 Visual Basic 程序设计程序设计lMaxLength：最最大大长长度度属属性性。缺缺省省为为0 0，表表示示本本文文本本框框可可以以接接收任意个字符。收任意个字符。lMultiLine：多多行行属属性性。本本属属性性值值若若为为“真真”，则则可可输输入入多多行行文本；否则只能输入一行文本。文本；否则只能输入一行文本。该属性不能在程序中改变该属性不能在程序中改变lScrollbars:Scrollbars:在文本框中添加水平和垂直滚动条。在

32、文本框中添加水平和垂直滚动条。l00无无l11仅水平滚动条仅水平滚动条l22仅垂直滚动条仅垂直滚动条l33均有均有lAlignment:Alignment:对齐属性，有三种选择对齐属性，有三种选择l00（缺省值）文本左对齐。缺省值）文本左对齐。l11文本右对齐文本右对齐l22文本居中文本居中lLeftLeft、toptop、WidthWidth、Height:Height:相对于相对于用户区用户区用户区用户区的左上角位置。的左上角位置。文本框前提是前提是MultiLine为为True属性属性：25 Visual Basic 程序设计程序设计方法方法：lSetFocusSetFocus：设置焦点

33、，通过本方法可使光标指向指定设置焦点，通过本方法可使光标指向指定的文本框。的文本框。事件事件：lChangeChange：在文本框的在文本框的TextText属性属性,即文本的内容发生变即文本的内容发生变化时，就触发本事件；化时，就触发本事件；lLostFocusLostFocus：当光标离开文本框时，引发本事件。当光标离开文本框时，引发本事件。lKeyPressKeyPress:当焦点在文本框，并按下任何标准字符集当焦点在文本框，并按下任何标准字符集的按键时会引发本事件。的按键时会引发本事件。例：文本框例：文本框文本框26例：在窗体例：在窗体1 1中的文本框中输入口令，单击中的文本框中输入口

34、令，单击“判断判断”按纽，如口令按纽，如口令正确，显示窗体正确，显示窗体2 2，否则，弹出提示错误窗口，单击，否则，弹出提示错误窗口，单击“清空清空”按纽，按纽，清除文本框中的口令，并将焦点设置在其中以便下次录入。清除文本框中的口令，并将焦点设置在其中以便下次录入。27 Visual Basic 程序设计程序设计Private Sub Command1_Click()If Text1.Text=cpu Then form2_2.Show Else MsgBox sorry!you cant enter the form2!End IfEnd Sub密码设置密码设置清空文本框，设置焦点清空文本框

35、，设置焦点Private Sub Command2_Click()Text1.Text=Text1.SetFocus End Sub程序代码程序代码28 Visual Basic 程序设计程序设计Private Sub Text1_KeyPress(KeyAscii 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

36、Basic 程序设计程序设计2、标签（标签（Label）功功能能：用用于于在在窗窗体体上上增增加加文文字字说说明明。如如用用作作窗窗体体的的状状态态栏栏，或或为文本框、列表框等添加注释文字说明等。为文本框、列表框等添加注释文字说明等。(1)属性属性 NameName：标签名称；标签名称；CaptionCaption：标题属性。本属性值即为标签所显示的文本内容；标题属性。本属性值即为标签所显示的文本内容；AlignmentAlignment：对对齐齐属属性性。缺缺省省值值为为0 0，将将CaptionCaption文文本本左左对对齐齐；若设为若设为1 1，为右对齐；设为，为右对齐；设为2 2，则

37、为居中；，则为居中；AutoSizeAutoSize:大大小小自自适适应应属属性性，当当取取值值为为“True”True”时时，标标签签大大小小 会会 随随 实实 际际 显显 示示 的的 内内 容容（CaptionCaption）而而 变变 化化，缺缺 省省 为为“False”False”。WordWrapWordWrap:字字折折行行属属性性。取取值值为为“True”True”时时，标标签签大大小小垂垂直直扩扩展展，即即标标题题文文字字换换行行，为为“False”False”时时，则则水水平平拓拓展展，缺缺省省“False”False”，该属性只有在该属性只有在AutoSizeAutoSiz

38、e属性为属性为“TrueTrue”时才有效时才有效。30 Visual Basic 程序设计程序设计(2)方法方法 RefreshRefresh：刷新；刷新；MoveMove：移动。移动。(3)事件事件 Click（单击）、单击）、DblClick（双击）（很少用及）双击）（很少用及）注意：注意：标签得不到焦点，所以无标签得不到焦点，所以无SetFocus方法方法例例 Label31 Visual Basic 程序设计程序设计Private Sub Command1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Si

39、ngle)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设置颜色设置颜色使标签可见使标签可见文本不换行文本不换行例：窗体例：窗体FORM1FORM1上有一个命令按纽上有一个命令按纽“Close”Close”，当鼠标光标移动动到当鼠标光标移动动到该按

40、钮上时，在按纽下方显示由该按钮上时，在按纽下方显示由LABEL1LABEL1提供的提示行：背景色为提供的提示行：背景色为“淡黄色淡黄色”，文字为，文字为“关闭窗体，结束应用程序关闭窗体，结束应用程序”。32 Visual Basic 程序设计程序设计Private Sub Command1_Click()Unload MeEnd Sub除除命令按钮外，鼠标在命令按钮外，鼠标在窗体其他位置移动时，窗体其他位置移动时，并不出现标签提示并不出现标签提示Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y

41、 As Single)Label1.Visible=FalseEnd Sub33 Visual Basic 程序设计程序设计3 3、命令按钮（命令按钮（Command ButtonCommand Button）功功能能：用用户户用用鼠鼠标标单单击击命命令令按按钮钮，就就表表示示要要执执行行一一条条命命令令，命令的具体功能则是由触发的单击事件过程中的程序代码决定。命令的具体功能则是由触发的单击事件过程中的程序代码决定。(1)属性属性lCaption：标题属性。就是显示在按钮上的提示文字标题属性。就是显示在按钮上的提示文字；lDefault：确确定定属属性性。当当该该属属性性为为“True”Tru

42、e”时时，按按“回回车车键键”等等同同于于单单击击此此按按钮钮。在在一一个个窗窗体体中中，也也只只能能有有一一个个命命令令按按钮的该属性值为钮的该属性值为“True”True”.缺省值为缺省值为“False”False”。lCancel：取取消消属属性性。当当本本属属性性值值设设为为“True”True”（真真）时时，按按“Esc”Esc”键键即即等等同同于于单单击击本本按按钮钮；在在一一个个窗窗体体中中，只只能能有有一一 个个 命命 令令 按按 钮钮 的的 该该 属属 性性 设设 置置 为为“TrueTrue”，缺缺 省省 值值 为为“False”False”；lEnable:Enable:

43、有有效效属属性性，当当该该属属性性为为“False”False”时时，命命令令按按钮钮无无效，效，不能响应用户事件，不能响应用户事件，缺省为缺省为“True”True”。34 Visual Basic 程序设计程序设计(2)方法方法lSetFocus：设置焦点。设置焦点。设设置置为为焦焦点点的的按按钮钮，标标题题周周围围将将有有一一个个边边框框，用用户户直直接接按按“回车键回车键”时，将会触发执行该按钮的单击事件时，将会触发执行该按钮的单击事件。(3)事件事件 ClickClick，即鼠标单击。这是即鼠标单击。这是命令按钮最基本、最重要的事件。命令按钮最基本、最重要的事件。书书P23P23 例

44、例 2-235 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.Caption=努力学习努力学习 Command1.Enabled=True Command1.SetFocus C

45、ommand2.Enabled=FalseEnd Sub使使按钮按钮1 1变为非活动状态变为非活动状态使使按钮按钮2 2具有焦点具有焦点37 Visual Basic 程序设计程序设计4、列表框（列表框（ListBox）用途用途：列出可供用户选择的项目列表。：列出可供用户选择的项目列表。属性属性：lListList：表表属属性性。用用于于保保存存列列表表内内容容。程程序序代代码码中中，可可通通过过表表属性以及列表项序号实现对某具体列表项的访问：属性以及列表项序号实现对某具体列表项的访问：对象名对象名.List(.List(列表项序号列表项序号)其其中中的的对对象象名名即即为为列列表表框框的的N

46、ameName属属性性值值；列列表表项项的的序序号号从从0 0开始，由上到下依次为开始，由上到下依次为0 0、1 1、2 2、3.3.列列表表框框中中的的列列表表项项的的添添加加方方法法：一一是是设设计计时时在在属属性性窗窗口口的的LISTLIST属属性性值值中中直直接接添添加加，二二是是在在程程序序运运行行时时，在在代代码码中中通通过过additemadditem方法添加。方法添加。lListCountListCount：列表项数目。列表项数目。38 Visual Basic 程序设计程序设计lListIndexListIndex：列列表表项项索索引引。其其值值为为当当前前选选选选中中中中的

47、的的的列列列列表表表表项项项项的的序序号号，第一个列表项的序号为第一个列表项的序号为0 0，如果未选任何项目，则其值为，如果未选任何项目，则其值为-1-1；lTextText：列列表表项项正正文文。其其值值为为当当前前选选中中的的列列表表项项的的文文本本，它它与与List(ListIndex)相同；相同；即即List1.Text=List1.List(ListIndex)List1.Text=List1.List(ListIndex)lColumnsColumns：列列属属性性。设设置置列列表表框框中中显显示示的的列列表表项项的的列列数数。该该属属性性缺缺省省为为，只只显显示示一一列列文文本本

48、。逐逐行行显显示示列列表表项项，可可能能有有垂垂直直滚动条，取值为大于滚动条，取值为大于0 0的值时，列表项可占多列显示；的值时，列表项可占多列显示；lSortedSorted：排排序序属属性性。取取值值为为“True”True”时时，各各列列表表项项将将按按字字母母表排序，取值为表排序，取值为“False”False”时，将不排序。时，将不排序。属性属性39 Visual Basic 程序设计程序设计方法方法：&AddItemAddItem ：添加列表项。使用下面的格式来添加：添加列表项。使用下面的格式来添加：对象名对象名.AddItem.AddItem,插入位置序号插入位置序号 若不指定插

49、入位置，则插入到列表末尾；若不指定插入位置，则插入到列表末尾；&ClearClear ：删除列表中所有列表项。删除列表中所有列表项。&RemoveItemRemoveItem ：删除指定列表项。用法如下：删除指定列表项。用法如下：对象名对象名.RemoveItem .RemoveItem 删除项序号删除项序号事件事件：虽然列表框可以响应单击虽然列表框可以响应单击ClickClick和双击和双击DblClickDblClick事件。事件。但很少使用。但很少使用。例：列表框例：列表框40 Visual Basic 程序设计程序设计 界面如图所示，在文本框中输入内容，再单击界面如图所示，在文本框中输

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