第2章 VB程序设计-对象

第2章对象2.1对象及其属性设置2.2窗体2.3控件2.4控件的画法和基本操作编程思想主要分为两类：面向过程和面向对象。（1）面向过程

是一种以过程为中心的编程思想，也可称之为“面向记录”编程思想，它不支持丰富的“面向对象”特性（比如继承、多态），并且它不允许混合持久化状态和域逻辑。就是分析出解决问题所需要的步骤，然后用函数把这些步骤一步一步实现，使用的时候一个一个依次调用就可以了。编程思想编程思想主要分为两类：面向过程和面向对象。（2）面向对象

是一种以事物为中心的编程思想，具有封装、继承和多态的特性。就是把构成问题的事务分解成若干个对象，建立对象的目的不是为了完成一个步骤，而是为了描述某个事物在整个解决问题步骤中的行为。编程思想编程思想主要分为两类：面向过程和面向对象。（1）公共汽车“面向过程”就是汽车启动是一个事件，汽车到站是另一个事件。在编程序的时候我们关心的是某一个事件，而不是汽车本身。我们分别对启动和到站编写程序。类似的还有修理等等。编程思想实例publicclass运营

{

void

汽车启动

{

}

void

汽车到站

{

}

}编程思想实例面向过程编程：“面向对象”需要建立一个汽车的实体，由实体引发事件。我们关心的是由汽车抽象成的对象，这个对象有自己的属性，像轮胎，颜色等；有自己的方法，象启动，行驶等。方法也就是汽车的行为，而不是汽车的每个事件。编程思想实例publicclass汽车

{

void

到站()

{

}

void

启动()

{

}

}

编程思想实例面向对象编程：编程思想主要分为两类：面向过程和面向对象。（2）五子棋“面向过程”的设计思路就是首先分析问题的步骤：1、开始游戏，2、黑子先走，3、绘制画面，4、判断输赢，5、轮到白子，6、绘制画面，7、判断输赢，8、返回步骤2，9、输出最后结果。

把上面每个步骤用分别的函数来实现，问题就解决了。

编程思想实例“面向对象”的设计则是从另外的思路来解决问题。整个五子棋可以分为：1、黑白双方，这两方的行为是一模一样的，2、棋盘系统，负责绘制画面，3、规则系统，负责判定诸如犯规、输赢等。第一类对象（玩家对象）负责接受用户输入，并告知第二类对象（棋盘对象）棋子布局的变化，棋盘对象接收到了棋子的变化就要负责在屏幕上面显示出这种变化，同时利用第三类对象（规则系统）来对棋局进行判定。编程思想实例★面向对象是以功能来划分问题，而不是步骤。

同样是绘制棋局，这样的行为在面向过程的设计中分散在了许多步骤中，很可能出现不同的绘制版本，因为通常设计人员会考虑到实际情况进行各种各样的简化。而面向对象的设计中，绘图只可能在棋盘对象中出现，从而保证了绘图的统一。

★功能上的统一保证了面向对象设计的可扩展性。可以明显看出，悔棋

五子棋围棋2.1对象及其属性设置一、什么是对象？（1）对象是系统中基本的运行实体。将数据和处理该数据的过程（函数和子程序）打包在一起而生成的新的数据类型称之为对象。（2）VisualBasic是一种面向对象(ObjectOriented)的语言。

在VisualBasic中，所有的窗体和控件都是对象。

对象是一个功能和数据独立的单元，有其自身的属性、方法和可为别人所做的工作，互相之间只能通过对象认可的途径进行通讯来完成任务，相互之间没有预料不到的影响，也可以较为自由地为各个不同的软件所使用。这种代码共享避免了重复的代码设计，提高了软件开发的效率。面向对象的设计方法把系统中的所有资源，如数据、模块以及系统都看成对象，每个对象把一组数据类型和一组过程封装在一起，使得这组过程了解对这一数据类型的处理，并在定义对象时可以规定外界在其运行上的权限。使用这一方法，设计人员可以依照自己的意图创建自己的对象，并将问题映射到该对象上。

