VisualBasic程序的界面设计

第3章VisualBasic程序的

界面设计本章的学习重点和难点对象的功能和使用场合对象的主要属性、方法和事件

合理选用对象和窗体布局

常用控件PictureBox图片框TextBox文本框CommandButton命令按钮OptionButton选项按钮ListBox列表框Vscroll垂直滚动条Label标签Frame框架CheckBox复选框ComboBox组合框Hscroll水平滚动条Timer计时器Shape形状Line线条Image图像框3.1公共属性定制窗体(或其他对象)属性的方法

在设计态通过属性窗口为其设定各种属性值必须先选中对象，后设置属性；在属性窗口列出的属性中大多可采用系统缺省值

在程序代码中改变属性值[对象名.]属性名=属性值 当程序运行，执行完以上代码行时，会将等号左边对象的相应属性值设置或更改为等号右边的属性值3.1公共属性Name名称属性标识引用对象的作用(所有对象都具有的属性)每个对象在创建时，VB就自动为它创建一个默认名称(对象类名后跟编号，编号从1开始，依次顺延)

；自行命名对象的命名规则：必须以一个字母或汉字开头，可包含字母、数字、汉字和下划线，但不能包含空格和西文标点符号，长度不得超过40个字符在同一窗体中，控件对象的名称属性值是唯一的、不能同名，在同一工程中，窗体对象也不能同名设计态时，通过属性窗口设置Name属性；在程序运行时，它是只读的，不能改变3.1公共属性Caption标题属性该属性是对象上或标题栏上显示的内容，往往在外观上起到提示和标志的作用在设计态和程序运行时，均可修改该属性值注意它与Name属性的区别NameCaption3.1公共属性Enabled活动属性

决定对象是否响应用户或系统事件缺省值为“True”，表示可以响应用户或系统的事件；当设置为“False”，表示禁止该对象响应事件，往往在程序运行时控件对象呈暗淡色除了几何图形、直线控件外，所有对象均有Enabled属性Enabled属性为True

Enabled属性为False3.1公共属性Height、Width、Top和Left大小、位置属性

Height、Width属性分别决定对象大小的高度和宽度Top表示对象到直接容器上边框的距离，Left表示对象到直接容器左边框的距离单位特维：1twip=1/20点=1/1440英寸=1/567厘米在默认坐标系统，把该对象所在的直接容器的左上角顶点作为坐标原点，该对象的Left和Top属性值则是该对象左上角顶点相对于坐标原点的X、Y坐标示意图

TopHeightLeftWidth对象大小、位置属性示意图(0,0)3.1公共属性Visible可视属性决定对象在程序运行时是否可见缺省值为“True”表示可见，“False”表示对象存在，但对象隐藏、不可见Font系列字体属性FontName字体类型FontSize字体大小FontBold粗体FontItalic斜体FontStrikethru加删除线FontUnderLine加下划线[例题3-1]例题3-1在窗体上建立一个标签，名称为Label1，运行时单击窗体界面如图所示

PrivateSubForm_Click()Label1.Caption="欢迎您使用VB!"Label1.FontName="隶书"Label1.FontSize=24Label1.FontBold=TrueLabel1.FontItalic=TrueLabel1.FontStrikethru=TrueLabel1.FontUnderline=TrueEndSub实例演示3.1公共属性Font系列字体属性对于不同的对象可以分别设置不同Font属性，若要为窗体中所有控件对象设置相同Font属性，可以先对窗体设置Font属性，而后再创建的控件对象在缺省情况下都自动采用窗体的Font属性值，除非用户再自行设置3.1公共属性ForeColor、BackColor、BackStyle属性设置对象上显示文本或图形的前景颜色和背景颜色ForeColor前景颜色；BackColor背景颜色；其值是一个16进制的常数；通常在编写代码时，常用Qbcolor或RGB函数为其设置颜色BackStyle属性用于设置背景风格。属性值为0时，表示该对象透明显示，即对象的背景颜色BackColor不起作用；属性值为1时，表示对象不透明显示，即此时为对象设置背景色才有效3.1公共属性BorderStyle属性设置对象的边框风格属性值为0时，表示对象周围无边框；为1时，表示对象有单线边框该属性对于某些不同对象而言，还有其他不同的取值和意义3.1公共属性MousePointer、MouseIcon属性MousePointer设置在运行时鼠标移动到对象上时显示的鼠标指针类型MousePointer取值在0~15之间，仅当取值为99时表示用户自定义图标MouseIcon属性起作用，即可用MouseIcon设置自定义的鼠标图标，类型为.ico或.cur常用的图片在Graphics目录下3.1公共属性ToolTipText提示属性设置在运行时鼠标暂停在控件上时显示的文本信息，往往起到提示作用Alignment对齐属性设置选项按钮、复选框或控件文本的对齐方式缺省值为0，表示左对齐；若为1，表示右对齐；若为2，表示居中对齐[例题3-2]例题3-2在例题3-1的基础上，再添加一个标签，通过属性设置，产生如下文字叠影效果，当鼠标移动到标签位置处，鼠标指针形状从默认的箭头变成手形，当鼠标暂停在标签位置处，会出现如图所示的文字提示信息实例演示3.1公共属性AutoSize、WordWrap属性AutoSize属性决定控件是否能够自动调整大小以显示控件上的整个内容WordWrap属性值为True，表示控件能按照文本和字体大小在垂直方向上改变显示区域的大小，在水平方向上不发生变化；值为False，表示控件能在水平方向上按正文的长度放大或缩小，在垂直方向上以字体大小来放大或缩小显示区域仅当AutoSize属性为True时，WordWrap属性才有效实例演示3.1公共属性TabIndex、TabStop属性TabIndex属性决定了按Tab键时，对象在其父窗体中得到焦点的顺序“焦点”代表接收用户鼠标或键盘输入的能力。获得焦点称为聚焦，当对象获得焦点时，才可接收用户的输入。在Windows界面下，任何时刻可运行多个应用程序，但只有一个包含“聚焦”窗口的应用程序才是当前活动程序；同样在一个有多个文本框所构成的窗口中，只有具有焦点的那个文本框才能接收用户的输入若要改变Tab顺序，即对象在其父窗体中得到焦点的顺序，可以直接修改对象的TabIndex属性的值3.1公共属性TabIndex、TabStop属性系统会根据控件创建的次序为大部分控件(除Menu、Timer、Data、Image、Line和Shape等)分配一个Tab顺序，并将此次序号保存在TabIndex属性中。在缺省情况下，第一个创建的控件TabIndex属性值为0，第二个为1，依次类推。在程序运行时，按Tab键就按照TabIndex属性值中的递增次序在各个控件上循环移动焦点运行时，对于不可见或被禁用的控件以及某些不能接收焦点的控件(如Frame和Label等控件)仍保持在Tab键次序中，但利用Tab键切换时会自动跳过这些控件。而对于那些原本可以接收焦点的对象，则可以通过设置TabStop属性值为False，达到此效果小结不同类的对象可以有一些相同的属性，但是有些属性并非所有对象都有，可能是该对象特有的属性的设置可以在设计时通过属性窗口设置，也可通过代码窗口在编程时设置属性窗口并未列出该对象的所有属性，只列出设计态属性，而有一些是只能在程序代码中使用的运行态属性，当然也有一部分属性在运行时是只读的

