第3章常用控件和界面设计PPT讲稿.ppt

第第3 3章常用控件和界面设计章常用控件和界面设计2022/9/20Visual Basic Programming第1页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 2创建窗体创建窗体窗体的属性、方法与事件窗体的属性、方法与事件定制窗体属性定制窗体属性窗体的显示、隐藏、装载和卸载窗体的显示、隐藏、装载和卸载PrintPrint方法方法3.13.1第2页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 3窗体的属性、方法与事件窗体的属性、方法与事件窗体是窗体是VB最重要的对象，它用于创最重要的对象，它用于创建建VB应用程序的用户界面或对话框，应用程序的用户界面或对话框，是包容用户界面或对话框所需的各种控是包容用户界面或对话框所需的各种控件对象的件对象的容器容器。属性属性方法方法事件事件第3页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 4属性属性属性名 分类 描述 缺省值 名称(Name)杂项 窗体对象引用名 Form1 Caption 外观 窗体标题 Form1 BackColor 外观 返回或设置对象中文本和图形的背景色 ForeColor 外观 返回或设置对象中文本和图形的前景色 BorderStyle 外观 返回或设置对象的边框样式 2 Enabled 行为 决定对象是否活动 True Visible 行为 决定对象是否可见 True Font 字体 用于设置文本对象的字体、字型、字号等 Moveable 位置 决定窗体能否被移动 True Left 位置 对象左边界距容器坐标系纵轴的距离 Top 位置 对象上边界距容器坐标系横轴的距离 Width 位置 对象的宽度 Height 位置 对象的高度 Picture 外观 返回或设置对象中的图形 第4页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 5NameName属性的设置属性的设置 窗体及其他控件命名规则：窗体及其他控件命名规则：必须以一个字母开头必须以一个字母开头可包含数字和下划线可包含数字和下划线不能包含空格和标点符号不能包含空格和标点符号长度不得超过长度不得超过127127个字符个字符不得使用不得使用VBVB中的关键字和保留字中的关键字和保留字第5页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 6BorderStyleBorderStyle属性属性设定值常量风格0vbBSNone窗口无外框1vbFixedSingle单线外框，运行时窗口大小不可改变2vbSizable（缺省值）双线外框，运行时窗口大小可改变3vbFixedDialog双线外框，运行时窗口大小不可改变，在Windows任务栏中不显示4vbFixedToolWindow包含一个关闭按钮，标题栏字体缩小，窗口大小不可改变，在Windows任务栏中不显示5vbSizableToolWindow包含一个关闭按钮，标题栏字体缩小，窗口大小可改变，在Windows任务栏中不显示第6页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 7方法方法 窗体可以调用多个方法，常用的有：窗体可以调用多个方法，常用的有：HideHide：隐藏方法：隐藏方法 MoveMove：移动方法：移动方法 PrintPrint：打印方法：打印方法 PrintFormPrintForm：打印窗体方法：打印窗体方法 RefreshRefresh：刷新方法：刷新方法 ShowShow：显示方法：显示方法 ClsCls：清除方法：清除方法第7页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 8事件事件 窗体可以响应的事件也有许多，常用的有：窗体可以响应的事件也有许多，常用的有：ClickClick：单击事件：单击事件 Initialize:Initialize:初始化事件初始化事件 DblClickDblClick：双击事件：双击事件 LoadLoad：装载事件：装载事件 ResizeResize：在窗体被改变大小时，会触发本事件：在窗体被改变大小时，会触发本事件 ActivateActivate：激活事件，当窗体变为当前窗口时，：激活事件，当窗体变为当前窗口时，引发本事件引发本事件 DeactivateDeactivate：失去激活事件，当窗体失去激活：失去激活事件，当窗体失去激活 状态，即另一个窗体成为当前窗状态，即另一个窗体成为当前窗 口时，引发本事件口时，引发本事件 第8页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 9定制窗体属性定制窗体属性有两种定制窗体（或其他对象）的方法。一是在设计态通有两种定制窗体（或其他对象）的方法。一是在设计态通过属性窗口为其设定各种属性值；一是在程序代码中改变过属性窗口为其设定各种属性值；一是在程序代码中改变属性值。属性值。在设计态为窗体（或其他对象）设置属性值的方法在设计态为窗体（或其他对象）设置属性值的方法如如1.41.4节所述。应注意的是：在属性窗口列出的属性节所述。应注意的是：在属性窗口列出的属性中大多可采用系统中大多可采用系统缺省值缺省值。在程序代码中则使用如下格式的代码行来改变属性在程序代码中则使用如下格式的代码行来改变属性值：值：ObjectObject.Property=Expression.Property=Expression其其中中，ObjectObject是是对对象象名名，对对当当前前对对象象的的属属性性赋赋值值时时可可以以缺缺省；省；PropertyProperty是属于该对象的某个属性名；是属于该对象的某个属性名；ExpressionExpression是为该属性赋予的值。是为该属性赋予的值。3.1.13.1.1 ObjectObject.Property=Expression.Property=Expression第9页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 10定制窗体属性定制窗体属性缺省缺省ObjectObject一般情况下指当前窗体一般情况下指当前窗体当前窗体当前窗体的引用：的引用：自己的自己的“名称名称”（Name）Me（系统保留字）（系统保留字）缺省缺省注注意意：对对象象事事件件的的引引用用过过程程中中，只只有有窗窗体体例例外外，写写的的不不是是其其名名称称，而而始始终终是是FormForm（对对于于多多文文档档界界面面MDIMDI窗窗体体而而言言是是MDIFormMDIForm）；引引用用窗窗体体上上其其他他控控件件事事件件，都都必必须使用该控件的名称须使用该控件的名称 ObjectObject.Property=Expression.Property=Expression3.1.13.1.1第10页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 11定制窗体属性定制窗体属性Form1.Caption=Form1.Caption=“运行示例运行示例”Caption=Caption=“运行示例运行示例”Me.Caption=Me.Caption=“运行示例运行示例”Label1.Caption=Label1.Caption=“欢迎学习欢迎学习 VBVB！”对象名对象名.Font.Name=.Font.Name=对象名对象名.Font.Size=.Font.Size=对象名对象名.Font.Italic=True.Font.Italic=True Form1Form1、Label1Label1最后的都是数字最后的都是数字1 1，不是字母，不是字母l l；FontFont属性中字体名用字符串表示，字体大小即是数字属性中字体名用字符串表示，字体大小即是数字3.1.13.1.1第11页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 12窗体的显示、隐藏、装载和卸载窗体的显示、隐藏、装载和卸载窗体的显示与隐藏窗体的显示与隐藏 装载窗体和装载窗体和LoadLoad事件事件 卸载窗体与卸载窗体与UnloadUnload事件事件 End End 语句语句 3.1.23.1.2第12页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 13窗体的显示与隐藏窗体的显示与隐藏使用方法使用方法HideHide和和ShowShow可以隐藏或显示窗体可以隐藏或显示窗体使用方法的格式是：使用方法的格式是：Object.Method Arg1,Arg2,.Object.Method Arg1,Arg2,.如要显示窗体，可在程序中加入以下代码：如要显示窗体，可在程序中加入以下代码：Formname.Show Style Formname.Show Style 如要隐藏窗体，可在程序中加入以下代码：如要隐藏窗体，可在程序中加入以下代码：Formname.HideFormname.HideObject.Method Arg1,Arg2,.Object.Method Arg1,Arg2,.3.1.23.1.2第13页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 14StyleStyle参数参数StyleStyle参数决定窗体是有模式的（参数决定窗体是有模式的（vbModalvbModal或者或者1 1）还是无模式的（）还是无模式的（vbModalessvbModaless或者或者0 0）有模式窗体不允许用户同时与应用程序的有模式窗体不允许用户同时与应用程序的其他窗体交互，比如其他窗体交互，比如Windows程序中的命程序中的命令执行确认窗口就是有模式的令执行确认窗口就是有模式的 无模式窗体则允许用户与一个程序的其他无模式窗体则允许用户与一个程序的其他窗口自由交互，比如窗口自由交互，比如VB环境中的工程、属环境中的工程、属性和代码窗口等，都是无模式窗口。性和代码窗口等，都是无模式窗口。Style参数的缺省值是无模式的。参数的缺省值是无模式的。见例见例3-13.1.23.1.2第14页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 15装载窗体和装载窗体和LoadLoad事件事件使用装载语句可把窗体（或其他对象）载入使用装载语句可把窗体（或其他对象）载入内存，但并不显示它。装载语句的格式是：内存，但并不显示它。装载语句的格式是：Load ObjectObject其中：其中：ObjectObject是对象名是对象名由于由于VBVB程序在执行时，会自动装载窗体，所程序在执行时，会自动装载窗体，所以没有必要对窗体使用以没有必要对窗体使用LoadLoad语句。但系统自语句。但系统自动装载窗体时，将引发窗体的动装载窗体时，将引发窗体的LoadLoad事件；在事件；在使用使用ShowShow方法显示窗体时，也会自动将尚未方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发窗体的载入内存的窗体装入内存，并引发窗体的LoadLoad事件（若窗体已经装载，则不引发）。事件（若窗体已经装载，则不引发）。LoadLoad ObjectObject3.1.23.1.2第15页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 16卸载窗体与卸载窗体与UnloadUnload事件事件使用卸载语句可把窗体（或其他对象）使用卸载语句可把窗体（或其他对象）从内存卸载。卸载语句的格式是：从内存卸载。卸载语句的格式是：Unload ObjectObject其中：其中：ObjectObject是对象名是对象名卸卸载载将将使使该该对对象象的的所所有有属属性性重重新新恢恢复复为为设设计计态态时时设设定定的的初初始始值值；卸卸载载还还将将引引发发对对象象的的UnloadUnload事事件件。如如果果卸卸载载的的对对象象是是程程序序唯唯一一的的窗窗体体（或或最最后后一一个个被被卸卸载载的的窗体），则窗体），则VB将终止程序的运行。将终止程序的运行。Unload Unload ObjectObject3.1.23.1.2第16页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 17End End 语句语句在在WindowsWindows下，用户可通过使用系统菜单下，用户可通过使用系统菜单中的中的“关闭关闭”命令或单击应用程序窗口上命令或单击应用程序窗口上的关闭按钮来关闭窗口，并结束程序的运的关闭按钮来关闭窗口，并结束程序的运行。但当希望由程序来控制其结束时，在行。但当希望由程序来控制其结束时，在程序代码中可使用程序代码中可使用EndEnd语句，形式是：语句，形式是：EndEnd执行该语句将终止应用程序的执行，并从执行该语句将终止应用程序的执行，并从内存内存卸载所有窗体卸载所有窗体。示例示例 EndEnd3.1.23.1.2第17页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 18示例示例设程序窗体设程序窗体Form1Form1上有一个关闭按钮（上有一个关闭按钮（NameName属性为属性为CmdCloseCmdClose），单击该按钮将窗体卸载，此时将引发卸载事），单击该按钮将窗体卸载，此时将引发卸载事件，在响应这个事件的代码段中即可使用件，在响应这个事件的代码段中即可使用EndEnd语句，依语句，依此来控制程序的运行。此来控制程序的运行。Sub CmdClose_Click()Sub CmdClose_Click()Unload Me Me Unload Me Me是系统保留字，代表当前窗体是系统保留字，代表当前窗体End SubEnd SubSub Form_Unload()Sub Form_Unload()程序结束前，需要执行的代码程序结束前，需要执行的代码 End EndEnd Sub End Sub Sub CmdClose_Click()Unload Me Me是系统保留字，代表当前窗体End SubSub Form_Unload()程序结束前，需要执行的代码 EndEnd Sub3.1.23.1.2第18页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 19窗体事件窗体事件窗体除了常用的窗体除了常用的LoadLoad、UnloadUnload、ClickClick事件外，还有事件外，还有InitializeInitialize、ActivateActivate、DeactivateDeactivate、GotFocusGotFocus、LostFocusLostFocus、DblClickDblClick等事件等事件InitializeInitialize（初始化）事件是在窗体被加载之前，窗体被（初始化）事件是在窗体被加载之前，窗体被配置的时候触发配置的时候触发LoadLoad（加载）事件，（加载）事件，VBVB把窗体从磁盘或从磁盘缓冲区把窗体从磁盘或从磁盘缓冲区读入内存时发生读入内存时发生ActivateActivate（激活）事件是在窗体已经被装入内存，变成（激活）事件是在窗体已经被装入内存，变成被激活的窗体时触发被激活的窗体时触发GotFocusGotFocus事件在窗体成为当前焦点时触发事件在窗体成为当前焦点时触发3.1.23.1.2第19页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 20窗体各事件的发生次序窗体各事件的发生次序建立窗体装入内存窗体被激活（Load语句或语句或VB自动自动装载）装载）InitializeLoadActivate所触发的事件（New关关键字或键字或VB自动建立）自动建立）显示窗体（Show）（GotFocus）（SetFocus方方法）法）UnloadDeactivate（LostFocus）打开窗体打开窗体关闭窗体关闭窗体3.1.23.1.2第20页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 21PrintPrint方法方法PrintPrint方法将文本输出到屏幕上或打印机上。缺省对象方法将文本输出到屏幕上或打印机上。缺省对象名时，输出到当前窗体上。名时，输出到当前窗体上。PrintPrint方法的使用形式是：方法的使用形式是：式式中中：p1,p2,.p1,p2,.是是输输出出项项；s s是是输输出出项项之之间间的的分分隔隔符。符。s s可以是逗号或分号。可以是逗号或分号。当当s是逗号时，输出项将按制表列进行输出，每个是逗号时，输出项将按制表列进行输出，每个制表列宽度为制表列宽度为14个西文字符。个西文字符。当当s是分号时，两个输出项将紧接着输出。是分号时，两个输出项将紧接着输出。例：例：Print Print“欢迎学习欢迎学习VBVB！”，“OKOK！”3.1.33.1.3Object.Print p1p2.Object.Print p1p2.第21页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 22例子例子Private Sub Form_LoadPrivate Sub Form_LoadPrint Print“a a”End SubEnd Sub3.1.33.1.3Private Sub Form_Load()Private Sub Form_Load()Command1.SetFocusCommand1.SetFocusEnd SubEnd Sub不显示不显示出错出错解决方法：前面加解决方法：前面加Form1.Show语句语句解决方法：解决方法：Print语句放入语句放入Form_GotFocus事件中事件中第22页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 23Visual BasicVisual Basic的常用控件的常用控件概述概述常用控件常用控件3.23.2第23页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 24概述概述所有的所有的WindowsWindows应用程序窗口或对话框，应用程序窗口或对话框，都是由诸如文本框、列表框、命令按钮、都是由诸如文本框、列表框、命令按钮、滚动条、命令菜单等等组成的。滚动条、命令菜单等等组成的。VBVB通过控通过控件工具箱提供了这些和用户进行交互的可件工具箱提供了这些和用户进行交互的可视化部件，即控件。程序开发人员可以最视化部件，即控件。程序开发人员可以最简便的操作，在窗体上安排所需的控件，简便的操作，在窗体上安排所需的控件，完成应用程序的用户界面设计。完成应用程序的用户界面设计。不同版本的不同版本的VB，控件箱提供的基本控件，控件箱提供的基本控件数量有所不同。数量有所不同。表表3-3 3.2.13.2.1第24页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 25概述概述控件的添加控件的添加鼠标拖放鼠标拖放双击双击控件的选择控件的选择鼠标（选择单个或多个（用鼠标（选择单个或多个（用Ctrl或或Shift或拖放）控件）或拖放）控件）属性窗口（选择单个控件）属性窗口（选择单个控件）控件的删除控件的删除Del3.2.13.2.1第25页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 26常用控件常用控件文本框文本框(TextBox)(TextBox)标签标签(Label)(Label)命令按钮命令按钮(CommandButtom)(CommandButtom)列表框列表框(ListBox)(ListBox)组合框组合框(ComboBox)(ComboBox)图像控件与图片框控件图像控件与图片框控件(Image,Picture)(Image,Picture)选项按钮、复选框与框架控件选项按钮、复选框与框架控件(Option,CheckBox,Frame)(Option,CheckBox,Frame)水平滚动条与垂直滚动条水平滚动条与垂直滚动条(HScrollBar,VScrollBar)(HScrollBar,VScrollBar)计时器控件计时器控件(Timer)(Timer)3.2.23.2.2第26页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 27文本框文本框文本框用于接收用户在框内输入的信息，或显示由程序文本框用于接收用户在框内输入的信息，或显示由程序提供的信息。提供的信息。属性属性NameName（名名称称）：文文本本框框名名称称，遵遵循循命命名名规规则则，所所有有对对象象的的名名称称属属性性都都是是设设计时计时属性属性TextText【默认属性默认属性】：文本属性，可存放内容的多少与系统有关文本属性，可存放内容的多少与系统有关MultiLine=FalseMultiLine=False文本内容不超过文本内容不超过20482048字符字符MultiLine=TrueMultiLine=True文本内容不超过文本内容不超过64KB(Win2K)64KB(Win2K)PasswordCharPasswordChar：口口令令属属性性。缺缺省省值值为为空空字字符符串串，表表示示用用户户可可看看到到输输入入的的字字符符；如如果果该该属属性性值值为为某某个个字字符符，则则表表示示本本文文本本框框用用于于输输入入口口令令，用用户户输输入入的的字字符符显显示示时时将将被被代代换换为为设设定定的的字字符符，但但系系统统仍仍可可正正确确获获取用户实际输入的内容。取用户实际输入的内容。第27页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 28文本框文本框属性属性MaxLengthMaxLength：最最大大长长度度属属性性。缺缺省省值值为为0 0，表表示示文文本本框框可可接接受任意个数的字符。受任意个数的字符。MultiLineMultiLine：多多行行属属性性，只只能能在在设设计计时时改改变变。（TrueTrue：多多行行文本；文本；FalseFalse：单行文本）：单行文本）ScrollBarsScrollBars：滚滚动动条条属属性性。MultiLineMultiLineTrueTrue时时有有效效。设设计计时时属属性性。（0 0：无无滚滚动动条条；1 1：水水平平滚滚动动条条；2 2：垂垂直直滚动条；滚动条；3 3：水平与垂直滚动条）：水平与垂直滚动条）AlignmentAlignment：对齐属性（：对齐属性（0 0左；左；1 1右；右；2 2中）中）第28页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 29文本框文本框方法方法RefreshRefresh：刷新刷新SetFocusSetFocus：设置焦点设置焦点 注意：注意：不是所有对象都有不是所有对象都有SetFocus方法方法焦点只能移到焦点只能移到已显示已显示的窗体或控件上的窗体或控件上不能把焦点移到不能把焦点移到Enabled属性或属性或Visible属性为属性为False的的对象上对象上若窗体上有任何可接收焦点的控件，则设置窗体的若窗体上有任何可接收焦点的控件，则设置窗体的SetFocus方法实际效果是将焦点移到了窗体上第一个方法实际效果是将焦点移到了窗体上第一个获得焦点的控件上，而不是窗体本身。这也是一个窗体获得焦点的控件上，而不是窗体本身。这也是一个窗体在发生在发生Activate事件后，不一定会接着发生该窗体的事件后，不一定会接着发生该窗体的GotFocus事件的原因事件的原因第29页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 30文本框文本框事件事件 ChangeChange：在文本框的：在文本框的Text属性（即文本的内属性（即文本的内容）发生变化时，引发该事件容）发生变化时，引发该事件LostFocusLostFocus：当光标离开文本框时，引发该：当光标离开文本框时，引发该事件事件KeyPressKeyPress：当用户按下或松开键盘上某个：当用户按下或松开键盘上某个按键时，引发该事件按键时，引发该事件第30页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 31标签标签标签主要用于在窗体上增加文字说明。标签主要用于在窗体上增加文字说明。比如用作窗体的状态栏、为文本框、比如用作窗体的状态栏、为文本框、列表框等添加注释文字等。列表框等添加注释文字等。属性属性NameName：标签名称：标签名称CaptionCaption：标题属性：标题属性AlignmentAlignment：对齐属性：对齐属性AutoSizeAutoSize：大小自适应属性：大小自适应属性BackStyleBackStyle：背景风格属性：背景风格属性第31页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 32标签标签方法方法MoveMove：移动：移动RefreshRefresh：刷新：刷新事件事件 提供文字说明的标签可以接受提供文字说明的标签可以接受ClickClick（单击）、（单击）、DblClickDblClick（双击）等事（双击）等事件，但这些事件不经常使用。件，但这些事件不经常使用。第32页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 33命令按钮命令按钮用户用鼠标单击命令按钮，就表示要执行一条命令，但具体用户用鼠标单击命令按钮，就表示要执行一条命令，但具体产生的动作则由相应的事件过程中的程序代码决定。产生的动作则由相应的事件过程中的程序代码决定。属性属性CaptionCaption：标标题题属属性性；命命令令按按钮钮没没有有ForeColorForeColor属属性性，其其CaptionCaption的的内内容容无法用其他颜色显示。无法用其他颜色显示。CancelCancel：取取消消属属性性；设设为为TrueTrue时时，按按【EscEsc】键键等等同同于于单单击击本本按按钮钮（一一般用于般用于“取消取消”按钮）按钮）DefaultDefault：确确定定属属性性；设设为为TrueTrue时时，按按回回车车键键等等同同于于单单击击本本按按钮钮（一一般般用用于于“确确定定”按按钮钮）。但但若若焦焦点点设设置置在在其其他他命命令令按按钮钮上上，则则焦焦点点优优先先，即按回车键相当于单击当前获得焦点的按钮。即按回车键相当于单击当前获得焦点的按钮。一个窗体上只有一个命令按钮的一个窗体上只有一个命令按钮的DefaultDefault属性为属性为TrueTrue；同样，一个窗体上只有一；同样，一个窗体上只有一个命令按钮的个命令按钮的CancelCancel属性为属性为TrueTrue。第33页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 34命令按钮命令按钮属性属性EnabledEnabled：活动属性；：活动属性；StyleStyle与与PicturePicture：风风格格与与图图片片属属性性。0 0（缺缺省省值值）：标标准准格格式式；1 1：图图形形风风格格，按按钮钮上上可可显显示示图图形形，图图形形由由PicturePicture属属性性设设置置。DisabledPictureDisabledPicture与与DownPictureDownPicture属属性性则则分分别别用用于于设设置置按钮无效时与按钮处于按下状态时显示的图形。按钮无效时与按钮处于按下状态时显示的图形。方法方法 SetFocusSetFocus：设置焦点。：设置焦点。事件事件 对于命令按钮来说，最基本、也是最重要的事对于命令按钮来说，最基本、也是最重要的事件就是件就是ClickClick，即鼠标单击。，即鼠标单击。例3-2一个使用命令按钮的程序示例一个使用命令按钮的程序示例 第34页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 35例3-2使用命令按钮的程序示例使用命令按钮的程序示例Private Sub Command1_Click()Private Sub Command1_Click()Label1.Caption=Label1.Caption=报效祖国报效祖国 Command2.Enabled=True Command2.Enabled=True 使按钮使按钮2 2变为活动状态变为活动状态 Command2.SetFocusCommand2.SetFocus 使按钮使按钮2 2成为焦点成为焦点 Command1.Enabled=FalseCommand1.Enabled=False 使按钮使按钮1 1变为不活动状态变为不活动状态End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Label1.Caption=Label1.Caption=努力学习努力学习 Command1.Enabled=True Command1.Enabled=True 使按钮使按钮1 1变为活动状态变为活动状态 Command1.SetFocusCommand1.SetFocus 使按钮使按钮1 1成为焦点成为焦点 Command2.Enabled=False Command2.Enabled=False 使按钮使按钮2 2变为不活动状态变为不活动状态End SubEnd SubPrivate Sub Command3_Click()Private Sub Command3_Click()Unload Me Unload MeEnd Sub End Sub 第35页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 36列表框列表框列表框用于列出可供用户选择的项目表列。列表框用于列出可供用户选择的项目表列。属性属性ListList：表属性，用于保存列表内容：表属性，用于保存列表内容ListCountListCount：列表项数目：列表项数目ListIndexListIndex：列列表表项项索索引引，其其值值为为最最后后选选中中的的列列表表项项序序号号，第第一一个个列列表表项的序号为项的序号为0 0，如果未选任何项目其值为，如果未选任何项目其值为-1-1TextText：列表项正文，其值为最后选中的列表项的文本，与：列表项正文，其值为最后选中的列表项的文本，与List(Object.ListIndex)List(Object.ListIndex)的返回值相同，如的返回值相同，如a=a=List1.List(List1.ListIndex)List1.List(List1.ListIndex)等同于等同于a=List1.Texta=List1.Text，但可以通过，但可以通过语句语句List1.List(List1.ListIndex)=List1.List(List1.ListIndex)=“abcabc”更改用户所选列表项的更改用户所选列表项的内容，而语句内容，而语句List1.Text=List1.Text=“abcabc”是错误语句，因为是错误语句，因为TextText属性只用属性只用于返回值，而不能用于赋值，是运行时属性。于返回值，而不能用于赋值，是运行时属性。对象名对象名.List(.List(列表项序号列表项序号)第36页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 37列表框列表框ColumnsColumns：列表框显示形式：列表框显示形式取值为取值为0 0：逐行显示列表项，可能有垂直滚动条：逐行显示列表项，可能有垂直滚动条取值取值00：列表项可占多行显示：列表项可占多行显示SortedSorted：排序属性（：排序属性（True/FalseTrue/False）。设计时属性。）。设计时属性。StyleStyle：风风格格属属性性。设设计计时时属属性性。取取值值为为0 0为为标标准准格格式式（单选），取值为（单选），取值为1 1为复选格式，每个表项前都有复选框为复选格式，每个表项前都有复选框SelectedSelected：选选择择属属性性。当当某某一一列列表表项项被被选选中中时时，该该列列表项的本属性为表项的本属性为TrueTrue，否则为，否则为FalseFalse。注：。注：运行时运行时属性。属性。对象名对象名.Selected(.Selected(列表项序号列表项序号)第37页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 38列表框列表框方法方法AddItemAddItem：添加列表项：添加列表项 若不指定插入位置，则插入到列表末尾若不指定插入位置，则插入到列表末尾ClearClear：删除表列所有项目：删除表列所有项目RemoveItemRemoveItem：删除列表项：删除列表项事件事件 可响应可响应ClickClick和和DblClickDblClick事件。事件。简单例见书简单例见书P27图图3-9、图、图3-10例3-3统计考试成绩的程序示例统计考试成绩的程序示例 Object.AddItem Object.AddItem,插入位置插入位置序号序号 Object.RemoveItem Object.RemoveItem 删除项删除项序号序号第38页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 39运行程序，在三个文本框中分别输入学生姓名、运行程序，在三个文本框中分别输入学生姓名、理论考试成绩与上机考试成绩后，单击理论考试成绩与上机考试成绩后，单击“统计统计”按钮，程序就会把学生姓名、理论与上机考试成按钮，程序就会把学生姓名、理论与上机考试成绩以及计算得到的总成绩一并作为列表项写入列绩以及计算得到的总成绩一并作为列表项写入列表框；再单击表框；再单击“下一个下一个”按钮，清除文本框输入按钮，清除文本框输入的内容，并把文本框的内容，并把文本框1 1设为焦点，等待新的输入，设为焦点，等待新的输入，单击单击“清除清除”按钮，清除文本框与列表框中所按钮，清除文本框与列表框中所有内容，为新的输入作准备；单击有内容，为新的输入作准备；单击“结束结束”按按钮，程序结束运行。钮，程序结束运行。程序代码程序代码 例3-3统计考试成绩的程序示例统计考试成绩的程序示例第39页，共67页，编辑于2022年，星期一2022/9/20Visual Basic Programming 40组合框组合框组合框将文本框和列表框结合在一起，在列表框中所选项组合框将文本框和列表框结合在一起，在列表框中所选项目的文本会自动填入文本框。目的文本会自动填入文本框。属性属性StyleStyle：外观属性。：外观属性。设计时设计时属性。