1、预定义对象：由系统设计的，可直接使用或操作；2、自定义对象：用户根据自己的需要自己设计建立的对象。窗体和控件是VB最基本的对象。除此之外还有：打印机、调试、剪贴板、屏幕等对象。二、对象的分类三、如何使用对象？对象是具有特殊属性和行为方式的实体。通常通过设置对象的属性、方法和事件来操作对象。什么是属性：属性是对象的一个特性或者该对象操作的一个方面。例如，文本框的属性包括Backcolor、Forecolor、Enabled、Height、Width、Left、Top、Name等属性。要更改一个对象的属性，可以修改属性的值。什么是事件（Event）：所谓事件是由VisualBasic预先设置好的、能被对象识别的动作。是用户与程序交互的纽带。什么是方法（Method）：

VisualBasic的对象也有动作和行为，也就是说它们“知道”该怎么做。这些动作就叫做对象的方法。方法就象是动词。例如，窗体的显示或隐藏就是方法（Demo）。VisualBasic中的窗体和控件都有其各自的属性。不过，有一些属性适用于大多数对象：Name

设置控件名称，作为访问控件的属性和方法的依据。Appearance

设置控件的外观。BackColor

设置显示文字或绘制图形时的背景颜色。ForeColor

设置前景颜色。Font

设置控件文本所用字体的种类、字号和属性。四、常见的属性Caption

设置不接受输入的控件上显示的文本，如标签的文本。

Text

设置接受输入的控件上显示的文本，如文本框的文本。

Width、Height

设置控件的尺寸。

Left、Top

设置控件的左上角坐标。

Enabled

设置控件是否激活。缺省情况下为True；设置为False时控件不可用，颜色变为灰色。

Visible

设置控件是否可见，缺省时为可见。五、常见的方法窗体常用的方法

Print方法

Cls（清除）方法

窗体名.Cls

Move方法

窗体名.MoveLeft[,Top[,Width[,Height]]]

其中，left、top、width、height都是单精度型数据，分别用来表示窗体对于Screen的边缘位置和窗体大小。Show方法

用于在屏幕上显示一个窗体

Hide方法

用于窗体的隐藏

窗体名.Hide

六、常见事件Click事件

程序运行时，单击窗体的某个位置，VisualBasic将调用窗体的Form_Click事件。如果是在窗体内的控件上单击的，那么只能调用控件上的Click事件。

DblClick事件

在窗体的某个位置双击，VisualBasic会调用Form_DblClick事件，而且第一次按下鼠标的时候会先调用Click事件。

Load事件

程序运行的时候，窗体被载入内存将触发Load事件。该事件一般用来对属性和变量的初始化。

UnLoad事件

卸载窗体时候触发的事件。

Resize事件

2.2窗体一、什么是窗体（Form）窗体是VB中的对象，具有自己的属性、方法和事件。程序设计阶段称为窗体（Form），程序运行阶段称为窗口（Window）。窗口包括：系统菜单（单击左上角图标）、最大化、最小化及关闭按钮。画布（Canvas）工作台（Workbench）是应用程序与外界交互的界面每个窗体对应一个窗口。Demo窗体对象是VisualBasic应用程序的基本构造模块，是运行应用程序时，与用户交互操作的实际窗口。窗体和控件有自己的属性、事件和方法，可以控制窗体的外观和行为。Demo(2_1)

属性：指对象（窗体，控件）的大小、颜色、方位等一系列外观或内部构造的特征。

方法：指对象（窗体，控件）所进行的操作。

事件：指对象（窗体，控件）对外部条件的响应。

设计窗体的第一步是设置它的属性。这可以在设计时在“属性”窗口中完成，或者运行时由代码来实现。注意（Attention）

设计时，即在VisualBasic环境中创建应用程序的任何时刻。此时，可以操作窗体和控件，设置它们的属性，对它们的事件进行编程。