3.2窗体窗体是VB最重要的对象，它用于创建VB应用程序的用户界面或对话框，是包容用户界面或对话框所需的各种控件对象的容器在创建新工程时，VB会在窗体设计器中自动新建一个空白的窗体，要求以它为起点创建程序一个应用程序通常包含多个窗体，其中应有一个窗体作为程序的启动窗体，也就是运行程序时首先出现的窗体。系统默认第一个窗体，即属性Name为Form1的窗体为启动（起始）窗体。用户也可使用工程菜单→工程属性，自定义设置起始窗体3.2窗体3.2.1窗体的主要属性Name：窗体名称系统为应用程序的第一个窗体缺省命名为Form1，在程序代码中通过引用窗体名称以识别和访问不同的对象Caption：窗体标题窗体标题是出现在窗体标题栏的文本内容。缺省使用窗体名的缺省值Picture：用于设置窗体中显示的图片Form1.Picture=

LoadPicture("D:\Graphics\BEANY.bmp")Form2.Picture=Form1.Picture3.2窗体3.2.1窗体的主要属性ControlBox和IconControlBox属性值取True或False，表示窗体左上角是否有控制菜单框仅当ControlBox属性值取True，Icon属性设置才有效，可为窗体最小化自定义一个显示图标当ControlBox属性值取False，则无控制菜单框，这时，系统将MaxButton和MinButton属性自动设置为FalseBorderStyle：窗体边框风格该属性对于窗体对象在运行是只读。当BorderStyle设置为除2以外的值时，系统将MaxButton和MinButton属性设置为False。常常利用对该属性的设置，来设计不同的窗体形式

3.2窗体BorderStyle设定值常量风格0VbBSNone窗口无外框，无法移动及改变大小1VbFixedSingle单线外框，运行时可移动、但大小不可改变2VbSizable(缺省值)双线外框，运行时可移动并可改变大小3VbFixedDouble双线外框，运行时窗口为固定对话框、大小不可改变4VbFixedToolWindow包含一个关闭按钮，标题栏字体缩小，窗口大小不可改变，在Windows95任务栏中不会显示，外观与工具条相似5VbSizableToolWindow包含一个关闭按钮，标题栏字体缩小，窗口大小能改变，在Windows95任务栏中不会显示，外观与工具条相似3.2窗体3.2.1窗体的主要属性WindowsState：设置窗体执行时的显示状态WindowsState属性取值为0表示有窗口边界的正常窗口状态，1表示以图标方式显示的最小化状态，2表示无边框充满整个屏幕的最大化状态

3.2窗体3.2.2窗体的主要方法Print：打印方法（用于将文本输出到对象上）调用格式：[对象名.]Print[输出项列表][{;|,}]对象除了可以是窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行Form1.Print1,2,3

Print1,2,3

Picture1.Print1,2,3Form1.Print

Print

Picture1.Print3.2.2窗体的主要方法Print：打印方法[例题3-3]调用格式：[对象名.]Print[输出项列表][{;|,}];(分号)和,(逗号)分隔符：用于分隔前后两个输出项，并指定分隔符后的下一个输出项的输出位置分号(;)表示下一个输出项将以紧凑格式，紧跟着上一个输出项输出，中间没有空格逗号(,)表示采用标准格式，下一个输出项将在下一个打印区(每隔14列开始一个打印区，每列的宽度是所有字符的平均宽度)的起始位置输出Print1,2,3

Print“We”；“study”；“VB”3.2窗体

标准格式

紧缩格式Print1,2,3

Print"We","study","VB5.0"运行结果

1 -2 3

We study VB标准格式Print各数据分别存储在各自的标准输出区内，数据之间留有一定的空格字符，数据划分非常明显（读取数据容易）对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符Print1；2；3

Print"We"；"study"；"VB5.0"运行结果

1-23

