《第4部分窗体及常用控件ppt课件》由会员分享，可在线阅读，更多相关《第4部分窗体及常用控件ppt课件（98页珍藏版）》请在金锄头文库上搜索。
1、计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计第4章 窗体及常用控件 窗体和控件是窗体和控件是VBVB作为可视化编程的重要工具，在作为可视化编程的重要工具，在这一章中引见窗体及常用控件，如：标签、文本框、这一章中引见窗体及常用控件，如：标签、文本框、列表框、组合框、命令按钮、单项选择按钮、检查框、列表框、组合框、命令按钮、单项选择按钮、检查框、框架、滚动条、时钟等根本控件的运用。本章的内容框架、滚动条、时钟等根本控件的运用。本章的内容如下：如下：4.1 4.1 窗体设计窗体设计4.2 4.2 根本控件根本控件4.3 4.
2、3 运用运用ActiveX ActiveX 控件和可插入对象控件和可插入对象4.4 4.4 控件运用举例控件运用举例计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计4.1 4.1 窗体设计窗体设计 窗体对象是开发窗体对象是开发VBVB程序的一个根本平台，程序的一个根本平台，绝大多数控件都要添加在窗体上。在本节中集中引绝大多数控件都要添加在窗体上。在本节中集中引见窗体的属性、方法、事件以及窗体的任务过程。见窗体的属性、方法、事件以及窗体的任务过程。一、窗体的属性、事件和方法一、窗体的属性、事件和方法1 1、窗体的属性、窗体的
3、属性 设置窗体的属性有两种方法：设置窗体的属性有两种方法： 在程序设计时手工在在程序设计时手工在“属性窗口中设置；属性窗口中设置； 在程序代码中设置，在程序运转时实现。在程序代码中设置，在程序运转时实现。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 窗体的属性不仅影响窗体窗体的属性不仅影响窗体的外观，还控制着窗体的位置、的外观，还控制着窗体的位置、大小和行为等。窗体的属性很大小和行为等。窗体的属性很多，常用的窗体属性有：多，常用的窗体属性有：Caption属性属性该属性决议窗体标题栏中显示的文本。MaxButton属性
4、属性决议窗体能否能最大化。它是一个逻辑值。当属性为True时，窗体右上角有最大化按钮。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计MinButton属性属性决议窗体能否能最小化。它是一个逻辑值。当属性为True时，窗体右上角有最小化按钮。ControlBox属性属性决议窗体标题拦中能否有控制菜单框，它也是一个逻辑值。当属性为True时，窗体左上角有控制菜单框。Moveable属性属性Borderstyle边框风格属性边框风格属性该属性决议窗体能否可挪动，它是一个逻辑值，当属性为True时，表示窗体可以挪动。该属性用来设
5、置窗体的大小及边框的款式，有4种情况：计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计0None:窗口无边框窗口无边框2FixedSingle:窗口为单线边框，大小不能改动窗口为单线边框，大小不能改动3Sizable:窗口为双线边框，可以改动窗口大小窗口为双线边框，可以改动窗口大小4FixedDouble:窗口有双线框架，不能改动大小窗口有双线框架，不能改动大小Icon属性属性设置窗体最小化时显示的图标。设置窗体最小化时显示的图标。VB中的图标文件存放在中的图标文件存放在GraphicsIcons下的子目录中。下的子目录中
6、。MDIChild属性属性该属性用来设置该属性用来设置MDI子窗体，它是一个逻辑值，当属性子窗体，它是一个逻辑值，当属性为为True时，表示该窗体是时，表示该窗体是MDI子窗体。子窗体。WindowState属性属性该属性决议了窗体执行时的显示形状，有该属性决议了窗体执行时的显示形状，有3个取值：个取值：0正常窗口形状，有窗口边境。正常窗口形状，有窗口边境。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计ShowInTaskerbar属性属性AutoRedraw属性属性1最小化形状，以图标方式运转。最小化形状，以图标方式运
7、转。2最大化形状，无边框，充溢整个屏幕。最大化形状，无边框，充溢整个屏幕。该属性决议一个窗体对象能否出如今该属性决议一个窗体对象能否出如今Windows义务栏中，义务栏中，它是一个逻辑值，为它是一个逻辑值，为True时表示窗体在义务栏中。该属性值时表示窗体在义务栏中。该属性值在运转时为只读形状。在运转时为只读形状。该该属属性性控控制制窗窗体体图图像像的的重重建建。它它是是一一个个逻逻辑辑值值，当当属属性性为为True时时，在在其其他他窗窗口口覆覆盖盖某某窗窗体体后后，又又前前往往该该窗窗体体时时，VB将将自自动动刷刷新新或或者者重重画画该该窗窗体体的的一一切切图图形形，否否那那么么必必需需调调
8、用用一一个个事事件件过过程程来来执执行行这这项项义义务务。也也就就是是说说，只只需需当当AutoRedraw设设置置为为True时时才才干干重重画画如如Circle、Cls、Point和和Print等方法的输出。等方法的输出。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2、窗体的事件、窗体的事件窗体最常用的事件有窗体最常用的事件有Load、Activate、Deactivate、Click和和DblClick。这里只引见前。这里只引见前3个事件。窗体的个事件。窗体的Click和和DblClick事事件与控件的相应事件一
9、样，后面再作引见。件与控件的相应事件一样，后面再作引见。Load事件当当一一个个窗窗体体被被装装入入任任务务区区时时触触发发的的事事件件。该该事事件件通通常常用用来来在在启启动动运运用用程程序序时时对对属属性性和和变变量量进进展展初初始始化。化。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计Activate事件当当一一个个窗窗体体成成为为活活动动窗窗口口时时所所触触发发的的事事件件。用用户户单单击击某某个个窗窗体体，或或在在程程序序代代码码中中用用Show方方法法显显示示窗窗体体，或或用用SetFocus把把焦焦点点设设
10、置置在在某某窗窗体体上上都都使使该该窗窗体体成成为为活活动动窗窗口口，此时触发此时触发Activate事件。该事件对初始化窗体行为非常方便。事件。该事件对初始化窗体行为非常方便。Deactivate事件当当另另一一个个窗窗体体或或运运用用程程序序被被激激活活时时，该该窗窗体体就就会会产产生生一一个个Deactivate的的事事件件。该该事事件件对对终终了了窗窗体体行行为为非非常常方方便便，例例如如，在在Deactivate事事件件中中，可可以以把把对对该该窗窗体体操操作作所所做做的的更改保管到文件或数据库中。更改保管到文件或数据库中。计算机软件技术基础计算机软件技术基础Visual Basic
11、 Visual Basic 程序设计程序设计程序设计程序设计3、窗体的方法、窗体的方法窗体的方法有多种，他们可以调用文本和图形，窗体的方法有多种，他们可以调用文本和图形，在窗体外表上输出、写或画，这样的方法有在窗体外表上输出、写或画，这样的方法有Print、Line、Circle、Cls等。对这类方法我们不过多引见，等。对这类方法我们不过多引见，我们主要引见一些对窗体的行为产生影响的方法。我们主要引见一些对窗体的行为产生影响的方法。Show方法方法Show方法可以使一个窗体可见，运用格式如下：方法可以使一个窗体可见，运用格式如下：对象对象.Show其其中中，对对象象是是窗窗体体的的称称号号。调
12、调用用Show方方法法与与设设置置窗体窗体Visible属性为属性为True具有一样效果。具有一样效果。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计调调用用窗窗体体的的Hide方方法法，可可以以隐隐藏藏一一个个窗窗体体。当当一一个个窗窗体体调调用用Hide方方法法后后，该该窗窗体体就就从从屏屏幕幕上上被被删删除除，并并且且它它的的Visible属属性性被被设置为设置为False。调用的格式如下：。调用的格式如下：对象对象.HideHide方法方法Refresh方法该该方方法法用用于于对对窗窗体体刷刷新新。当当用用户户对
13、对窗窗体体操操作作后后，调调用用Refresh方方法法，可可以以刷刷新新窗窗体体，使使窗窗体体显显示示最最新新的的内内容容。调调用用Refresh方方法法的格式如下：的格式如下：对象对象.Refresh例例li4-1-2点击此处进入点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计二、向窗体上添加控件二、向窗体上添加控件1、生成控件及调理控件大小和位置：、生成控件及调理控件大小和位置：单击工具箱中按钮单击工具箱中按钮在窗体上拖动在窗体上拖动利用调理柄改动大小利用调理柄改动大小在控件中央拖动鼠标在控件中央拖动鼠标2
14、、运用网格、运用网格工具菜单工具菜单选项选项通用通用显示网格显示网格3、多个控件的生成及操作、多个控件的生成及操作双击某个工具按钮双击某个工具按钮生成多个一样控件生成多个一样控件多个控件的选中多个控件的选中控件的迭放层次控件的迭放层次多个控件的编辑多个控件的编辑窗体编辑器的运用窗体编辑器的运用视图视图工具栏工具栏窗体编辑器窗体编辑器计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计4、控件数组 控件数组的定义 控件数组是由一组一样类型的控件组成，它们公用一个控件名，具有一样的属性。当建立控件数组时，系统给每个元素赋一个独一的
15、索引号Index，经过属性窗口的Index属性，可以知道该控件的下标是多少，控件数组的第一个下标是0。 控件数组适宜假设干个控件执行的操作类似的场所，控件数组共享同样的事件过程。 控件数组的建立 在设计时建立，步骤为： 在窗体上画出某个控件，可以进展控件名的属性设置，这是建立的第一个元素； 选中该控件，进展copy和paste操作，系统会提示： 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计“已有了命名的控件，能否要建立控件数组已有了命名的控件，能否要建立控件数组单击单击YesYes按钮后，就建立了一个控件数组元素，进展
16、假设干次按钮后，就建立了一个控件数组元素，进展假设干次PastePaste操作，就操作，就建立了所需求的控件数组；建立了所需求的控件数组； 进展事件过程的编程。进展事件过程的编程。 运转时添加控件数组，步骤为： 在窗体上画出某控件，设置该空间的Index属性值为0，表示该控件为数组；这是建立的第一个元素； 在编程时经过Load方法添加其他的假设干个元素，也可以经过Unload方法删除某个元素； 每个新添加的控件数组经过Left和Top属性，确定其在窗体中的位置，并将Visible属性设置为True。例例li4-0:建立含有建立含有4个命令按钮的控件数组，当单击某个按钮时，分别显个命令按钮的控件
17、数组，当单击某个按钮时，分别显示不同的图形或终了。示不同的图形或终了。例例li4-0-1:建立一个类似国际象棋的棋盘。要求：建立一个类似国际象棋的棋盘。要求：设计时在窗体上放一个设计时在窗体上放一个Label控件，其控件，其Index属性为属性为0，BackColor属性为属性为黑色。程序运转时产生黑色。程序运转时产生64个个Label控件数组元素，控件数组元素，BackColor黑白交替。黑白交替。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计三、设置启动窗体三、设置启动窗体1、设置启动窗体、设置启动窗体从从“工程菜单
18、中选取工程菜单中选取“工程属性工程属性命令，翻开命令，翻开“工工程属性对话框程属性对话框在显示的在显示的“工程属性对话框中，工程属性对话框中，选取选取“通用选通用选项卡项卡在在“启动对象列表框中，选取要启动对象列表框中，选取要作为新启动窗作为新启动窗体的窗体体的窗体2、不运用启动窗体开场程序的运转、不运用启动窗体开场程序的运转s.m.计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计1、创建形状窗体的创建、创建形状窗体的创建Initialize事件是窗体创建形状开场的标志。因此，放在事件是窗体创建形状开场的标志。因此，放在F
19、orm_Initialize()事件过程中的代码，就是窗体创建时最先执事件过程中的代码，就是窗体创建时最先执行的代码。处于这种形状时，窗体是作为一个对象而存在，但行的代码。处于这种形状时，窗体是作为一个对象而存在，但还没有窗口，而且它的控件也不存在，也就是说在这个形状下，还没有窗口，而且它的控件也不存在，也就是说在这个形状下，只需窗体的代码部分在内存中，而窗体的可视部分还没有调入。只需窗体的代码部分在内存中，而窗体的可视部分还没有调入。虽然该形状能够很短暂，但任何窗体都要经过这个形状。虽然该形状能够很短暂，但任何窗体都要经过这个形状。四、窗体的生命周期四、窗体的生命周期窗体在整个窗体在整个存活
20、期中有存活期中有四种形状四种形状:创建形状创建形状加载形状加载形状可见形状可见形状卸载形状卸载形状计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2、加载形状加载窗体、加载形状加载窗体Load事件是加载形状的开场事件是加载形状的开场加载窗体那么加载窗体那么Form_Load事件过程中的代码开场执行事件过程中的代码开场执行窗体假设满足以下任一条件即可自动加载窗体假设满足以下任一条件即可自动加载该窗体在该窗体在“工程属性对话框的工程属性对话框的“通用选项卡中被通用选项卡中被指定为启动对象指定为启动对象窗体中首先被调用的属性或方
21、法是窗体中首先被调用的属性或方法是Show方法方法，例如：，例如：Form1.Show首先被调用的属性或方法是窗体内置的成员首先被调用的属性或方法是窗体内置的成员.例如：例如：调用了窗体的调用了窗体的Move方法或运用了窗体中某个控件的属性。方法或运用了窗体中某个控件的属性。用用Load语句加载窗体语句加载窗体如：如：LoadForm2在上面所列的在上面所列的、两种情况下，一旦两种情况下，一旦Form_Load()事件事件执行终了，窗体就直接可见。而对于后面的两种情况，窗体将执行终了，窗体就直接可见。而对于后面的两种情况，窗体将坚持加载形状，但不显示。坚持加载形状，但不显示。计算机软件技术基础
22、计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计返回3、可见形状、可见形状在在加加载载窗窗体体后后，运运用用窗窗体体的的Show方方法法，可可以以使使窗窗体体进进入可见形状。一旦窗体可见，用户就能和它交互作用。入可见形状。一旦窗体可见，用户就能和它交互作用。1显示窗体：显示窗体：要使一个窗体可见，应调用要使一个窗体可见，应调用Show方法。方法。Forml.Show2隐隐藏藏一一个个窗窗体体，应应调调用用窗窗体体的的Hide方方法法。当当一一个个窗窗体体调调用用Hide方方法法后后，该该窗窗体体就就从从屏屏幕幕上上被被删删除除，并并且且它它
23、的的Visible属属性性被被设设置置为为False，窗窗体体前前往往加加载载形形状状。用用户户将将无无法法访访问问隐隐藏藏窗窗体体上上的的控控件件，但但是是对对于于运运转转中中的的VB运运用用程程序序，隐隐藏藏窗窗体体的的控控件件依依然然是是可可用用的的。在在程程序序中中，要要判判别别一一个个窗体能否处于可见形状，可以运用它的窗体能否处于可见形状，可以运用它的Visible属性，例如：属性，例如：IfForm2.VisibleThenForm2.Hide假设处于可见形状那么隐藏之假设处于可见形状那么隐藏之ElseForm2.Show假设窗体被隐藏那么显示之假设窗体被隐藏那么显示之Endif计
24、算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计4、卸载形状窗体的卸载、卸载形状窗体的卸载窗体在卸载时可以是隐藏的，也可以是可见的。假设没隐藏，窗体在卸载时可以是隐藏的，也可以是可见的。假设没隐藏，那么它将坚持可见直到卸载终了，内存和资源完全收回。那么它将坚持可见直到卸载终了，内存和资源完全收回。QueryUnload在任一窗体卸载前在一切窗体中发生，提供在任一窗体卸载前在一切窗体中发生，提供了停顿窗体卸载的时机。假设某些数据希望保管，那么此时了停顿窗体卸载的时机。假设某些数据希望保管，那么此时将提示保管或忽略所做的更改。将
25、提示保管或忽略所做的更改。Unload在每个窗体卸载时发生。在每个窗体卸载时发生。终了运用程序终了运用程序UnloadMe当只需一个窗体时终了运用程序当只需一个窗体时终了运用程序End立刻强行终了运用程序立刻强行终了运用程序计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计一、VB中的控件二、根本控件的常用属性返回4.2 4.2 根本控件根本控件三、设置Tab键的顺序四、控件默许属性五、常用控件计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 1 1、内
26、部控件、内部控件 内部控件就是在工具箱中默许出现的控件，如命令按钮、内部控件就是在工具箱中默许出现的控件，如命令按钮、标签、文本框等，这些控件在标签、文本框等，这些控件在VBVB的可执行文件中，因此也称为的可执行文件中，因此也称为 VBVB的根本控件。内部控件总是出如今工具箱中，不能从工具箱的根本控件。内部控件总是出如今工具箱中，不能从工具箱中删除。中删除。 2 2、ActiveXActiveX控件控件 扩展名为扩展名为.ocx.ocx的独立文件，包括各种版本的独立文件，包括各种版本VBVB提供的控件和提供的控件和仅在专业版和企业版中提供的控件，另外还有许多第三方提供仅在专业版和企业版中提供的
27、控件，另外还有许多第三方提供的的ActiveXActiveX控件。控件。 3 3、可插入的对象、可插入的对象 有些对象可以添加到工具箱中，例如一个有些对象可以添加到工具箱中，例如一个ExcelExcel任务表，任务表，这时可以把它们当作控件运用，这样的对象称可插入对象。其这时可以把它们当作控件运用，这样的对象称可插入对象。其中一些对象还支持中一些对象还支持OLEOLE自动化，运用这种控件就可以在自动化，运用这种控件就可以在VBVB运用运用程序中编程控制另一个运用程序的对象。程序中编程控制另一个运用程序的对象。一、VB中的控件计算机软件技术基础计算机软件技术基础Visual Basic Visu
28、al Basic 程序设计程序设计程序设计程序设计 学习VB，很大程度上是在学习各种控件的属性和设置，每一个控件都有本人的属性，如称号Name、能否可见Visible等。控件的属性可以在设计时经过属性窗口设置，也可以在编程时经过代码窗口改动。需求留意的是：不同的控件有许多一样的属性，也有许多不同的属性，例如，文本框就没有Caption属性(但有Text属性)。 控件与窗体一样，也具有属性、方法和事件，控件常用属性如下： 二、根本控件的常用属性计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计外观外观Caption标题属性：控
29、件上显示的内容标题属性：控件上显示的内容ForeColor前景颜色属性：控件的正文颜色前景颜色属性：控件的正文颜色BackColor背景颜色属性：正文以外显示区域颜色背景颜色属性：正文以外显示区域颜色BackStyle背景风格属性：背景风格属性：0Transparent透明显示透明显示1Opaque不透明不透明AutoSize属性：决议控件能否自动调整大小属性：决议控件能否自动调整大小True自动调整大小自动调整大小False坚持原设计大小，正文过长自动裁减坚持原设计大小，正文过长自动裁减位置位置Height、Width属性：决议控件的高度和宽度属性：决议控件的高度和宽度Top属性：控件或窗体
30、到窗体或屏幕顶部间隔属性：控件或窗体到窗体或屏幕顶部间隔Left属性：控件或窗体到窗体或屏幕左边间隔属性：控件或窗体到窗体或屏幕左边间隔Alignment属性：决议控件内的对齐方式属性：决议控件内的对齐方式0LeftJustify：正文左对齐：正文左对齐1RightJustify：正文右对齐：正文右对齐2Center：正文居中：正文居中计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计行为行为Enabled属性：决议控件能否允许操作属性：决议控件能否允许操作True允许用户操作，并对操作作出呼应允许用户操作，并对操作作出呼应
31、False制止用户进展操作，呈暗淡色制止用户进展操作，呈暗淡色Visible属性：决议控件能否可见属性：决议控件能否可见True程序运转时控件可见程序运转时控件可见False程序运转时控件隐藏程序运转时控件隐藏TabIndex属性：决议按属性：决议按Tab键时焦点在各控件挪动顺序键时焦点在各控件挪动顺序杂项杂项Name称号属性：对象的标识、不显示在窗体上称号属性：对象的标识、不显示在窗体上WordWarp属性：在程度或垂直方向上改动显示区域属性：在程度或垂直方向上改动显示区域大小大小True表示按文本和字体大小在垂直方向上改动表示按文本和字体大小在垂直方向上改动显示区域的大小，而在程度方向上不
32、发生变化显示区域的大小，而在程度方向上不发生变化False表示在程度方向上按正文长度放大和减少；表示在程度方向上按正文长度放大和减少；在垂直方向上以字体大小来放大或减少显示区域在垂直方向上以字体大小来放大或减少显示区域计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计字体字体FontFont属性改动文本的外观，其中：属性改动文本的外观，其中：FontName属性属性字符型，决议了控件上正文的字体。字符型，决议了控件上正文的字体。FontSize属性属性整型，决议了控件上正文的字体大小。整型，决议了控件上正文的字体大小。Fon
33、tBold属性属性逻辑型，表示控件上正文能否是粗逻辑型，表示控件上正文能否是粗体。体。FontItalic属性属性逻辑型，表示控件上正文能否是斜逻辑型，表示控件上正文能否是斜体。体。FontStrikethru属性属性逻辑型，表示控件上正文能否逻辑型，表示控件上正文能否加删除线。加删除线。FontUnderline属性属性逻辑型，表示控件上正文能否逻辑型，表示控件上正文能否带下划线。带下划线。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计1、焦点的概念、焦点的概念焦点是接纳用户鼠标或键盘输入的才干。焦点是接纳用户鼠标或键
34、盘输入的才干。当对象具有焦点时，可接纳用户的输入。在当对象具有焦点时，可接纳用户的输入。在Windows下下同时运转的多个运用程序中，只需具有焦点的运用程序有活动同时运转的多个运用程序中，只需具有焦点的运用程序有活动标题栏，才干接受用户输入。标题栏，才干接受用户输入。在在VB窗体中，只需具有焦点的文本框才接纳和显示由键窗体中，只需具有焦点的文本框才接纳和显示由键盘输入的文本内容。盘输入的文本内容。大部分控件可以接纳焦点，但有些控件不能接纳焦点，大部分控件可以接纳焦点，但有些控件不能接纳焦点，如如Frame、Label、Menu、Line、Shape、Image和和Timer等。等。对象能否具有
35、焦点是可以看出来的。例如，当命令按钮对象能否具有焦点是可以看出来的。例如，当命令按钮具有焦点时，标题周围的边框将突出显示。具有焦点时，标题周围的边框将突出显示。只需当对象的只需当对象的Enabled和和Visible属性为属性为True时，它才干接时，它才干接纳焦点。纳焦点。三、设置Tab键的顺序计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2、Tab键顺序所谓Tab顺序，就是按Tab键时焦点在各个控件上挪动的顺序。当有多个控件时，Tab顺序与控件建立的顺序一样。设置控件的TabIndex属性可以改动Tab顺序。由于顺序
36、编号从0开场，TabIndex的最大值总是比Tab键顺序中控件的数目少l。即使TabIndex属性值高于控件数目，VB也会将这个值转换为控件数减1。不能获得焦点的控件，以及无效的和不可见的控件，仍具有TabIndex属性，即这些控件也包含在Tab顺序中，但在按Tab键时，这些控件将被跳过。对于能获得焦点且有效的控件，假设不希望按Tab键时能选中该控件，那么可以将该控件的TabStop属性设为False，这样便可将此控件从Tab顺序中删除。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计VB中把某个控件的最重要属性称为该控件
37、属性的值或默许中把某个控件的最重要属性称为该控件属性的值或默许属性。属性。对于默许属性，在程序运转时可以直接改动控件的值而不对于默许属性，在程序运转时可以直接改动控件的值而不用指定该控件的哪个属性。用指定该控件的哪个属性。部分控件的默许属性部分控件的默许属性控件控件值值控件控件值值文本框文本框Text标签标签Caption命令按钮命令按钮Caption图形图像框图形图像框Picture单项选择按钮单项选择按钮Value检查框检查框Value四、控件默许属性计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计五、常用控件五、常用
38、控件1、命令按钮、标签和文本框2、单项选择钮、检查框和框架3、列表框和组合框4、滚动条5、计时器6、驱动器、目录和文件列表框计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计命令按钮、标签和文本框 命命令令按按钮钮是是WindowsWindows运运用用程程序序中中最最常常用用的的控控件件，用用于于完完成成某某种种功功能能，主主要要接接纳纳ClickClick事事件件，当当用用户户单单击击它它时时将将引引发发相相应应的事件过程。的事件过程。 在工具箱中，它是一个带有凸起圆角矩形图案的按钮。在工具箱中，它是一个带有凸起圆角矩形
39、图案的按钮。 在程序运转时，常用以下方法选中命令按钮：在程序运转时，常用以下方法选中命令按钮： l l用鼠标单击用鼠标单击 2 2按按TabTab键将焦点移到相应按钮上，再按回车键。键将焦点移到相应按钮上，再按回车键。 3 3按按快快捷捷键键AltAlt十十有有下下划划线线的的字字母母，设设置置快快捷捷键键的的方法见下面的方法见下面的CaptionCaption属性引见属性引见 1命令按钮命令按钮计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计(1) (1) 命令按钮的属性命令按钮的属性 Caption Caption属性
40、：属性： Caption Caption属性用于设定命令按钮的标题，即命令按钮上将显属性用于设定命令按钮的标题，即命令按钮上将显示的文字。示的文字。 在在CaptionCaption属性设置时，假设某个字母前参与属性设置时，假设某个字母前参与“，那么，那么程序运转时标题中的该字母带有下划线，该带有下划线的字母就成程序运转时标题中的该字母带有下划线，该带有下划线的字母就成为快捷键。为快捷键。 Default Default属性：属性： 只需命令按钮有只需命令按钮有DefaultDefault属性。属性。 该属性是逻辑型的，用于设定该命令按钮能否为默许按钮，该属性是逻辑型的，用于设定该命令按钮能否
41、为默许按钮，当当DefaultDefault属性值为属性值为TrueTrue时，按时，按EnterEnter键相当于用鼠标器单击了该按键相当于用鼠标器单击了该按钮。钮。 在一个窗体中只能有一个按钮的在一个窗体中只能有一个按钮的DefaultDefault属性设为属性设为TrueTrue。即在一个窗体上只能有一个命令按钮为默许按钮。即在一个窗体上只能有一个命令按钮为默许按钮。 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 Cancel Cancel属性：属性： Cancel Cancel属性是命令按钮独有的属性是命令按钮
42、独有的. . 当当CancelCancel属性值为属性值为TrueTrue时，按时，按EscEsc键相当于用鼠键相当于用鼠标器单击了该按钮。标器单击了该按钮。 在一个窗体中只能有一个按钮的在一个窗体中只能有一个按钮的CancelCancel属性设为属性设为TrueTrue。即在一个窗体上只能有一个命令按钮为。即在一个窗体上只能有一个命令按钮为CancleCancle按钮。按钮。 Value Value属性：属性： 该属性在设计阶段无效，只能在程序运转期间设该属性在设计阶段无效，只能在程序运转期间设置或援用，它是逻辑型的，用于检查该按钮能否被按下。置或援用，它是逻辑型的，用于检查该按钮能否被按下
43、。TrueTrue表示该按钮被按下，表示该按钮被按下，FalseFalse缺省表示按钮末被按下。缺省表示按钮末被按下。在程序运转过程中，只需在程序运转过程中，只需ValueValue值为值为TrueTrue，便引发按钮的，便引发按钮的ClickClick事件转去执行相应的程序。事件转去执行相应的程序。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 Style属性： 设定命令按钮的类别，有0、1两个取值。 0 表示按钮为规范按钮，按钮上不能显示图形，这是缺省值。 1 表示按钮为图形按钮，这时会在Caption文本上方显示由
44、Picture属性指定的图形。 注：假设在Picture图片属性中选择了图片文件，那么Style属性值必需为1，否那么无法显示图形。 Picture属性： 用于设定命令按钮上显示的图形，可以在设计阶段单击其后的省略号按钮选择一个文件以.bmp和.Ico为扩展名的图片文件，也可以在代码中设置。只需当命令按钮的Style属性设为1时，才会在命令按钮上显示图形。ToolTipText属性： 用于设定图形的提示文字，与Picture图片属性同时运用。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 2 2命令按钮的方法和事件命令按
45、钮的方法和事件 命令按钮没有特殊的方法和事件，它最重要命令按钮没有特殊的方法和事件，它最重要的事件就是的事件就是ClickClick事件，而且几乎一切的事件，而且几乎一切的WindowsWindows运用运用程序都是运用它的程序都是运用它的ClickClick事件。事件。 留意：它没有留意：它没有DblClickDblClick事件。事件。 3 3命令按钮的运用命令按钮的运用 命令按钮是最常用的启动控件，在程序中主要命令按钮是最常用的启动控件，在程序中主要运用它的运用它的CaptionCaption属性作为命令按钮的阐明，而在它属性作为命令按钮的阐明，而在它的的ClickClick事件中写人相
46、应的程序代码。事件中写人相应的程序代码。 例：利用命令按钮控制改动信号灯的显示。例：利用命令按钮控制改动信号灯的显示。 例例4-34-3点击此处进入点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计(1)(1)标签控件的常用特有属性标签控件的常用特有属性 (2)(2) Alignment Alignment属性属性: :(3)(3) 设定标签中文本的对齐方式。有三个可选项：设定标签中文本的对齐方式。有三个可选项：(4)(4) 0 0 表示左对齐，为系统默许值；表示左对齐，为系统默许值；(5)(5) 1 1 表示右
47、对齐；表示右对齐；(6)(6) 2 2 表示居中。表示居中。(7)(7) Autosize Autosize属性属性: :(8)(8) 用于设定标签的大小能否自动调整。共有两个选项：用于设定标签的大小能否自动调整。共有两个选项：True True 表示自动调整大小表示自动调整大小(9)(9) False False 表示不自动调整大小，默以为表示不自动调整大小，默以为FalseFalse。 2标签控件标签控件Label 标签主要用来显示输出文本信息，但是不能作为输入信息标签主要用来显示输出文本信息，但是不能作为输入信息的界面，也就是说，标签控件的内容只能用的界面，也就是说，标签控件的内容只能用
48、CaptionCaption属性来设置或修属性来设置或修正，而不能直接编辑。正，而不能直接编辑。 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 BackStyle BackStyle属性属性: :用于设定标签的背景方式。共有两个选项：用于设定标签的背景方式。共有两个选项： 0 0 标签重叠显示在背景上，不覆盖原来的背景；标签重叠显示在背景上，不覆盖原来的背景； l l 显示标签时将背景覆盖掉，此为系统默许值。显示标签时将背景覆盖掉，此为系统默许值。 BorderStyle BorderStyle属性：属性：用于设定标签
49、的边框方式。共有两个设置值：用于设定标签的边框方式。共有两个设置值： 0 0 无边框，默许形状无边框，默许形状 l l 单线框，详细的边框显示款式，还要看单线框，详细的边框显示款式，还要看AppearanceAppearance的设的设置。当置。当AppearanceAppearance为平面时，边框为单直线形的；当为平面时，边框为单直线形的；当AppearanceAppearance为为三维时，边框为凹陷形的。三维时，边框为凹陷形的。 Caption Caption属性：属性：用于设定标签上显示的文本内容。用于设定标签上显示的文本内容。 Index Index属性属性: : 假设当前标签控件
50、属性为控件数组，用假设当前标签控件属性为控件数组，用IndexIndex属性设定它在这一数属性设定它在这一数组中的下标。组中的下标。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 WordWrap WordWrap属性属性: :用来设定标签中的文本在显示时能否自动换行。共有用来设定标签中的文本在显示时能否自动换行。共有2 2个个选项：选项： True True 有自动折行功能有自动折行功能 False False 没有折行功能，这时假设标签内容太多，一没有折行功能，这时假设标签内容太多，一行显示不下，就会被截断。默许值为
51、行显示不下，就会被截断。默许值为FalseFalse。 2 2标签的方法标签的方法 标签的常用方法只需标签的常用方法只需MoveMove，格式如下：，格式如下： Move left, top, width, height Move left, top, width, height其中其中leftleft、toptop、widthwidth、heightheight分别表示挪动目的位置的分别表示挪动目的位置的坐标和大小。坐标和大小。leftleft为必要参数，其他三个为可选参数。为必要参数，其他三个为可选参数。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic
52、 程序设计程序设计程序设计程序设计 3标签的事件 普通很少运用标签事件，但有时为了特殊需求，也会用到以下几种标签事件： Change事件:当标签的内容被修正时产生该事件。标签内容的修正是由更改caption属性引起的。根本语法为： Sub Label_Change(Index As Integer) Click事件:鼠标单击产生Click事件。其事件处置过程的根本语法是： Sub Label_Click(Index As Integer) DblClick事件:鼠标双击产生DblClick事件。根本语法为： Sub Label_DblClick(Index As Integer) 其中，参数I
53、ndex是一个整数值。假设当前标签是一个控件数组，那么Index表示该标签在数组中的下标，否那么就不需求这一参数。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 开发一个加法计算器运用程序。其中，“被加数、“加数以及“和数称为标签Label，相应的三个输入输出数据框称为文本框TextBox，此外还有三个命令按钮CommandButton。用户可以在被加数和加数相应的文本框内输入数据，再单击“加法按钮，便能在“和数对应的框中看到相加的结果。当用户单击“去除按钮时，就会去除各文本框中的数据。当用户单击“封锁按钮时就会封锁该窗
54、口并退出运用程序。在文本框中输入数据时，用户可以进展普通的插入、修正和删除操作。 4 4标签举例标签举例 例例4-44-4点击此处进入点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计对象属性名属性值窗体称号frmAdderCaption加法计算器标签1Caption被加数标签2Caption加数标签3Caption和数文本框1称号txt1Caption空文本框2(称号)txt2Caption空文本框3称号txt3Caption空按钮1(称号)cmdAddCaption加法按钮2称号cmdClearCaption
55、去除按钮3称号cmdCloseCaption封锁本例中各本例中各个对象、个对象、有关的属有关的属性名以及性名以及需求设置需求设置的属性值的属性值设计如右设计如右表表计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计PrivateSubcmdAdd_Click()txt3.text=Str$(Val(txt1.Text)+Val(txt2.Text)EndSubPrivateSubcmdClear_Click()txt1.Text=txt2.Text=txt3.Text=EndSubPrivateSubcmdClose_Cli
56、ck()EndEndSub注：由于文本框中的注：由于文本框中的Text属性的值是字符串类型的，所以不能将两个文属性的值是字符串类型的，所以不能将两个文本框中的字符串直接进展加法运算，需求先用本框中的字符串直接进展加法运算，需求先用Val函数将代表数值的字函数将代表数值的字符串转换成双精度实数，才干进展数值运算。数值变量的运算结果还是符串转换成双精度实数，才干进展数值运算。数值变量的运算结果还是数值型的，需求用数值型的，需求用Str$函数将其转换成字符串后，才干赋给文本框的函数将其转换成字符串后，才干赋给文本框的text属性。属性。计算机软件技术基础计算机软件技术基础Visual Basic V
57、isual Basic 程序设计程序设计程序设计程序设计 文文本本框框又又称称编编辑辑框框，是是最最常常用用的的文文本本输输入入输输出出控控件件，该该区区域域可可以以输入、编辑、修正和显示正文内容。输入、编辑、修正和显示正文内容。1 1文本框的属性文本框的属性 文本框没有文本框没有CaptionCaption属性。下面主要引见它的一些特殊的属性。属性。下面主要引见它的一些特殊的属性。 Text Text属性：属性：用用于于设设置置或或获获得得文文本本框框中中显显示示的的文文本本，是是文文本本框框的的默默许许属属性性。在在程程序序中中运运用用这这一一属属性性获获得得当当前前文文本本框框中中的的文
58、文本本，即即在在程程序序执执行行时时，用用户户经经过键盘输入的正文内容，过键盘输入的正文内容，VBVB会自动将其保管在会自动将其保管在TextText属性中。属性中。 MaxLength MaxLength属性：属性：用于设定文本框中可以包容的最多字符数。用于设定文本框中可以包容的最多字符数。 0 0表示可包容恣意多个输入字符，默许值。表示可包容恣意多个输入字符，默许值。 正整数正整数表示该数值为可包容的最多字符数。表示该数值为可包容的最多字符数。 3 3 文本框文本框TextBox)TextBox)计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设
59、计程序设计程序设计程序设计 MultiLine MultiLine多行属性：多行属性：用于设定文本框中能否允许显示和输入多行文本。用于设定文本框中能否允许显示和输入多行文本。 True True 表示允许显示和输入多行文本。表示允许显示和输入多行文本。 False False 表示不允许显示和输入多行文本。表示不允许显示和输入多行文本。 ScrollBars ScrollBars属性：属性：用于设置文本框中能否带有滚动条。当用于设置文本框中能否带有滚动条。当MultiLineMultiLine属性为属性为TrueTrue时，时，ScrollBarsScrollBars属性才有效，因此这一属性普
60、通要和属性才有效，因此这一属性普通要和MultilineMultiline属性协调属性协调运用。运用。 0None: 0None:无滚动条无滚动条 1Horizontal: 1Horizontal:加程度滚动条加程度滚动条 2 Vertical: 2 Vertical:加垂直滚动条加垂直滚动条 3Both: 3Both:同时加程度和垂直滚动条同时加程度和垂直滚动条 HideSelection HideSelection隐藏选定属性：隐藏选定属性：用于设定焦点不在该文本框中时，所选定的文天性否仍反白显示。用于设定焦点不在该文本框中时，所选定的文天性否仍反白显示。它是逻辑值，它是逻辑值，TrueT
61、rue表示要隐藏选定文本，即当焦点不在当前编辑框表示要隐藏选定文本，即当焦点不在当前编辑框中时，所选定的文本不再反白显示；中时，所选定的文本不再反白显示；FalseFalse那么相反。那么相反。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 PasswordChar PasswordChar口令字符属性：口令字符属性：用于设定文本框能否用于输入口令类文本。当把这一属性用于设定文本框能否用于输入口令类文本。当把这一属性设定为一个非空字符串时如常用设定为一个非空字符串时如常用“*“*，运转程序时，运转程序时用户输入的文本就会
62、只显示这一非空字符，但系统接纳的用户输入的文本就会只显示这一非空字符，但系统接纳的却是用户输入的文本。系统默以为空字符，这时，用户在却是用户输入的文本。系统默以为空字符，这时，用户在程序运转中输入的可显示文本将直接显示在文本框中。程序运转中输入的可显示文本将直接显示在文本框中。 ReadOnly ReadOnly只读属性：只读属性：用于设定程序运转是能否对文本框中的文本进展编辑。这用于设定程序运转是能否对文本框中的文本进展编辑。这是一个逻辑型的属性，默许值为是一个逻辑型的属性，默许值为FalseFalse，表示运转程序时，表示运转程序时可以编辑其中的文本；中选择可以编辑其中的文本；中选择Tru
63、eTrue时，表示运转程序时不时，表示运转程序时不能编辑其中的文本。能编辑其中的文本。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 TabStop TabStop属性：属性：用于设定运转时用户能否用用于设定运转时用户能否用TabTab键跳入该文本框。中选择键跳入该文本框。中选择TrueTrue时，时，表示可以跳入；中选择表示可以跳入；中选择FalseFalse时表示不能跳入，假设这时要进入这时表示不能跳入，假设这时要进入这一编辑框，可用鼠标单击这一编辑框。一编辑框，可用鼠标单击这一编辑框。 Locked Locked属
64、性：属性：指定文本控件能否可被编辑。默许值为指定文本控件能否可被编辑。默许值为FalseFalse，表示可编辑，当设，表示可编辑，当设置为置为TrueTrue时，文本控件相当于标签的作用。时，文本控件相当于标签的作用。 SelStart SelStart、SelLengthSelLength和和SelTextSelText属性：属性：在程序运转中，对文本内容进展选择操作时，这三个属性用来表示在程序运转中，对文本内容进展选择操作时，这三个属性用来表示用户选定的正文：用户选定的正文： SelStart SelStart 选定的正文的开场位置，第一个字符的位置选定的正文的开场位置，第一个字符的位置是
65、是0 0 SelLength SelLength 选定的正文长度。选定的正文长度。 SelText SelText 选定的正文内容。选定的正文内容。 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2 2文本框的方法文本框的方法 文本框最有用的方法是文本框最有用的方法是SetFocusSetFocus，该方法是把光标移到指定的文，该方法是把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需求的文本框上。它的格式是：于所需求的文本框上。它
66、的格式是： 对象对象SetFocusSetFocus激活文本框的方法有：激活文本框的方法有： 按按TabTab键或用鼠标单击文本框键或用鼠标单击文本框 SetFocus SetFocus方法：把光标移到指定的文本框中。方法：把光标移到指定的文本框中。3 3文本框的事件文本框的事件 Change Change事件：事件： 当用户输入新内容或当程序将当用户输入新内容或当程序将TextText属性设置为新值，从而改动文属性设置为新值，从而改动文本框的本框的TextText属性时会引发该事件。当用户键入一个字符时，就会引属性时会引发该事件。当用户键入一个字符时，就会引发一次发一次ChangeChang
67、e事件。例如用户键入事件。例如用户键入Visual BasicVisual Basic一词时，会引发一词时，会引发1212次次ChangeChange事件。事件。 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 KeyPress KeyPress事件事件 当用户按下并且释放键盘上的一个键时，就会引发焦点所在控件当用户按下并且释放键盘上的一个键时，就会引发焦点所在控件的的 KeyPress KeyPress事件，此事件会前往一个事件，此事件会前往一个KeyASCIIKeyASCII参数到该事件过程参数到该事件过程中。中。例
68、如，当用户键入字符例如，当用户键入字符“a“a时，前往时，前往KeyASCIIKeyASCII的值为的值为9797，经过，经过ChrChrKeyAscIIKeyAscII可以将可以将ASCIIASCII码转换为字符码转换为字符“a“a。 GotFocus GotFocus事件：事件： 当光标转到文本框中时发生，最常用的处置是对文本内容的选定。当光标转到文本框中时发生，最常用的处置是对文本内容的选定。通常情况下，能引发通常情况下，能引发GotFocusGotFocus事件的情况是：事件的情况是： l l用户按用户按TabTab键，跳转到该文本框中；键，跳转到该文本框中； 2 2用户用鼠标单击文本
69、框；用户用鼠标单击文本框； 3 3用户在程序代码中用用户在程序代码中用 SetFocus SetFocus方法激活了该文本框。方法激活了该文本框。 GotFocus GotFocus事件过程的根本语法是：事件过程的根本语法是： Sub Text_GotFocus Sub Text_GotFocusIndex As IntegerIndex As Integer 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 LostFocus LostFocus事件：事件：当光标分开文本框中时发生，主要用来对数据更新进展验证和确认。当光
70、标分开文本框中时发生，主要用来对数据更新进展验证和确认。能够引发能够引发LostFocusLostFocus事件的情况是：事件的情况是： 用户按用户按TabTab键，跳出该编辑框；键，跳出该编辑框； 用户用鼠标单击其他控件；用户用鼠标单击其他控件； 用户在程序代码中用用户在程序代码中用SetFocusSetFocus方法激活了其他控件。方法激活了其他控件。 LostFocus LostFocus事件过程的根本语法是：事件过程的根本语法是： Sub Text_LostFocus Sub Text_LostFocusIndex As IntegerIndex As Integer4 4文本框的运用
71、文本框的运用 例例lx4-5lx4-5点此进入点此进入 例例lx4-4-2lx4-4-2此进入此进入 例例lx4-3lx4-3点击此处进入点击此处进入 例例lx4-7lx4-7点此进入点此进入( (先输正确的，再输错误的先输正确的，再输错误的) )计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计1 1单项选择按钮和复选框的区别单项选择按钮和复选框的区别 单项选择按钮单项选择按钮OptionButtonOptionButton的左边有一个的左边有一个 。单项选择按钮。单项选择按钮必需成组出现，用户在一组单项选择按钮中必需并且
72、最多只能选择一必需成组出现，用户在一组单项选择按钮中必需并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点项。当某一项被选定后，其左边的圆圈中出现一个黑点 。单项选择按。单项选择按钮主要用于在多种功能中由用户选择一种的情况。钮主要用于在多种功能中由用户选择一种的情况。 复选框复选框CheckBoxCheckBox又称检查框的左边有一个又称检查框的左边有一个，复选框列出可，复选框列出可供用户选择的选项，用户根据需求选定其中的一项或多项。当某一项供用户选择的选项，用户根据需求选定其中的一项或多项。当某一项被选中后，其左边的方框就变成被选中后，其左边的方框就变成 。复选框主要用于对某
73、种或几种形状。复选框主要用于对某种或几种形状进展开关选择。进展开关选择。4单项选择按单项选择按钮钮复选按钮计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2 2单项选择钮和检查框的属性单项选择钮和检查框的属性 Caption Caption 属性属性: :设置单项选择按钮或检查框的文本注释内容，即单项选择设置单项选择按钮或检查框的文本注释内容，即单项选择按钮或检查框边上的文本标题。按钮或检查框边上的文本标题。 Alignment Alignment属性属性: :用于设定单项选择按钮或检查框标题的位置。用于设定单项选择按钮或
74、检查框标题的位置。 0 0 表示控件按钮在左，标题在右。表示控件按钮在左，标题在右。 1 1 表示控件按钮在右，标题在左。表示控件按钮在右，标题在左。 Value Value属性：属性： 用于设定或检查单项选择按钮或检查框能否为选定形状。用于设定或检查单项选择按钮或检查框能否为选定形状。 对于单项选择按钮，当为对于单项选择按钮，当为TrueTrue时表示单项选择按钮被选定，时表示单项选择按钮被选定，当为当为FalseFalse时表示未被选定，系统默许值为时表示未被选定，系统默许值为FalseFalse。 对于检查框，它有三个值供选择运用对于检查框，它有三个值供选择运用: : 计算机软件技术基础
75、计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 0 Unchecked 0 Unchecked：表示检查框未被选定，此为系统默许值；：表示检查框未被选定，此为系统默许值； l Checked l Checked：表示检查框被选定；：表示检查框被选定； 2 Grayed 2 Grayed：表示检查框不可运用，即制止用户选择，此时：表示检查框不可运用，即制止用户选择，此时检查框变成灰色。检查框变成灰色。 Style Style属性：属性： 指定单项选择钮或检查框的显示方式，用于改善单项选择钮或检查指定单项选择钮或检查框的显示方式，用于改善单项
76、选择钮或检查框的视觉效果。框的视觉效果。 0Standard 0Standard：规范方式。：规范方式。 1Graphical 1Graphical：图形方式。：图形方式。3 3单项选择钮和检查框的事件单项选择钮和检查框的事件单项选择按钮和复选框都能接纳单项选择按钮和复选框都能接纳ClickClick事件，但普通不需求编写事件，但普通不需求编写ClickClick事件过程。由于当用户单击单项选择按钮或复选框时，他们自事件过程。由于当用户单击单项选择按钮或复选框时，他们自动改动形状。动改动形状。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设
77、计程序设计程序设计4 4单项选择钮和检查框的方法单项选择钮和检查框的方法单项选择按钮和复选框的常用方法是单项选择按钮和复选框的常用方法是SetFocusSetFocus，其功能和文本框一样。其功能和文本框一样。 例例li4-7li4-7点此进入点此进入 由于单项选择按钮的特点是中选定其中的一个时，其他会自动封锁。所以，当需求在同一个窗体中建立几组相互独立的单项选择按钮时，就需求用框架Frame将每一组单项选择按钮框起来，这样在一个框架内的单项选择按钮为一组，对他们的操作不会影响框架外的单项选择按钮。 5 框架计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic
78、 程序设计程序设计程序设计程序设计1 1框架框架FrameFrame的属性的属性 Caption Caption 属性属性: : 用于设定框架的标题称号。假设为空字符，那么框架为封锁的用于设定框架的标题称号。假设为空字符，那么框架为封锁的矩形框，但与矩形框起来的控件不同的是框架的标题可以有快捷矩形框，但与矩形框起来的控件不同的是框架的标题可以有快捷字母。字母。 Enable Enable属性：用于设定框架能否为活动形状。属性：用于设定框架能否为活动形状。 Visible Visible属性：用于设定框架及其包含的控件能否可见。属性：用于设定框架及其包含的控件能否可见。 在窗体上创建框架的步骤：
79、 必需先建立框架，然后在其中建立各种控件。 先单击工具箱上的工具，然后在框架中适当位置迁延出适当大小的控件。 假设要用框架将现有控件分组，那么可先选定一切控件，将它们剪切CtrlX到剪贴板，然后选定框架并将剪贴板上的控件粘贴CtrlV到框架上。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2框架的事件框架的事件框框架架可可以以呼呼应应Click和和DblClick事事件件。但但是是，在在运运用程序中普通不需求编写有关框架的事件过程。用程序中普通不需求编写有关框架的事件过程。3框架的用法框架的用法要求：窗体中建立两组单项选
80、择按钮，分别放在称号为“字体和“大小的框架中。在文本框中可输入多行汉字。利用字号框和风格框内的控件可以改动文本框中文字的字号和风格。例li4-8点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 列表框列表框ListBoxListBox经过显示多个选择项，供用户选经过显示多个选择项，供用户选择其中的项，到达与用户对话的目的择其中的项，到达与用户对话的目的 。假设有较多的选项。假设有较多的选项而不能一次全部显示时，而不能一次全部显示时，VBVB会自动加上滚动条。会自动加上滚动条。 列表框最主要的特点是只能从其中选择
81、，而不能直接列表框最主要的特点是只能从其中选择，而不能直接写入或修正其中的内容。写入或修正其中的内容。 运用列表框输入数据是保证数据规范化的重要手段，运用列表框输入数据是保证数据规范化的重要手段，它是一个重要的输入控件。它是一个重要的输入控件。6列表框列表框计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计1. 1. 列表框的属性列表框的属性 ListIndex ListIndex属性属性: :表示执行时选中的列表项序号，从表示执行时选中的列表项序号，从0 0开开场，假设未选中任何项，场，假设未选中任何项，ListIndex
82、ListIndex的值为的值为-1-1。 ListCount ListCount属性属性: :表示列表框中工程的数量。表示列表框中工程的数量。ListCount-1ListCount-1表示最后一项的序号。该属性只能在程序中设表示最后一项的序号。该属性只能在程序中设置或援用。置或援用。 List List属性属性: :该属性是一个字符型数该属性是一个字符型数组，存放列表框的选项，组，存放列表框的选项，listlist数组的数组的下标是从下标是从0 0开场的。例如：开场的。例如：list(0) list(0) 的值是的值是“马明。该属性在设计形状马明。该属性在设计形状和程序中都可以设置。和程序中
83、都可以设置。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 Selected Selected属性属性: :用于判别列表项能否被选中，是一用于判别列表项能否被选中，是一个逻辑数组。如：个逻辑数组。如：List.Selected(0)=TrueList.Selected(0)=True表示第一表示第一项被选中。该属性只能在程序中设置或援用。项被选中。该属性只能在程序中设置或援用。 Text Text属性属性: :表示被选中列表项的文本内容。该属性表示被选中列表项的文本内容。该属性是默许属性，只能在程序中设置或援用。是默许属
84、性，只能在程序中设置或援用。在上表中，假设选定在上表中，假设选定 “ “吴海燕，那么吴海燕，那么texttext属性值属性值为为“吴海燕吴海燕 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 MultiSelect MultiSelect属性属性: :用于设定列表框内能否允许同用于设定列表框内能否允许同时选择多个列表项。有时选择多个列表项。有3 3种方式：种方式：0 None:0 None:制止多项选择制止多项选择1 Simple:1 Simple:简单多项选择。鼠标单击或按空简单多项选择。鼠标单击或按空格键表示选定格键
85、表示选定/ /取消一个曾经选定的选择项。取消一个曾经选定的选择项。 3 Extended: 3 Extended:扩展多项选择。按住扩展多项选择。按住CtrlCtrl键，键，同时用鼠标单击或按空格键表示选定同时用鼠标单击或按空格键表示选定/ /取消一个曾经取消一个曾经选定的选择项；按住选定的选择项；按住ShiftShift键，同时单击鼠标或挪动键，同时单击鼠标或挪动光标键，就可以从前一个选定的项扩展到当前选择光标键，就可以从前一个选定的项扩展到当前选择项，即选定多个延续项。项，即选定多个延续项。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序
86、设计程序设计程序设计2. 2. 列表框的方法列表框的方法 列表框中的选择项可以简单地在设计形状经过列表框中的选择项可以简单地在设计形状经过ListList属性设置，也可以在程序中用属性设置，也可以在程序中用 AddItem AddItem方法来方法来填写，用填写，用 RemoveItem RemoveItem或或 Clear Clear方法删除。方法删除。 AddItem AddItem方法方法: :把一个选项参与列表框。把一个选项参与列表框。 格式：对象格式：对象.AddItem item , Index.AddItem item , Index其中：其中： item item是将要参与列表
87、框的选项。必需是字是将要参与列表框的选项。必需是字符串表达式。符串表达式。 Index Index决议新增工程在列表框或组合框中的决议新增工程在列表框或组合框中的位置。假设位置。假设indexindex省略，那么添加的列表项将放在省略，那么添加的列表项将放在最后。最后。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 RemoveItem RemoveItem方法方法: :用于删除列表框中的列表项。用于删除列表框中的列表项。 格式：对象格式：对象.RemoveItem Index.RemoveItem Index其中其中I
88、ndexIndex是被删除工程在列表框中的位置。是被删除工程在列表框中的位置。 Clear Clear方法方法: :用于去除列表项中的一切内容。用于去除列表项中的一切内容。 格式：对象格式：对象.Clear.Clear3. 3. 列表框的事件列表框的事件 列表框常用的事件就是列表框常用的事件就是ClickClick、DblClickDblClick、GotFocusGotFocus、LostFocusLostFocus等大多数控件通用的事件等大多数控件通用的事件 4. 4. 列表框的运用列表框的运用列表框控件显示一个工程列表，让用户从其中选择一项列表框控件显示一个工程列表，让用户从其中选择一项
89、或多项。假设工程总数超越可显示的工程数，就自动添或多项。假设工程总数超越可显示的工程数，就自动添加滚动条。它是进展快速和规范输入的好工具。加滚动条。它是进展快速和规范输入的好工具。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计不讲举例不讲举例: :利用列表框显示学生的籍贯，并可以利用列表框显示学生的籍贯，并可以添加列表项。创建以下图所示窗口，选择列表框中学添加列表项。创建以下图所示窗口，选择列表框中学生姓名，在籍贯处显示该学生的籍贯；单击生姓名，在籍贯处显示该学生的籍贯；单击“添加添加按钮，出现输入学生姓名文本框，并且按
90、钮的文字变按钮，出现输入学生姓名文本框，并且按钮的文字变为为“确定，此时输入姓名，在显示籍贯处输入籍贯，确定，此时输入姓名，在显示籍贯处输入籍贯，单击单击“确定按钮，将工程添加到列表框中。确定按钮，将工程添加到列表框中。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计对象属性名属性值窗体称号Form1CaptionForm1列表框称号LstList空标签1称号LblNameCaption学生姓名 标签2称号LblNativeCaption学生籍贯文本框1称号TxtNameText(空文本框2称号TxtNativeText(
91、空命令按钮称号CmdAddCaption确定计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计DimNativeArray()AsString定义籍贯数组为动态数组定义籍贯数组为动态数组对列表框初始化对列表框初始化PrivateSubForm_Load()ReDimNativeArray(0To8)Lst.AddItem“李亿李亿NativeArray(0)=天津天津Lst.AddItem“王晓波王晓波NativeArray(1)=武汉武汉Lst.AddItem“万明万明NativeArray(2)=上海上海Lst.AddI
92、tem“张君张君NativeArray(3)=“北京北京Lst.AddItem“马萧萧马萧萧NativeArray(4)=云南云南Lst.AddItem“季林季林NativeArray(5)=南京南京Lst.AddItem“陈奇陈奇NativeArray(6)=广州广州Lst.AddItem“朱小朱小NativeArray(7)=“大连大连Lst.AddItem“周和平周和平NativeArray(8)=“河北河北EndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 列表框列表框ClickClick事件，姓名标签及
93、文本框隐藏，籍贯处显示学生籍贯事件，姓名标签及文本框隐藏，籍贯处显示学生籍贯Private Sub Lst_Click()Private Sub Lst_Click() CmdAdd.Caption = CmdAdd.Caption = 添加添加 TxtName.Visible = False TxtName.Visible = False LblName.Visible = False LblName.Visible = False TxtNative.Text = NativeArray(Lst.ListIndex) TxtNative.Text = NativeArray(Lst.Lis
94、tIndex)End SubEnd Sub 单击添加按钮事件单击添加按钮事件Private Sub CmdAdd_Click() Private Sub CmdAdd_Click() 例例li4-9-1li4-9-1点击此处进入点击此处进入 CmdAdd.Caption = CmdAdd.Caption = 确定确定 TxtName.Visible = True TxtName.Visible = True LblName.Visible = True LblName.Visible = True Lst.AddItem TxtName Lst.AddItem TxtName 例例li4-10
95、li4-10点击此处进入点击此处进入 i = Lst.ListCount i = Lst.ListCount ReDim Preserve NativeArray(i) ReDim Preserve NativeArray(i) NativeArray(Lst.ListCount - 1) = TxtNative.Text NativeArray(Lst.ListCount - 1) = TxtNative.Text TxtName = TxtName = TxtNative = TxtNative = End SubEnd Sub计算机软件技术基础计算机软件技术基础Visual Basic
96、Visual Basic 程序设计程序设计程序设计程序设计 组合框(ComboBox)是一种同时具有文本框和列表框特性的控件，用户既可以在其列表框部分选择一个固定的字符串，也可以在其文本框部分输入一个新的字符串。 组合框有三种不同的风格：下拉式组合框、简单组合框和下拉式列表框 下拉式组合框:显示在屏幕上的仅是文本编辑框和一个下拉箭头。 简单组合框:将文本编辑框与列表框一同显示在屏幕上。 下拉是列表框:功能与下拉式组合框类似，区别是不能输入列表框中没有的项。 7 组合框计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计1.1.
97、组合框属性组合框属性 组组合合框框是是文文本本框框和和列列表表框框的的组组合合，拥拥有有列列表表框框和和文文本本框框的的大大部部分分属属性性。组组合合框框也也有有SelStartSelStart、SelLengthSelLength和和 SelTextSelText这这三三个文本框特有的属性。个文本框特有的属性。 组组合合框框的的特特有有属属性性是是StyleStyle属属性性。该该属属性性用用于于确确定定组组合合框框的类型和显示方式，共有三个值：的类型和显示方式，共有三个值： 0 0 下下拉拉式式组组合合框框，由由一一个个文文本本框框和和一一个个下下拉拉式式列列表表框框组组成成，用用户户既既
98、可可以以在在文文本本框框中中输输入入文文本本，也也可可以以从从列列表表框框中中选选择择列列表表项，这是系统默许值；项，这是系统默许值； l l 简简单单组组合合框框，也也由由一一个个文文本本框框和和一一个个规规范范列列表表框框组组成成，但但列列表表框框不不是是下下拉拉的的，它它一一直直显显示示在在屏屏幕幕上上，用用户户既既可可以以在在文文本框中输人文本，也可以从列表框中选择列表项；本框中输人文本，也可以从列表框中选择列表项； 2 2 下下拉拉式式列列表表框框，它它不不允允许许用用户户输输入入文文本本，只只能能从从下下拉拉列列表框中选择列表项。表框中选择列表项。计算机软件技术基础计算机软件技术基
99、础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 2. 2.组合框的方法组合框的方法 在组合框中也可以经过在程序中运用在组合框中也可以经过在程序中运用AddItemAddItem方法添方法添加选择项；用加选择项；用RemoveItemRemoveItem方法和方法和ClearClear方法删除选择项。其方法删除选择项。其操作方法与列表框一样。操作方法与列表框一样。 3. 3.组合框的事件组合框的事件 组合框的事件随组合框的事件随StyleStyle属性的值不同而有所不同：属性的值不同而有所不同： 当当Style=0,Style=0,下拉式列表框有下拉式列表
100、框有ClickClick事件和事件和ChangeChange事件；事件； 当当Style=1, Style=1, 简单组合框有简单组合框有DblClickDblClick事件和事件和ChangeChange事件；事件； 当当Style=2Style=2，下拉式列表框有，下拉式列表框有ClickClick事件。事件。 4. 4.组合框的运用组合框的运用 例例li4-11li4-11点击此处进入点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 滚动条(ScrollBar)分为程度滚动条(HScrollBar)和垂直
101、滚动条VScrollBar两种。1. 滚动条的属性 Max和Min属性:用于设定或表示当滑块处于滚动条最大和最小位置时所代表的值。 SmallChange最小变动值属性:用于设定当用户用鼠标单击滚动条两端箭头式，滑块挪动的增量值。 LargeChange最大变动值属性:用于设定当用户用鼠标单击滚动条滚动箭头和滑块间区域时，滑块挪动的增量值。 Value值属性:表示滚动条内滑块当前所处位置的值。8 8 滚动条滚动条计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计2. 2. 滚动条方法滚动条方法滚动条没有特有的方法。滚动条没有
102、特有的方法。3. 3. 滚动条事件滚动条事件 Scroll Scroll事件事件: :当在滚动条内拖动滑块时引发的事件。当在滚动条内拖动滑块时引发的事件。 语法：语法：Sub HScroll_Scroll( )Sub HScroll_Scroll( ) Sub VScroll_Scroll( ) Sub VScroll_Scroll( ) Change Change事件事件: : 当滚动条的位置发生变化时引发该事件。当滚动条的位置发生变化时引发该事件。 语法：语法： Sub HScroll_Change( ) Sub HScroll_Change( ) Sub Scroll_Change( )
103、 Sub Scroll_Change( )4. 4. 滚动条的运用滚动条的运用例例li4-12li4-12点击此处进入点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计9 9 计时器计时器(Timer)(Timer) 时钟Timer控件是一种定时触发事件的控件，它能有规律地以一定的时间间隔激发时钟事件Timer而执行相应的程序代码。1. 计时器控件的属性 Enable属性:设定时钟能否有效。它是一个逻辑值，其中： True： 使时钟控件有效，开场有效计时 False：停顿时钟控件任务 Interval属性:用于设
104、定时钟触发事件的间隔，单位为毫秒，取值范围为065535。 Interval的值为0，那么计时器无效 Interval的值受硬件才干限制，最小间隔为56毫秒2.计时器控件的事件 计时器只支持Timer事件。根本语法方式为： 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 Sub Timer_Timer(Index As Integer)其中：Index是一个整数值。假设当前时钟控件是一个控件数组，那么Index表示该时钟控件在数组中的下标，否那么就不需求这一参数。3.计时器控件的运用 时钟控件是一个非常有用的控件，它的功
105、能就和它的名字一样，主要用于在程序中监视和控制时间进程。 我们普通都是在设计阶段设置它的Interval属性，然后当某一事件发生如一个按钮被按下等时设置时钟控件的Enabled为True，这时，时钟控件开场计时，当到达Interval属性的值时，就会触发Timer事件中编制的处置程序。 例li4-13点击此处进入 例li4-14点击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 驱动器列表框是一种下拉式列表框，平常只显示当前驱动器称号，单击其右边的向下箭头，就会下拉出该计算机所拥有的一切磁盘驱动器，供用户选择。
106、驱动器列表框有一个Drive属性，在运转时前往或设置所选定的驱动器。Drive属性不能在设计形状时设置，只能在程序中被援用或设置。其方式如下： 对象Drive =drive其中： 对象 驱动器列表框称号。 drive 驱动器称号。 留意：每次重新设置Drive属性都会引发Change事件。10 10 驱动器列表框驱动器列表框DriveListBox)DriveListBox)计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计11 11 目录列表框目录列表框DirListBox)DirListBox) 目录列表框显示当前驱动器
107、的目录构造及当前目录下的一切子目录，供用户选择其中的某个目录作为当前目录。在目录列表框中，假设用鼠标双击某个目录，就会显示出该目录下的一切子目录。 目录列表框只能显示出当前驱动器下的子目录。假设要显示其他驱动器下的目录构造，那么必需重新设置目录列表框上的Path属性。 Path属性用来前往或设置当出途径，不能在设计形状时设置。它适用于目录列表框和文件列表框，其方式如下：对象Path =Pathname其中：对象 指目录列表框或文件列表框称号 pathname 一个途径名字符串。留意：每次重新设置Path属性都会引发Change事件。计算机软件技术基础计算机软件技术基础Visual Basic
108、Visual Basic 程序设计程序设计程序设计程序设计12 12 文件列表框文件列表框FileListBox)FileListBox) 文文件件列列表表框框显显示示当当前前驱驱动动器器中中当当前前目目录录下下的的文文件件目目录录清清单单。文文件件列列表表框框也也有有PathPath属属性性，表表示示文文件件列列表表框框中中显显示示的的文文件件所所在在的途径。每次重新设置的途径。每次重新设置PathPath属性都会引发属性都会引发“PathChange“PathChange事件。事件。 文文件件列列表表框框的的PatternPattern属属性性前前往往或或设设置置文文件件列列表表框框所所显
109、显示示的的文文件件类类型型。该该属属性性值值为为具具有有通通配配符符的的文文件件名名字字符符串串，既既可可以以在在设设计计时时设设置置，也也可可以以在在程程序序中中改改动动。缺缺省省值值为为“*.*“*.*，显显示示一一切文件。其方式如下：切文件。其方式如下： 对象对象PatternPattern=value=value其中：其中： 对象对象 指文件列表框称号。指文件列表框称号。 value value 一个文件名字符串。一个文件名字符串。留留意意：每每次次重重新新设设置置PatternPattern属属性性都都会会引引发发“PatternChange“PatternChange事件。事件。计
110、算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计 在窗体中参与驱动器、目录和文件列表在窗体中参与驱动器、目录和文件列表框控件，使三者同步显示。另外，参与一个文本框控件，使三者同步显示。另外，参与一个文本框，经过在文本框中输入文件类型，使文件列表框，经过在文本框中输入文件类型，使文件列表框中显示指定类型的文件框中显示指定类型的文件 。 例例li4-15li4-15点击此处进入点击此处进入驱动器、目录和文件列表框控件的例子驱动器、目录和文件列表框控件的例子计算机软件技术基础计算机软件技术基础Visual Basic Visual
111、 Basic 程序设计程序设计程序设计程序设计一、ActiveX控件 所谓ActiveX控件就是一段可以反复运用的编程代码和数据，是由ActiveX技术创建的一个或多个对象所组成的，ActiveX控件文件的扩展名为OCX,通常放在Windows的System目录下。二、向工具箱中添加ActiveX控件 1、方法一：“工程菜单“部件 “控件 方法二：在“工具箱中击右键，选择“部件 2、找到所需的控件或对象，单击左边的复选框选定。三、举例4.2 4.2 运用运用ActiveXActiveX控件和控件和可插入对象可插入对象计算机软件技术基础计算机软件技术基础Visual Basic Visual B
112、asic 程序设计程序设计程序设计程序设计 在窗体上建立进度条、标签、命令按钮和时钟控在窗体上建立进度条、标签、命令按钮和时钟控件，单击件，单击“开场按钮，进度条开场逐渐前行，开场按钮，进度条开场逐渐前行，在窗体上显示在窗体上显示“进度条开场运转，请稍候！进度条开场运转，请稍候！ 信信息；进度条填满后，窗体显示息；进度条填满后，窗体显示 “ “进度条运转终了进度条运转终了信息。信息。添加进度条：添加进度条：“工程菜单工程菜单“部件部件 “ “控件控件 “Microsoft Windows Common Controls “Microsoft Windows Common Controls 6.
113、06.0 计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计对象对象属性名属性名属性值属性值窗体窗体称号称号FrmExpCaptionActiveX举例举例进度条进度条称号称号PrgBar标签标签称号称号LblDispCaption空空命令按钮命令按钮称号称号CmdStartCaption开场开场计时器计时器称号称号TmrClockInterval100事件过程代码：事件过程代码：DimiAsIntegerPrivateSubForm_load()LblDisp.Visible=FalseTmrClock.Enabled=F
114、alsePrgBar.Value=0EndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计Private Sub CmdStart_Click()Private Sub CmdStart_Click()LblDisp.Visible = TrueLblDisp.Visible = TrueLblDisp.Caption = LblDisp.Caption = 进度条开场运转，请稍候！进度条开场运转，请稍候！ TmrClock.Enabled = TrueTmrClock.Enabled = TrueEnd SubEn
115、d SubPrivate Sub TmrClock_Timer()Private Sub TmrClock_Timer() If i 100 Then If i 100 Then i = i + 1 i = i + 1 PrgBar.Value = I PrgBar.Value = I 例例li4-19li4-19单击此处进入单击此处进入 Else Else i = 0 i = 0 TmrClock.Enabled = False TmrClock.Enabled = False LblDisp.Caption = LblDisp.Caption = 进度条运转终了进度条运转终了 End If
116、 End IfEnd SubEnd Sub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计4.4控件运用举例例例：在在窗窗体体中中分分别别参参与与组组合合框框、程程度度滚滚动动条条和和文文本本框框，利利用用组组合合框框设设置置文文本本框框中中的的字字体体；利利用用程程度度滚滚动动条条设设置置文文本本框框中中的的字字号号。其其中中设设置置字字体体的的组组合合框框为为下下拉拉式式列列表表框框Style属属性性为为2，不不能能输输入入；当当用用鼠鼠标标单单击击程程度度滚滚动动条条时时，在在当当前前字字号号值值文文本本框框中中显显
117、示示滚滚动动条条滑滑块块当当前前的的值值并并由由该该值值设设置置文本框中的字号。文本框中的字号。例例li4-17单击此处进入单击此处进入计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计4.4控件运用举例(不讲例例1 1：此例将引见列表框和组合框添加、删除控：此例将引见列表框和组合框添加、删除控件等事件，以及标签和命令按钮的运用。件等事件，以及标签和命令按钮的运用。创建窗体及控件创建窗体及控件窗体及控件界面如下图：窗体及控件界面如下图：计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程
118、序设计程序设计程序设计程序设计窗体及控件界面计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计各控件属性各控件属性Label1:Caption=“请输入职工姓名Label2:Caption=“请输入干部姓名Label3:Caption=“职工人数Label4:Caption=“干部人数Text1:text=“Text2:text=“计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计Text3:text=“Text4:text=“List1:text=“Co
119、mbo1:text=“Command1:Caption=“添加职工Command2:Caption=“删除职工Command3:Caption=“添加干部Command4:Caption=“删除干部计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计设置属性后的窗体界面计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计PrivateSubCommand1_Click()IfText1.TextThenList1.AddItemText1.TextText3.
120、Text=Val(List1.ListCount)Text1.Text=EndIfEndSub程序代码程序代码计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计PrivateSubCommand2_Click()IfList.ListCout0ThenList1.RemoveItemListCountText3.Text=Val(List1.ListCount)EndIfEndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计PrivateSubCo
121、mmand3_Click()IfText2.TextThenCombo1.AddItemText2.TextText4.Text=Val(Combo1.ListCount)Text2.Text=EndIfEndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计PrivateSubCommand4_Click()IfCombo1.ListCount0ThenCombo1.RemoveItemListCoutText4.Text=Val(Combo1.ListCount)EndIfEndSub计算机软件技术基础计算机软件技
122、术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计运转创建的运用程序运转创建的运用程序计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计运转该程序，在“请输入职工姓名文本框中输入职工姓名，并单击“添加职工按钮，那么输入的姓名就添加到了列表框；单击“删除职工按钮，那么列表框中末位职工姓名被删除。“请输入干部姓名也类似以上操作。“职工人数、“干部人数分别指出了当前列表框和组合框的人数。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程
123、序设计程序设计 例例2 2、 设设计计一一个个显显示示时时间间和和日日期期的的小小程程序序。在在窗窗体体上上放放置置三三个个标标签签、一一个个文文本本框框、一一个个复复选选框框、两两个个框框架架并并分分别别在在其其中中放放置置一一个个组组合合框框和和两两个个单单项项选选择择按按钮钮、两两个个命命令令按按钮钮和一个计时器和一个计时器 。计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计初始窗体中各控件属性设置值对象属性设置值FormNameFrmTimeDispCaption计时秒表Label1BackColor&H00FF0
124、000&ForeColor&H0000FFFF&Label2Caption延续时间Label3Caption秒Text1NameTxtTimeText10CheckBox1NameChkDateCaption显示日期Frame1NameFraDateTypeCaption日期格式(&D)Frame2Caption时间格式(&T)计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计Timer1Interval1000ComboBox1NameCboDateTypeList年/月/日、月/日/年、日/月/年Style2Option
125、1NameOptTimeTypeCaption24小时制Index0Option2NameOptTimeTypeCaption12小时制Index1Command1NameCmdStartCaption开场计时DefaultTrueCommand2NameCmdEndCaption退出计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计各控件事件处置程序代码：在窗体的通用声明中写入变量和数组的定义 DimDateType(3)AsStringDimTimeType(2)AsStringDimSecondsAsInteger中选
126、中显示日期复选框时，时间格式框架才成为可见PrivateSubChkDate_Click()fraDateType.Visible=chkDate.Value=1EndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计在窗体的“Form_Load事件中初始化各变量、数组及窗体的显示形状PrivateSubForm_Load()chkDate.Value=1cboDateType.ListIndex=0optTimeType(0).Value=TrueDateType$(0)=yy年mm月dd日DateType$(1)=
127、mm月dd日yy年DateType$(2)=dd日mm月yy年TimeType$(0)=TimeType$(1)=ampm“EndSub计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计cmdStart事件处置程序PrivateSubcmdStart_Click()Seconds%=txtTime.TextCmdStart.Enabled=FalseTimer1.Enabled=TrueEndSubcmdEnd事件处置程序PrivateSubcmdEnd_Click()UnloadMeEndSub计算机软件技术基础计算机软件
128、技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计计时器控件事件处置程序PrivateSubTimerl_Timer()Dimi,jAsIntegerDimdateStr$Seconds=Seconds-li=cboDateType.ListIndexIfoptTimeType(0).Value=TrueThenj=0Elsej=1EndIfIfchkDate.Value=0ThenDateStr$=Else计算机软件技术基础计算机软件技术基础Visual Basic Visual Basic 程序设计程序设计程序设计程序设计DateStr$=DateType$(i)EndIfLabel1.Caption=Format(Now,dateStr$+hh:mm:ss+TimeType$(j)IfSeconds=0ThenTimer1.Enabled=FalseCmdStart.Enabled=TrueLabel1.Caption=EndIfEndSub