运行时是实际运行应用程序，并与应用程序进行交互的时间。窗体的许多属性会影响窗体的外观。Caption属性决定窗体标题栏中显示的文本。Icon属性设置在窗体最小化时显示的图标。MaxButton和MinButton属性决定窗体是否能最大化或最小化。BorderStyle属性，可以控制窗体如何调整大小。二、设置窗体属性Height

和Width

属性决定窗体的初始大小；Left

和Top

属性根据屏幕的左上角确定窗体的位置。WindowState

属性可以把窗体设成在启动时最大化、最小化或正常大小。Name

属性设置窗体的名称，在代码中用这个名称引用该窗体。首次在工程中添加窗体时，该窗体的名称被缺省为Form1；添加第二个窗体，其名称被缺省为Form2，依次类推。最好给Name属性设置一个有实际意义的名称，如给一个条目窗体命名为“frmEntry”（匈牙利命名规则）。对象前缀确认框（CheckBox）chk组合框（ComboBox）cbo命令钮（CommandButton）cmd数据库控件（DataControl）

dat目录列表框（DirectoryListBox）dir驱动器列表框（DriveListBox）drv文件列表框（FileListBox）

fil窗体（Form）

frm框架（Frame）fra水平滚动HorizontalScrollBarhsb对象前缀图形（Image）img标签（Label）lbl线（Line）

lin列表框（ListBox）

lst菜单（Menu）mnu单选按钮（OptionButton）

opt图形框（PictureBox）

pic几何图形（Shape）

shp文本框（TextBox）

txt垂直滚动条VerticalScrollBarvsb控件命名推荐方法控件的name可命名为：对象前缀＋自定义名,如：cmdExit三、窗体的属性窗体的属性决定了窗体的外观（Appearance）和操作（Operation）。属性设置方法：1、通过属性窗口设置；2、事件执行过程中通过代码设置。设计阶段所设置的属性称为“只读属性”AutoRedraw属性返回或设置从图形方法到持久图形的输出。语法object.AutoRedraw[=Boolean]部分描述Object对象表达式，其值是“应用于”列表中的一个对象。Boolean布尔表达式，指定如何重绘对象。AutoRedraw属性语法包含下面部分：（缺省值）使对象的自动重绘无效，且将图形或文本只写到屏幕上。当需要重画该对象时，VisualBasic会激活对象绘制事件。False设置值Boolean的设置值如下：Form对象或PictureBox控件的自动重绘有效。图形和文本输出到屏幕，并存储在内存的图象中。该对象不接受绘制事件，必要时，用存储在内存中的图象进行重绘。TrueRefresh示例（Example）该窗体有一个名叫Picture1的PictureBox控件。改变红体字，调整窗体大小时，观察图形变化。Demo(2_2)PrivateSubForm_Load()Picture1.ScaleHeight=100'设置比例为100.Picture1.ScaleWidth=100Picture1.ForeColor=0'设置ForeColor.Picture1.FillColor=QBColor(9)'设置FillColor.Picture1.FillStyle=0'设置FillStyle.Picture1.Circle(50,50),30'画一个圆.EndSubPrivateSubPicture1_Click()DimI'Declarevariable.

'Picture1.AutoRedraw=TruePicture1.ForeColor=RGB(Rnd*255,0,0)'选择随机颜色.ForI=5To95Step10'画线.Picture1.Line(I,0)-(I,100)NextPicture1.Circle(50,50),30

'Picture1.AutoRedraw=False

EndSubBackColor、ForeColor属性BackColor－返回或设置对象的背景颜色。ForeColor－设置对象里显示图片和文本的前景颜色。语法

object.BackColor[=color]object.ForeColor[=color]部分描述Object对象表达式，其值是“应用于”列表中一个对象。Color值或常数，确定对象前景或背景的颜色。BackColor和ForeColor属性语法包含下面部分：设置值VisualBasic用MicrosoftWindows运行环境的红-绿-蓝（RGB）颜色方案。color的设置值如下：设置值描述使用调色板或在代码中使用RGB或QBColor函数指定的颜色。标准RGB颜色由对象浏览器中的VisualBasic(VB)对象库所列的系统颜色常数指定的颜色。Windows运行环境替换使用用户在控制面板设置值中的选择。对所有的窗体和控件，在设计时的缺省设置值如下：BackColor－设置为由常数