WestudyVB紧缩格式Print各数据紧凑地显示，节省空间对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符对于字符串数据，输出的各字符串数据间没有空格而连成一片，造成读取数据的困难例题3-3用Print方法的标准和紧凑格式输出数据，请写出程序运行结果PrivateSubForm_Click()Print"标准格式"Print"数值",123,Print"字符","VB"PrintPrint"紧缩格式"Print"数值";123;Print"字符";"VB"PrintPrint"标准和紧缩格式混合使用"Print"数值";123,"字符";"VB"EndSub3.2.2窗体的主要方法Print：打印方法[例题3-4]调用格式：[对象名.]Print[输出项列表][{;|,}]调用Print方法打印输出的位置是由对象的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)定位输出函数：Spc(n)：可选的。在显示或打印列表中的下一个输出项前插入n个空格，从而实现对输出进行定位Tab(n)：可选的。用来将输出定位在绝对n列号上，使用无参数的Tab()表示将输出定位在下一个打印区的起始位置3.2窗体例题3-4用Print方法和定位函数输出数据Spc(n)：下一个输出项前插入n个空格Tab(n)：输出定位在绝对n列号上PrivateSubForm_Click()PrintTab(8);"A"PrintTab(6);"B";Spc(2);"B"PrintSpc(3);"C";Spc(2);"C";Spc(2);"C"PrintTab(2);"D";Spc(2);"D";Spc(2);"D";Spc(2);"D"EndSub3.2窗体3.2.2窗体的主要方法Cls：清屏方法调用格式：[对象名.]Cls清除运行时在对象中用Print和图形方法创建的文本和图形，同时将绘图坐标CurrentX和CurrentY属性恢复到原点(0,0)对象可以是窗体或图片框，对象名缺省时，表示清除当前窗体Form1.Cls

Cls

Picture1.Cls3.2窗体3.2.2窗体的主要方法Show和Hide：分别用于显示和隐藏窗体

调用格式：[窗体名.]Show[Style]

[窗体名.]Hide

窗体名缺省，表示显示或隐藏当前窗体Show方法的Style参数决定窗体是有模式的（vbModel）还是无模式的（vbModeless）。有模式的窗体不允许用户同时与应用程序的其他窗体交互，无模式窗体则允许，Style缺省值是无模式的

Form1.ShowForm1.Hide

ShowHide3.2窗体3.2.2窗体的主要方法SetFocus：设置焦点Move：移动方法（除时钟和菜单外）[对象名.]Move左边距离[,上边距离[,宽度[,高度]]]如果对象是窗体，则“左边距离”和“上边距离”以屏幕左边界和上边界为准，否则以窗体的左边界和上边界为准，给出宽度和高度表示可以改变大小PrintForm：打印窗体方法Refresh：刷新方法

3.2窗体3.2.2窗体的主要事件

Click(单击)事件：当用户单击窗体时触发本事件DblClick(双击)事件：当用户双击窗体时触发本事件。“双击”实际上触发两个事件，第一次按鼠标按钮时产生Click单击事件，第二次按鼠标按钮时产生DblClick事件Initialize(初始化)事件：在窗体被加载(Load)之前，窗体被配置的时候触发Load(装载)事件：VB把窗体从磁盘或从磁盘缓冲区读入内存时触发本事件。Load事件往往用于在启动程序时对属性和变量进行初始化Resize事件：在窗体被改变大小时，会触发本事件3.2窗体3.2.2窗体的主要事件Paint(绘画)事件：当窗体被移动或放大时，或者窗体移动时覆盖了一个窗体时，触发本事件Activate(激活)事件：当窗体变为激活的当前窗口时，引发本事件Deactivate(失去激活)事件：当窗体失去激活状态，即另一个窗体成为当前窗口时，引发本事件GotFocus事件：在窗体成为当前焦点时触发本事件LostFocus事件：在窗体失去当前焦点时触发本事件QueryUnload、Unload(卸载)事件：当关闭窗体时，依次触发卸载事件，将窗体从内存中卸载。当窗体被卸载后又重新装入，则窗体中所有控件都将重新初始化3.2窗体3.2.2窗体的主要事件

学习对象的事件，主要是了解事件什么时机被触发，从而有助于选择在哪一个事件过程中编写代码了解和掌握窗体的事件触发时机和次序[例题3-5]例题3-5实例演示在运行一个VB应用程序时，先发生启动窗体的Initialize事件，紧跟着是Load事件，将窗体装入内存之后，窗体被激活时，Activate事件发生。这三个事件是在一瞬间就完成的对于窗体的Initialize和Load事件都是发生在窗体被显示之前，所以经常在事件过程中放置一些命令语句来初始化应用程序，但所用命令语句是有限的，例如：“对象名.SetFocus”一类的语句就不能使用，而Print语句仅当Form的AutoReDraw属性值为真时，在Load事件中才有效

例题3-5对于GotFocus事件，分两种不同情况：如果窗体上没有能聚焦的控件，那么该窗体在Activate事件发生之后立即触发GotFocus事件如果窗体上有能聚焦的控件，那么该控件的GotFocus事件发生，而不是窗体有时应用程序有多个窗体构成时，当Form1由当前窗体变成非当前窗体时，若窗体是焦点，会先引发LostFocus事件，后引发Deactivate事件。当该窗体再次成为当前窗体时，只要该窗体加载完毕后，没有被卸载，就不会触发Load事件，但会触发Activate事件例题3-5VB程序在执行时会自动装载启动窗体，在使用Show方法显示窗体时，也会自动将尚未载入内存的窗体装入内存，并引发窗体的Load事件。若想将窗体(或其他对象)载入内存，但并不显示它，则可以使用装载语句装载语句的格式：Load对象名VB程序在调用Hide方法，仅仅是将窗体暂时隐藏，这不同于卸载。卸载将使该对象的所有属性重新恢复为设计态时设定的初始值；卸载还将引发对象的卸载事件。如果卸载的对象是程序唯一的窗体，则将终止程序的运行。可以使用卸载语句把窗体(或其他对象)从内存卸载卸载语句的格式：Unload对象名对象名可以是Me，表示当前窗体例题3-5在Windows下，用户可通过使用菜单中的“关闭”命令或单击应用程序窗口上的“关闭”按钮来关闭窗口，并结束程序的运行。由程序来控制其结束，而不是由用户的操作来控制时，在程序代码中可使用End语句End执行该语句将终止应用程序的执行，并从内存卸载所有窗体3.3文本控件文本控件主要用于显示文本信息标准控件标签文本框3.3文本控件3.3.1标签(Label)主要用于在窗体上增加文字说明标签控件在程序运行时不具有交互性，即标签内容只能通过Caption属性来设置或修改，不能由用户在程序运行时直接编辑主要属性Name(名称)、Caption(标题属性即为标签所显示的文本内容)、Alignment(对齐属性)、AutoSize(大小自适应属性)、BackStyle(背景风格属性)等方法：Refresh(刷新)、Move(移动)事件：Click(单击)、DblClick(双击)等3.3文本控件3.3.2文本框(TextBox)主要用于接收用户在框内输入以及编辑、修改的信息，或显示由程序提供的信息在程序运行中，具有良好的交互性

主要属性主要方法主要事件3.3.2文本框(TextBox)主要属性Name(名称)：文本框名称Text(文本)：文本框不具有Caption属性，用户从文本框输入和编辑、修改的文本内容就保存在Text属性中，常常通过获取该属性值来获取用户输入或编辑的数据。Text属性的文本内容最多为2048个字符，除非MultiLine属性True，则可输入多达32KB的文本。Locked：决定文本框是否可以被编辑修改，若取值为True，表示此时文本框中的内容是只读的、不具有交互性，类似于标签，经常用于创建只读文本框3.3.2文本框(TextBox)主要属性MaxLength(最大长度)：缺省值是0，表示文本框可接受任意个数的字符，否则，文本框只接受MaxLength属性设定的字数。在VB中字符的长度以字为单位，即一个西文字符与一个汉字都是一个字，长度为1PasswordChar(口令)：缺省值为空，表示正常显示输入的字符；如该属性的值为某个字符(*)，则表示本文本框用于输入口令，用户输入的内容仍保存在Text属性中，但输入的每个字符将被代换为PasswordChar属性设定的字符显示在文本框中。PasswordChar和MaxLength属性配合，常用于创建口令(密码)文本框

3.3.2文本框(TextBox)主要属性MultiLine(多行)：属性值为“True”(真)，则可输入和显示多行文本；若为“False”(假)，则只能输入一行文本。该属性不能在程序中改变，当本属性为“True”时，PasswordChar属性设置则无效ScrollBars(滚动条)：缺省值为“0”(无滚动条)；若该属性设置为“1”，表示有水平滚动条；若为“2”，表示有垂直滚动条；若为“3”，表示水平与垂直滚动条两者都有。本属性只有在MultiLine属性为“True”时才有效3.3.2文本框(TextBox)主要属性SelStart、SelLength和SelText属性：在程序运行中，用于控制文本框中的插入点和文本选定操作SelStart属性决定选定文本的开始位置，第一个字符位置是0SelLength属性决定选定文本的长度SelText属性设定或存放由前两个属性选定的文本内容Text1.SelStart=1

Text1.SelLength=3

Text2.Text=Text1.SelText3.3.2文本框(TextBox)主要方法SetFocus：设置焦点，本方法可使指定的文本框(或其他有聚焦能力的对象)成为焦点，也就是当前文本框，成为焦点的文本框中具有闪动的光标Refresh：刷新3.3.2文本框(TextBox)主要事件KeyPress：当用户按下或松开键盘上某个按键时，发生本事件Change：当文本框的Text属性，即文本的内容发生变化时，就引发本事件LostFocus：当文本框失去焦点时，引发本事件一般经常用以上三个事件过程中设置代码，来实现对输入文本框中的内容进行检查、验证和确认GotFocus：当文本框得到焦点时，引发本事件[例题3-6][例题3-7]例题3-6程序运行时，通过用户输入，同步设置窗体的标题，即用户输入什么，窗体标题就同步显示什么分析：接收用户输入——文本框用户输入的内容保存在文本框的Text属性中窗体的标题与文本框内容一致——赋值将文本框内容Text赋予窗体的标题属性Caption同步显示——文本框Change事件实例演示PrivateSubText1_Change()Form1.Caption=Text1.TextEndSub例题3-7一个简单的登陆窗口，要求输入学号(必须由6位数字字符构成)、口令(studyvb6)，按回车键结束输入，若学号、口令输入正确，显示正确登陆信息，并清空文本框，等待下一次登陆，否则，显示不正确信息，并自动选定文本，等待用户重新输入分析：接收用户输入——文本框用户输入的内容保存在文本框的Text属性中验证输入文本框中的内容是否正确——文本框KeyPress、LostFocus事件清空文本框——Text属性设置为""自动选定文本——SelStart、SelLength和SelText属性实例演示3.4命令按钮(CommandButton)命令按钮在VB应用程序中是使用最多的控件对象之一，用户用鼠标单击命令按钮，用来启动、中断或结束某个任务，它是用户和程序交互最简单的方法。但具体产生的动作则由相应的单击事件过程中的程序代码决定主要属性主要方法SetFocus：设置焦点。设置为焦点的按钮在其表面有一个虚边框

主要事件3.4命令按钮(CommandButton)主要属性Caption(标题)：属性值是显示在按钮上的文字"关闭"创建命令按钮的访问键快捷方式：&访问键