vbWindowBackground定义的系统缺省颜色。ForeColor－设置为由常数

vbWindowText定义的系统缺省颜色。系统缺省颜色标准RGB颜色的有效取值范围是0到16,777,215(&HFFFFFF)。该范围内数的高字节为0；较低的3个字节，从最低字节到最高字节依次决定红、绿和蓝的量。红、绿和蓝的成分，分别由一个介于0与255(&HFF)之间的数来表示。如果最高字节不为0，VisualBasic将使用系统颜色。可从属性窗口更改BackColor、ForColor属性示例这个例子每秒钟两次随机地重新设置窗体(Form)和PictureBox控件的前景颜色和背景颜色。要尝试这个例子，请将代码粘贴到包含PictureBox控件和Timer控件窗体的声明部分，然后按F5键。BackColor、ForColor属性示例PrivateSubForm_Load()Timer1.Interval=500EndSubPrivateSubTimer1_Timer()BackColor=QBColor(Rnd*15)Picture1.BackColor=QBColor(Rnd*15)Picture1.ForeColor=QBColor(Rnd*10)EndSub

Demo(2_3)BorderStyle属性返回或设置对象的边框样式。对Form对象和Textbox控件在运行时是只读的。语法Demo(2_4)object.BorderStyle=[value]BorderStyle属性语法有这些组成部分：部分描述Object对象表达式，其值是“应用于”列表中

的一个对象。Value值或常数，用于决定边框样式。设置值Form对象的BorderStyle属性设置值如下：常数设置值描述BSNone0无（没有边框或与边框相关的元素）。固定单边框。可以包含控制菜单框，标题栏，“最大化”按钮，和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。（缺省值）可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。固定对话框。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸。固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在Windows95的任务条中不显示。可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在Windows95的任务条中不显示。FixedSingle1Sizable2FixedDouble3FixedToolWindow4SizableToolWindow5Caption属性窗体对象－显示在Form或MDIForm对象标题栏中的文本。当窗体为最小化时，该文本被显示在窗体图标的下面。控件对象－确定显示在控件中还是附在控件之后的文本。MenuLine对象－确定为Menu控件还是为MenuItems集合中的对象显示的文本。可通过窗口设置，也可以通过程序代码设置。语法object.Caption[=string]Caption属性的语法包含下面部分：部分描述Object

对象表达式，其值是“应用于”列表中的一个

对象。如果object被省略，那么与活动窗体模块相联系的窗体被认为是object。String

字符串表达式，其值是被显示为标题的文本。当创建一个新的对象时，其缺省标题为缺省的Name属性设置。该缺省标题包括对象名和一个整数，如Command1或Form1。为了获得一个描述更清楚的标签，应对Caption属性进行设置。

Caption属性示例用户每次单击按钮将改变CommandButton控件的Caption属性。要试用此例，先将下面的代码粘贴到一个包含名为Command1的CommandButton窗体的声明部分，然后按下F5键并单击按钮。Demo(2_5)PrivateSubCommand1_Click()

'检查标题，然后改变它。注释（Annotation）

IfCommand1.Caption="Clicked"ThenCommand1.Caption="OK"ElseCommand1.Caption="Clicked"EndIfEndSubControlBox属性返回或设置一个值，指示在运行时控制菜单框是否在窗体中显示。在运行时为只读。语法Object.ControlBoxobject所在处表示对象表达式，其值是“应用于”列表中的一个对象。ControlBox属性设置值如下：设置值描述True（缺省值）显示控制菜单框。False删除控制菜单框。为了显示控制菜单框，还必须将窗体的BorderStyle属性值设置为1（固定单边框），2（可变尺寸）或3（固定对话框）。Enabled属性返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出响应。语法