运行时，同时按下Alt+访问键，即可触发命令按钮的单击事件"&Close"若不创建访问键，但需要在标题中包含“&”连字符，则应设置连续的两个连字符"Add&&Minus"3.4命令按钮(CommandButton)主要属性Default(确定)：每个窗体可选择一个命令按钮作为默认的确认按钮，即不管窗体上目前哪个控件对象具有焦点，只要用户按“Enter”回车键，就等同于单击该命令按钮；指定该默认的确认按钮，只需将其Default属性值设为“True”(真)Cancel(取消)：每个窗体可选择一个命令按钮作为默认的取消按钮，只需将这个命令按钮的Cancel属性设为“True”，则不管目前窗体的哪个控件对象具有焦点，按“Esc”键即等同于单击本按钮Enabled(活动)：决定按钮是否响应用户或系统事件实例演示3.4命令按钮(CommandButton)主要属性Style(风格)：缺省值为“0”，表明按钮的风格为标准格式，即按钮表面显示Caption属性设置的文本；若设为“1”，则为图形风格，按钮上显示图形Picture(图片)：设置按钮上显示的图形(.bmp或.ico)复选框和选项按钮控件也具有这两个属性DisabledPicture与DownPicture：分别用于设置按钮无效时与按钮处于按下状态时显示的图形Value：在运行态，若将命令按钮的Value属性值由默认的False设置为True，则会触发命令按钮的单击事件3.4命令按钮(CommandButton)主要事件：最基本最重要的鼠标单击事件Click在实际编程时，常常利用命令按钮的单击事件，编写一些代码完成所需的具体操作，例如：计算、清除、关闭等在程序运行时触发命令按钮单击事件的情况用鼠标单击按钮按Tab键或调用SetFocus方法，将焦点转移到按钮上，然后按空格键或Enter回车键使用按钮的访问键(Alt+访问键)命令按钮的Default属性为True的情况下按Enter回车键；命令按钮的Cancel属性为True的情况下按Esc键用代码设置命令按钮的Value属性为True例题3-8建立一个允许输入、剪切、复制和粘贴的文本编辑程序分析：选中文本内容(SelText<>"")，才能进行剪切和复制——Enabled剪贴板中的内容可以被反复粘贴图片按钮——Style、Picture按钮的Click事件过程的编写实例演示3.5选择控件能直接提供输入选项，方便用户选择录入标准控件选项按钮、复选框列表框、组合框3.5选择控件3.5.1选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame)选项按钮和复选框——显示选项，供用户从中选择选项按钮通常成组出现，供用户从中必须选择其中之一且最多只能选取一项，即当用户选中其中一个选项时，同组其他选项会自动失效，就象单选题复选框可以单个或多个成组出现，用户可以选定任意数目的选项，也可以什么都不选，选项间无任何关联，就象不定向选择题框架经常用于将其他控件对象按功能组织成一个可标识的组，同时让窗体界面更加整齐有序实例演示3.5选择控件3.5.1选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame)主要属性Caption：设置选项按钮和复选框的文本注释内容；决定框架的标题名称，若为空，则形成封闭框架框Value：决定选项按钮和复选框的选项按钮的Value的取值为True和False，分别表示选中和未选中复选框的Value的取值有三种：0表示未选中，1表示选中，2变灰表示暂时不能访问经常利用该属性值的判断和设置选中状态实例演示3.5选择控件3.5.1选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame)主要事件选项按钮、复选框和框架都能接收Click事件单击选项按钮或复选框时，会自动改变其选中状态选项按钮或复选框的GotFocus事件[例题3-9]利用框架将控件分组时，应首先创建Frame控件，然后必须在Frame控件内部创建分组控件，否则无法真正实现功能分组在Frame控件内部创建的控件和框架是一个整体，将随框架容器一起移动、显示、消失和屏蔽

例题3-9编写一个简单的字体格式设置程序分析：需要哪些控件对象：选项按钮、复选框、框架、标签用户的选择改变标签字体的变化——选项按钮、复选框的Click事件编写代码如何了解用户的选择——判断选项按钮、复选框的Value属性值PrivateSubCheck1_Click()'粗体复选框的单击事件

IfCheck1.Value=1Then'若粗体复选框选中

Label1.FontBold=True'设置粗体

ElseIfCheck1.Value=0Then'若粗体复选框未选

Label1.FontBold=False'取消粗体

EndIfEndSub3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)列表框和组合框控件——通过列表的形式显示多个项目，供用户选择，实现交互。当列表项目很多，无法全部显示，会自动出现垂直滚动条，方便用户浏览选择。列表框仅能为用户提供选择的列表，不能由用户直接输入和修改其中的列表项内容组合框是文本框和列表框功能的组合控件，所以用户可以通过在其文本框中输入，来选择列表项

实例演示3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要属性List：用于保存和设置每一个列表项内容在程序中的访问形式

列表框或组合框名.List(列表项序号)

列表项序号是为列表项进行的位置编号，从上至下依次为0、1、2…属性窗口设置List：在添加每个列表项时，按Ctrl+Enter键可以进行下一个列表项的连续添加，按Enter键表示结束设置List1.List(0)List1.List(1)List1.List(2)…

List1.List(4)3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要属性ListCount(运行态属性)：当前列表框中列表项总数通过ListCount-1得到最后一个列表项的序号ListIndex(运行态属性)：其值是最后选中的列表项位置序号，若未选任何项目，则其值为-1通过对象名.List(对象名.ListIndex)形式访问当前最后选中的列表项的内容Text：其值等同于List(对象名.

ListIndex)不能直接设置列表框的Text(运行态属性)组合框的Text属性值还表示用户直接在编辑区输入的文本3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要属性Sorted(排序)：取值为True时，按各列表项内容在字母表中的次序排序；否则不排序，即按加入顺序显示列表框的特有属性Columns：取值为0时，列表项单列显示，取值大于0时，列表项多列显示MultiSelect：决定用户是否可以一次选择列表框中多个列表项；取值0——禁止多选；1——通过鼠标单击或按空格键选定或取消多个列表项；2——通过Shift或Ctrl与鼠标或按空格键配合进行扩展选择3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)列表框的特有属性Selected(运行态属性)：当用户同时选中多个列表项时，采用列表框名.Selected(列表项序号)形式，来判断该列表项序号所对应的列表项是否被选中，值为True表示选中，否则“False”表示未选中SelCount(运行态属性)：取值是用户同时选中多个列表项的数目Style：控制列表框的外观，取值可以为0(标准形式)和1(复选框形式)3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)组合框的特有属性Style(风格属性)：下拉组合框

简单组合框

下拉列表框

(Style=0) (Style=1) (Style=2)3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)适用场合组合框适用于建议性的选项列表，组合框(Style=1或2)包含编辑区域，这时可输入不在列表中的选项当希望将输入的数据限制在列表选项之内时，应使用列表框或下拉列表框除简单组合框外，组合框要比列表框节省窗体空间，只有单击组合框的向下箭头时，才显示全部列表，所以经常在窗体布局内容较多的情况下选用组合框替换列表框3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要方法AddItem：为列表框和组合框添加列表项对象名.AddItem列表项文本内容

[,插入位置序号]若不指定插入位置，则采用追加形式插入到列表尾该方法一次只能向列表中添加一个列表项通常在Form_Load事件过程中使用该方法来初始化列表项RemoveItem：用于删除列表框和组合框中指定位置序号的列表项对象名.RemoveItem删除项的序号该方法一次删除一个列表项3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要方法Clear：删除或清空列表框和组合框中所有的列表项执行Clear方法后，ListCount属性自动重新被设置为0实例演示3.5选择控件课程的录入分析命令按钮的Click事件AddItem、RemoveItem、Clear方法PrivateSubCommand1_Click()List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()List1.ClearEndSub3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要事件Click：当用户通过鼠标选择列表项时，触发该事件的发生在该事件中，一般编写有关对选中列表项与其他控件的关联操作DbClick：适用于列表框和简单组合框在该事件中，一般编写有关对选中列表项删除或转移到其他控件的关联操作DropDown：适用于下拉式的组合框和下拉式列表框；用户单击组合框中向下的箭头时，将触发DropDown事件，该事件实际上对应于向下箭头的单击事件3.5选择控件3.5.2列表框(ListBox)和组合框(Combol)主要事件简单组合框和下拉组合框具有一个文本框似的编辑区，所以它们具有类似于文本框的一些事件，例如：Change、KeyPress等事件[例题3-10][例题3-11]例题3-10编写一个能够完成课程的添加、删除和清空的学生选课程序分析：在命令按钮的Click事件中编写代码将List1中选中的列表项添加到List2中——List1.TextPrivateSubCmdAddItem_Click()List2.AddItemList1.TextEndSub'可用List1.List(List1.ListIndex)替换PrivateSubCmdRemove_Click()List2.RemoveItemList2.ListIndexEndSubPrivateSubCmdClear_Click()List2.Clear'清空列表框EndSub例题3-11利用简单组合框编写一个录入书名的程序，录入一个书名直接按回车或按下确认按钮，都可将书名添加进组合框中分析：简单组合框——Style=1直接按回车或按下确认按钮，可将书名添加进组合框中

——在命令按钮的Click事件中编写添加代码；设置命令按钮的Default属性为True或编写组合框的KeyPress事件代码PrivateSubCommand1_Click()'按下确认按钮，添加

Combo1.AddItemCombo1.TextCombo1.SetFocusEndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'当按下回车键，直接添加

Combo1.AddItemCombo1.TextCombo1.SetFocusEndIfEndSub3.5图片控件VB是在Windows操作平台下，用于开发和创建具有图形用户界面的应用程序的强有力工具之一，图形控件能美化界面和增加界面的趣味性3.6.1图片框(PictureBox)和图像框(Image)图像框控件用来显示图形，该图形的格式可以是BMP位图、ICO图标、图元文件、JPEG或GIF文件图片框控件应用更广，不仅可以象图像框控件那样显示图形，而且可以绘制图形、显示文本或数据，还经常被用作其他控件的容器图像框比图片框占用更少的内存，描图速度更快

3.5图片控件3.6.1图片框(PictureBox)和图像框(Image)常用属性Picture：用于设置装载的图形。可以在属性窗口中设置，也可以在运行中通过代码加载：对象名.Picture=LoadPicture("图形文件名")对象名1.Picture=对象名2.Picture图形文件名可包含文件路径；缺省图形文件名，表示清除图形控件中的图片对象名.Picture=LoadPicture()

3.5图片控件3.6.1图片框(PictureBox)和图像框(Image)常用属性Autosize(图片框)：取值为True时，该控件能自动调节大小以显示完整的图形Stretch(图像框)：取值为False时，图像框可自动改变大小以适应加载的图形；取值为True时，则加载的图形可自动调整尺寸以适应图像框的大小3.5图片控件3.6.1图片框(PictureBox)和图像框(Image)图形方法(适用于图片框、窗体、打印机)Line：用于画直线或矩形对象名.Line[(x1,y1)]-(x2,y2)[,颜色][,B](x1,y1)和(x2,y2)表示线段的起点和终点坐标，若缺省(x1,y1)起点坐标，则表示从对象容器的坐标原点开始绘制；B表示绘制矩形Circle：用于画圆、椭圆、圆弧和扇形对象名.Circle(x,y),半径

[,[起始角][,[终止角][,长短轴比率]]](x,y)为圆心坐标；圆弧和扇形通过起始角、终止角控制；椭圆通过长短轴比率控制3.5图片控件3.6.1图片框(PictureBox)和图像框(Image)图形方法(适用于图片框、窗体、打印机)Pset：用于画点对象名.Pset(x,y),半径[,颜色](x,y)为所画的位置经常用于绘制具体曲线Point：用于获取指定点的RGB颜色对象名.Point(x,y)主要事件：与窗体基本相同[例题3-12]例题3-12利用上述方法和属性，实现如下程序分析：图片自动伸缩适应图象框：Image1.Stretch=True图象框加载图片：Image1.Picture=LoadPicture("c:\winnt\FeatherTexture.bmp")Picture1.Cls清空图片：Picture1.Picture=LoadPicture()Picture1.Picture=Image1.Picture画线：Picture1.Line(200,200)-(1000,1000)画圆：Picture1.Circle(500,500),5003.5图片控件3.6.2绘图控件Line(直线)和Shape(形状)仅适用于在窗体和图片框内绘制图形，但绘出的图形不支持任何事件Line(直线)的主要属性端点坐标(x1,y1)和(x2,y2)、线形属性BorderStyle、线宽属性BorderWidthShape(形状)的主要属性形状属性Shape(取值为0~5分别代表矩形、正方形、椭圆、圆、圆角矩形和圆角正方形)填充图案属性FillStyle填充颜色属性FillColor(仅当填充图案为非0时填充颜色设置有效)3.5图片控件3.6.2绘图控件Line(直线)和Shape(形状)Line控件设置BorderStyle=4