Object.Enabled[=Boolean]Enabled属性Enabled属性的语法包含下面部分：部分描述Object对象表达式，其值是“应用于”列表中的一个

对象。如果object被省略，则与活动窗体模块

相联系的窗体被认为是object。Boolean一个用来指定object是否能够对用户产生的事件作出反应的布尔表达式。设置Boolean的设置为：设置描述True（缺省）允许object对事件作出反应。False阻止object对事件作出反应。Enabled属性示例该例子用TextBox控件是否包含文本这一条件来控制CommandButton控件的有效性。要试用此例，先将下面的代码粘贴到带有CommandButton和TextBox控件的一个窗体的声明部分，然后按下F5键并在文本框中随意输入一些内容。Demo(2_6)

Enabled属性示例PrivateSubForm_Load()

Text1.Text=""'清除文本框的内容。

Command1.Caption="Save"'在按钮上放置标题。EndSubPrivateSubText1_Change()IfText1.Text=""Then'查看文本框是否为空。

Command1.Enabled=False'使按钮无效。

Else

Command1.Enabled=True'使按钮有效。

EndIfEndSub观察文本框有、无内容时的差异设置字体特征显示文本（作为文本或标题）的窗体、控件，以及支持Font属性的Printer对象，它们将确定文本的可视特征，包括：字体名（字样）

字体大小（用磅表示）

特别特征（黑体、斜体、下划线或删除线）设置字体属性在设计时，通过双击“属性”窗口中的“字体”，可以任意设置字体属性，然后在“字体”对话框中可进行属性的设定。在运行时，通过设置各个窗体和控件的Font对象的属性，可以设定字体的特征。下表说明了Font对象的一些属性。Font示例改变文本框内字体的大小；添加一个CommandButton和一个TextBox。

Demo(2_7)PrivateSubCommand1_Click()

Text1.Font.Name="Arial"

Text1.Font.Size=20

Text1.Font.Bold=True

Form1.Font.Size=50

Print"2341234"EndSub创建自己的字体类型可以使用StdFont类来创建自己的字体类型。可以使用以下语法：

DimMyFontAsFont但是，不能使用：

DimMyFontAsNewFont相反，要创建自己的字体或图片类型，使用下面的代码：DimMyFontAsNewStdFontWithMyFont.Bold=True.Name="Arial"EndWithSetText1.Font=MyFont上个例子可以改成如下代码：PrivateSubCommand1_Click()DimMyFontAsNewStdFontWithMyFont.Bold=True.Name="Arial".Size=50EndWithSetText1.Font=MyFontSetForm1.Font=MyFontPrint"2341234"EndSubHeight、Width属性返回或设置对象的维数、或DataGrid控件Columns对象的宽度。对于Printer和Screen对象，在设计时不可用。语法object.Height[=number]object.Width[=number]Height和Width属性语法包含下面部分：Height、Width属性示例这个例子在窗体被加载时，将窗体的大小设置为屏幕大小的75%并使窗体居中显示。要尝试这个例子，请将代码粘贴到窗体的声明部分。然后按F5键并单击窗体。PrivateSubForm_Click()Width=Screen.Width*0.75'设置窗体的宽度。

Height=Screen.Height*0.75'设置窗体的高度。

Left=(Screen.Width-Width)/2'在水平方向上居中显示。

Top=(Screen.Height-Height)/2'在垂直方向上居中显示。EndSubDemo(2_8)Visible属性返回或设置一指示对象为可见或隐藏的值。语法

object.Visible[=Boolean]Visible属性语法包含下面部分：Boolean的设置值为：注意（Attention）（1）要在启动时隐藏一个对象，在设计时将Visible属性设置为False。在代码中设置该属性能够在运行时隐藏然后又重新显示控件以响应某特别事件。（2）对窗体用Show或Hide方法，和在代码中将Visible属性分别设置为True或False的效果是一样的。PrivateSubForm_Load()DimI'声明变量。