Shape(形状)控件设置FillStyle=7、Shape=2、FillColor=红色效果如图

3.7滚动条和计时器3.7.1滚动条VB提供了HScroll(水平)和Vscroll(垂直)两种滚动条控件，用于与其他对象配合，浏览长列项目和信息；有时也用于数据输入主要属性Max和Min属性：设置滑块滚动的数值范围SmallChange和LargeChange属性：设置滑块滚动的增量值单击滚动条空白处用LargeChange指定其移动量单击滚动条两端箭头用SmallChangeValue：设置当前滑块的位置3.7滚动条和计时器3.7.1滚动条主要事件Change：只要滑块位置发生变化，即当Value属性值发生变化时，触发该事件Scroll：仅当拖动滑块时，触发本事件单击滚动条两端箭头或滚动条空白处时不发生Scroll事件[例题3-13]例题3-13通过改变拖动滚动条实现形状大小的变化程序分析：形状圆？——Shape=2滚动条变化改变形状的大小(Width、Height)——滚动条的Change事件PrivateSubHScroll1_Change()Shape1.Width=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Shape1.Height=VScroll1.ValueEndSub3.7滚动条和计时器3.7.2计时器(Timer)也称为时间控件，它响应时间的流逝经常利用该控件实现每隔一段时间有规律的完成相应的操作计时器是在运行时的不可见控件，它没有位置和大小属性主要属性Interval：指定计时器事件之间的间隔时间，以ms(毫秒)为单位，取值范围为0~65535；取(缺省值)为0时Timer控件无效3.7滚动条和计时器3.7.2计时器(Timer)主要属性Enabled：决定计时器控件是否对时间的推移做响应。取值为False，禁用Timer控件；为True，Timer控件有效；Interval属性必须在计时器控件的Enabled属性为真时，才能每隔Interval的时间引发一次计时器事件主要事件时间控件只有Timer事件。该事件具有周期性，通过创建Timer事件程序用以告诉VB在每隔Interval的时间该做什么。在实际的编程中，常常利用该事件，实现某些简单的动画或有规律的重复性操作。

[例题3-14]

例题3-14编写程序实现系统时间的动态显示，以及显示内容的颜色动态变化程序分析：动态——Timer事件时间——Now函数返回系统时间颜色——ForeColor属性、RGB函数、Rnd函数PrivateSubTimer1_Timer()Label1.Caption=Now'Now函数返回系统时间

r=Int(Rnd*255)'Rnd函数产生随机数

g=Int(Rnd*255)b=Int(Rnd*255)Label1.ForeColor=RGB(r,g,b)'RGB函数返回一个颜色值EndSub3.8焦点窗体和多数控件(文本框、命令按钮、选项按钮、复选框、滚动条、图片框、组合框、列表框)一般都能得到焦点，而且能从外观看出它是否得到焦点，例如：当文本框得到焦点，表现为文本框中有闪烁的光标；而命令按钮、选项按钮、复选框等则表现为控件表面上有一个虚线框。对于窗体来说，只有当窗体上没有能聚焦的控件时，该窗体才能接收焦点当对象得到焦点时，会触发GotFocus事件；而当对象失去焦点时，会触发LostFocus事件常常利用LostFocus事件过程来进行数据的确认和有效性检查，同时修正或改变在GotFocus事件过程中设立的条件3.8焦点常用的设置焦点的方法程序运行时，通过单击该对象，得到焦点程序运行时，使用Tab键、快捷的访问键来选择该对象，使其得到焦点使用SetFocus方法焦点只能移到可见的窗体和控件上，只有当对象的Enabled和Visible属性均为True时，它才可能接收焦点不能直接在Form_Load事件过程中使用SetFocus方法为对象设置焦点，因为窗体在Load事件完成前，窗体本身和该窗体上的控件都是不可见的。必须先显示窗体，然后才能对窗体或其上的控件设置焦点PrivateSubForm_Load()Form1.Show'必须先使窗体可见

Text1.SetFocusEndSub3.9键盘与鼠标事件过程3.9.1键盘事件过程对于接受文本输入的控件，如：文本框、简单组合框和下拉组合框等，需要控制和处理输入的文本，常常需要对键盘事件进行编程KeyPress、KeyDown和KeyUp键盘事件只用于能够聚焦的对象，如窗体、文本框、命令按钮、选项按钮、复选框、组合框、列表框、图片框、滚动条等控件对于窗体，仅当它上面没有可视和有效的控件或KeyPreview属性被设置为True时才能接收键盘事件3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyPress事件当用户按下和松开一个能产生Ascii码的键时发生KeyPress事件。严格地说，当按下某个能产生Ascii码的键时，所触发的是当前得到焦点的那个对象的KeyPress事件PrivateSub对象名_KeyPress(KeyAsciiAsInteger)

……

EndSub参数KeyAscii就是该过程接受到的按键的Ascii码按下大写字母“B”，KeyAscii的值为66

按下小写字母“b”，KeyAscii的值为983.9键盘与鼠标事件过程3.9.1键盘事件过程KeyPress事件在键盘上的按键并非都能产生Ascii码，如：方向键←、→、↑、↓、功能键F1~F12、Shift、Ctrl、Alt键就不产生Ascii码，不会引发KeyPress事件，而数字、大小写字母等可打印的键盘字符、Enter、BackSpace、Esc、Tab等都可以KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时是非常有用的，它可立即测试击键的有效性或在字符输入时对其进行格式处理改变keyascii参数的值会改变所显示的字符[例题3-15]

、[例题3-16]

例题3-15编写程序，实现对于用户在文本框中输入的字母，不管大小写，始终以大写显示在文本框中分析：小写字母按键的Ascii值的范围——[97，122]小写转换成大写字符——小写字母与大写字母的Ascii差值为32输入时立即转换——编写文本框的KeyPress事件过程PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii>=97AndKeyAscii<=122Then'判断是否是小写字母