FileCab(0).BorderStyle=0'设置BorderStyle。

FileCab(1).BorderStyle=0'将图标加载到图片框。

FileCab(1).Picture=LoadPicture(“C:\Apple.ico")FileCab(0).Picture=LoadPicture(“C:\Java.ico")FileCab(1).Visible=False'设置为不可视。

FileCab(0).Visible=True'设置为可视。EndSubPrivateSubFileCab_Click(IndexAsInteger)DimI'声明变量。

ForI=0To1'切换两张图片的可视性。

FileCab(I).Visible=NotFileCab(I).VisibleNextIEndSub这个窗体包含两个和图标大小相等的PictureBox控件。将两PictureBox控件的Name属性设置为FileCab来创建数组，Demo(2_9)窗体事件和方法窗体作为对象，能够执行方法并对事件作出响应。无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。当窗体尺寸变化时，允许在窗体上进行移动控件或调整控件大小等操作。要使一个窗体可见，调用Show方法。PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubDemo(2_10)窗体激活演示每当一个窗体变成活动窗体时，就会产生一个Activate事件；当另一个窗体或应用程序被激活时，就会产生Deactivate事件。这些事件对初始化或结束窗体行为十分方便。例如，在Activate事件中，可以编写代码突出显示一个特定文本框中的文本；在Deactivate事件中，可以把更改保存到一个文件或数据库中。除窗体设计原理以外，还需考虑应用程序的开始与结束。有一些技巧用于决定应用程序启动时的外观。熟悉应用程序卸载时进行的一些处理也很重要。设置启动窗体在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来（因而最先执行的代码是该窗体的Form_Initialize事件中的代码）。如果想在应用程序启动时显示别的窗体，那么就得改变启动窗体。要改变启动窗体，请按照以下步骤执行：（1）从“工程”菜单中，选取“工程属性”。

（2）选取“一般”或“通用”。

（3）“启动对象”ListBox中，选取要作为新启动窗体的窗体。

（4）单击“确定”。结束应用程序当所有窗体都已关闭并且没有代码正在执行时，事件驱动的应用程序就停止运行。如果最后一个可见窗体关闭时仍有隐藏窗体存在，那么，应用程序表现为已经结束了（因为没有可见的窗体），可实际上应用程序仍在继续运行，直至所有隐藏窗体都关闭为止。避免出现关闭应用程序时的这类问题，最好的办法是确保所有的窗体都已卸载。如果应用程序只有一个窗体，则Click事件过程可简单为：Demo(2_10)PrivateSubCommand1_Click()UnloadMeEndSub如果应用程序使用多窗体，通过把代码放入主窗体的Unload事件过程可以卸载这些窗体。可以使用Forms集合确保找到并关闭所有窗体。下列代码就是使用窗体集合来卸载所有窗体的：PrivateSubCommand1_Click()DimMyFormAsFormForEachMyFormInForms

UnloadMyFormNextEndSub窗体事件Click事件此事件是在一个对象上按下然后释放一个鼠标按钮时发生。它也会发生在一个控件的值改变时。对一个Form对象来说，该事件是在单击一个空白区或一个无效控件时发生。语法PrivateSubForm_Click()PrivateSubobject_Click([indexAsInteger])Click事件的语法包括下列部分：部分描述Object一个对象表达式，其值是“应用于”列表中的一个对象。Index一个整数，用来唯一地标识一个在控件数组中的控件。PrivateSubform_Click()Picture1.MovePicture1.Left+750,Picture1.Top-550EndSub窗体的左下角处有一个PictureBox控件。Demo(2_11)DblClick事件当在一个对象上按下和释放鼠标按钮并再次按下和释放鼠标按钮时，该事件发生。对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick事件发生。语法PrivateSubForm_DblClick()PrivateSubobject_DblClick(indexAsInteger)部分描述Object对象表达式，其值是“应用于”列表中的一个对象。Index如果控件在控件数组内，则这个index值就用来标识该控件。Load事件此事件是在一个窗体被装载