KeyAscii=KeyAscii–32'小写转换成大写

EndIfEndSub例题3-16在默认情况下，控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事件时，总是激活目前得到焦点的控件的键盘事件；若窗体的KeyPreview属性被设置为True(默认为False)，则不管目前谁得到焦点，总是先触发窗体键盘事件，后触发焦点控件的键盘事件，否则不会触发窗体的键盘事件注意程序中当窗体的KeyPreview属性被设置为True或默认值False，键盘事件的不同触发次序设窗体的KeyPreview属性被设置默认值False，程序运行时，通过命令按钮切换为True，在窗体和文本框的KeyPress事件过程中编写了输出标志信息3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyUp和KeyDown事件过程和KeyPress事件不同，KeyUp和KeyDown事件返回的是键盘的直接状态，即KeyUp和KeyDown事件返回的是“键”，而KeyPress事件返回的是“字符”的Ascii码。当用户按下键盘上的任意一个键时，就会触发焦点对象的KeyDown事件，当释放按键，就会触发KeyUp事件3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyDown事件过程PrivateSub

对象名_KeyDown(keycodeAsInteger,_

shiftAsInteger)……EndSubKeyUp事件过程PrivateSub

对象名_KeyUp(keycodeAsInteger,_

shiftAsInteger)……EndSub3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyUp和KeyDown事件过程KeyCode参数是用户按下的那个键的扫描码(键盘上的每一个按键都一个扫描码，且各自不同)，该码以“键”为准，它不同于KeyPress事件中的KeyAscii参数(以“字符”为准)大小写字母“A”和“a”用的是同一个键，所以它们的扫描码相同，即KeyCode相同，而Ascii码不同(“A”是65、“a”是97)，即KeyAscii不同往往只能通过KeyCode参数了解用户按下键盘上的哪个键(不是字符)3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyUp和KeyDown事件过程Shift参数是Shift、Ctrl和Alt三个转换键目前按下的状态信息；取值是一个是位域，它用最少的位响应SHIFT键(位0)、CTRL键(位1)和ALT键(位2)。这些位分别对应于值1、2和4十进制二进制转换键按下情况0000没有按下转换键1001只按下Shift键2010只按下Ctrl键3011按下Ctrl+Shift键4100只按下Alt键5101按下Alt+Shift键6110按下Alt+Ctrl键7111按下Alt+Ctrl+Shift键3.9键盘与鼠标事件过程3.9.1键盘事件过程KeyUp和KeyDown事件过程的应用扩展的字符键如功能键等定位键键盘修饰键和按键的组合区别数字小键盘和常规数字键[例题3-17]下列情况不会触发KeyDown和KeyUp事件窗体有一个CommandButton控件，并且Default属性设置为True时的Enter键窗体有一个CommandButton控件，并且Cancel属性设置为True时的Esc键Tab键[例题3-18]例题3-17编写程序，利用KeyDown和KeyUp事件显示按下键和释放键情况分析：根据KeyCode返回对应的字符——Chr函数PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print"按下";Chr(KeyCode);KeyCodeEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Print"释放";Chr(KeyCode);KeyCodeEndSubPrivateSubform_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfShift=1ThenPrint"按下Shift键";KeyCodeIfShift=2ThenPrint"按下Ctrl键";KeyCodeIfShift=3ThenPrint"按下Ctrl+Shift键";KeyCodeIfShift=4ThenPrint"按下Alt键";KeyCodeIfShift=5ThenPrint"按下Alt+Shift键";KeyCodeIfShift=6ThenPrint"按下Alt+Ctrl键";KeyCodeIfShift=7ThenPrint"按下Alt+Ctrl+Shift键";KeyCodeEndSubPrivateSubform_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Print"释放";KeyCodeEndSub例题3-18编写程序，利用KeyDown和KeyUp事件显示按下和释放转换键情况3.9键盘与鼠标事件过程3.9.2鼠标器事件过程鼠标的单击和双击事件鼠标事件：鼠标的按下、移动和释放事件，即MouseDown、MouseMove和MouseUp事件适用于以下对象，包括窗体、文本框、命令按钮、选项按钮、复选框、列表框、图片框、标签、框架等鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件；在按下鼠标按钮并释放时，Click事件只能把此过程识别为一个单一的操作——单击操作鼠标事件不同于Click事件和DblClick事件之处还在于，鼠标事件能够区分各鼠标按钮与Shift、Alt、Ctrl键3.9键盘与鼠标事件过程3.9.2鼠标器事件过程MouseDown事件过程PrivateSub对象名_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSubMouseUp事件过程：PrivateSub对象名_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSub3.9键盘与鼠标事件过程3.9.2鼠标器事件过程MouseMove事件过程：PrivateSub对象名_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)……EndSubShift、X、Y参数的含义同键盘事件Button参数值指示此时按下或释放了哪个鼠标键，该参数是一个整数3.9键盘与鼠标事件过程3.9.2鼠标器事件过程对于MouseMove事件来说，button参数指示的是所有鼠标按键当前的状态；一个MouseMove事件可指示某些、全部或没有一个按钮被按下MouseDown和MouseUp事件来说，button参数在每个事件精确地指示一个按键，即不能检查两个或三个键同时被按下或松开的情况，因此取值只能是下表中的前三种十进制二进制转换键按下情况0000没有按下任何鼠标键1001鼠标左键被按下2010鼠标右键被按下3011鼠标左、右键同时被按下4100鼠标中间键被按下5101鼠标中间、左键同时被按下6110鼠标中间、右键同时被按下7111鼠标三键同时被按下3.9键盘与鼠标事件过程3.9.2鼠标器事件过程MouseDown是三种鼠标事件中最常使用的事件。例如，在运行时可用它调整控件在窗体上的位置，也可用它实现某些图形效果。按下鼠标按钮时就可触发此事件。MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标，否则，当鼠