Visual Basic菜鸟入门经典实例

2023年12月6日发(作者：)

Visual Basic菜鸟入门经典实例

这个专题是为爱好者准备的，如果你是专业人士，那么你可以放过不看，如果你想了解和学习编程，进而可以自娱自乐的设计一些小软件，那么就跟我来吧。

第一课：Hello World

几乎所有程序语言都是从“Hello World”开始，所以我们也从这里开始我们的VB学习之旅。

VB入门之“Hello World”

[文章信息] 作者: 时间: 2004-02-14 出处: VB大世界 责任编辑: 方舟

[文章导读] Visual Basic入门的第一课，介绍如何使用vb开发工具

没学过编程的人常常会问，编程难不难，这个问题很难回答。难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它没法完全代替人工，譬如说完成你的家庭作业、向学校发射导弹……

作为第四代计算机语言，VB的特点是显而易见的。因为是“可视的”所以我们不妨先看看VB的界面（图1_1）（我用的是VB4.0 32位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（Tools Box），里面是VB所需的控件；（3）是VB程序要设计的窗体（Form）；（4）控件及窗体的属性（Properties），在VB中每一个控件都有其自己的属性，比如文本框有Text属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB的文件控制窗口，VB的每一个程序称为一个项目（Project），一个项目文件里往往包括以下两种文件，窗体（Form）文件和模块（Bas）文件，当然还有Class文件，这些文件组成一个完整的程序，而项目文件（Vbp）则用来描述程序所包含的内容。

实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello，world！”。

首先，我们先来熟悉一下窗体。如果你用过Win95附件所带的画图板的话，那么你一定会很快熟悉VB的窗体设计方法，用鼠标单击一下工具箱中的任何一个控件，然后在窗体上任意拖动鼠标，你就会得到一个所需的控件；当然还有其他的方法得到控件，你可以在工具箱上双击得到一个控件；或是按住Ctrl键，再单击所需控件，重复第一次的步骤，你会发现，不用再回去点击工具箱了，点右键可以恢复鼠标指针，这样对于重复画同一个控件尤其有用。

对于我们的第一个小程序，知道这些就已经足够了。现在你可以在我们的窗体上画如下控件一个图片框（Picture Box），用来显示图画，每一个控件建立的时候，系统都会给它设一个默认的名字(Name)，这个PictureBox的名字就叫做Picture1，为了方便起见，我们以后的控件都使用缺省的名称。选定Picture1，在左边的属性窗口中找到Picture属性，单击会出现，点击为Picture1选一个图像文件，VB支持的图像文件有BitMap、WMF、ICO三种，微软为用户提供了一套图标文件，存放在VB目录的Icons目录下，选择文件，这样图标就被装入了Picture1。再选择Pictrue1的Autosize属性，设为1-True，则会发现Picture1以变成和图像一样大了；把BorderStyle定为0-None，去掉图片边框。用同样的方法再添加两个图片框：Picture2（Picture：），Picture3（Picture：）。

图片框完成了，第二步，建立三个无线钮（Option Button），由于它象收音机的无线电按钮而得名），把它们的标签名属性（Caption）分别定为“悲哀”，“高兴”，“没治了”，放置成图1_2的样子。

最后我们还需要三个文本框（Text Box），分别把它们的Text属性设为””（空字符串），程序的最后界面如图1_3，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是VB也不能免俗，还必须输入代码才能使程序运作。 VB是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是事件呢？其实，我们的生活中充满了各式各样的事件，比如说“闯红灯”这个事件的发生会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。

要进入VB的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，每一个VB程序都由若干小程序组成，这使得用VB编程更加容易，这些小程序，分为“过程”（Procedure）和“函数”（Function），二者都可以传递参数，所不同的是函数有一个返回值，而过程没有，仅此而已。

双击窗体的任何一个部分，将出现一个空的过程：“Form_Load()”，这是一个非常重要的过程，它所驱动的事件就是该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序（）。 这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB中规定，一个控件属性的访问方法：名称.属性，于是我们对本程序的控件进行如下设置：

Private Sub Form_Load()

e = False e = False

e = False

e = False

e = False

e = False

End Sub

Private表示此过程是局部的，Sub表示子过程的开始，与之相对的是End Sub表示过程的结束，Visible属性表示控件的可见性，这个属性的值有两个True和False。

注意：

VB里对大小写是不加区分的，而且，已定义的名称，以后再用到时，系统会自动把它变成相应的大写或小写。

小知识：

里的对变量及常量的规矩。

变量一般为Abc的格式，常量为ABC，另外这些变量和常量名不得同VB内的关键字相同，也不可以使用一些特殊符号，这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。

2.程序书写的窍门：

不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C，剪切Ctrl+T，粘贴Ctrl+P。

按下F5，运行一下程序，现在发现只剩下无线钮了。如图1_5。

Private Sub Form_Load()

e = False

e = False

e = False

e = False

e = False

e = False

= -2000

= True

End Sub Left属性表示控件离窗体左边框的距离，设置为－2000，则在窗体内不会看到这个控件，并使之Value=True。再运行程序，一切如愿，如图1_6。

注意：为什么不用e=False？

因为，一旦设置无线钮为不可见，那么再使它的Value为真是没有意义的，不信自己试试。

下面我们可以继续进行了。在刚才的代码窗口里，将Object选择为Option1，Proc选择为Click，即得到一个Option1_Click的过程。代码如下：

Private Sub Option1_Click()

e = True

e = False

e = False

e = True

e = False

e = False

= "再见，残酷的世界。"

End Sub

相同的建立Option2_Click和Option2_Click：

Private Sub Option2_Click()

e = True

e = False

e = False

e = True

e = False

e = False

= "今天心情不错。"

End Sub

Private Sub Option3_Click() e = True

e = False

e = False

e = True

e = False

e = False

= "Hello,World。"

End Sub

好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？

第二课：Visual Basic语法简介

VB的语法非常简单，在这一课中我选择了一个递归的实例来简要介绍Visual Basic语法。

递归过程在VB中的应用实例

[文章信息]作者: 力思 时间: 2003-08-26 出处: yesky 责任编辑: 方舟

[文章导读] 在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用

简言之，递归过程就是子程序自己调用自己。在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用。Win95的资源管理器具有界面直观、 操作简便的特点，深受广大电脑爱好者的欢迎和喜爱。下面就采用递归过程模拟Windows的资源管理器。

递归过程实现的思路：

由于磁盘上的目录是树形结构，而树形的节点和节点级数是不受限定的，如把目录名放入一维或多维数组中则难度较大，不易实现。如采用VB的TreeView控件的Node对象，那就比较方便了。编一子程序，给定目录，并建立当前节点，加入Node对象中，根据Dir1控件判断给定目录下是否有下级目录，如有，添加下级节点，并加入Node对象中；如无则退出子程序。即子程序的功能是：如给定目录有子目录存在，则展开当前目录求子目录。如果在给定目录展开完成后，把下级目录当成给定目录，并调用子程序进行展开，即可把给定目录下的数级子目录全部展开完毕。

利用VB提供的TreeView控件完全可以把磁盘上的目录(包括子目录)放入Node对象中，其界面具有资源管理器的特点。把磁盘上的目录放入Node对象有多种方法，应该说采用递归方法是比较简洁的。

实现的过程：

1、 添加TreeView控件到窗体中：单击—“工程”—“部件”，选择Microsoft Windows

Common Control 5.0”复选框，单击—“确定“按钮，TreeView控件即可出现在工具箱中。

2、 在窗体中添加Drive、DirListBox、ImageList控件。

3、 控件名及主要属性如下：

控件及窗体名 属性

Form

TreeView

Drive

DirListBox

ImageList

设置值 备注

获得当前电脑的盘符

Name Form1

Name Drive1

Name Dir1

Name TreeView

Name ImageList

给TreeView1的Node对象图标

实现的源程序如下：

Dim nodx As Node

Private Sub Form_Load()

'在 ImageList 控件中添加一个图象。

Dim imgX As ListImage

' ist = ImageList1 '初始化ImageList。

Set imgX = (, , _

LoadPicture("c:my "))

ist = ImageList1 '初始化ImageList。

yle = tvwRootLines

= tvwTreelinesPlusMinusPictureText

Dim DriverCount As Integer

Dim GivePath As String

On Error Resume Next

'创建根节点

Set nodx = (, , "本人电脑", "本人电脑", 1) For DriverCount = 0 To unt - 1

Set nodx = ("本人电脑", tvwChild, _

(DriverCount) + "", _

(DriverCount), 1)

GivePath = (DriverCount) + ""

Call SSplitNode(GivePath)

Next DriverCount

End Sub

Sub SSplitNode(GivePath As String) „子过程

'把给定目录下的子目录全部加入Node对象中

Dim SDI As Integer

Dim SDCount As Integer

Dim DString(1000) As String

„以下为展开给定目录的下级子目录

= GivePath „给定目录

SDCount = unt „利用Dir1控件判断是否有下级目录

If SDCount = 0 Then Exit Sub

„如无同退出子程序,即为递归出口。否则会形成死循环。

For SDI = 0 To SDCount - 1

DString(SDI) = (SDI)

Set nodx = (GivePath, tvwChild, _

DString(SDI), FOnlyPath(DString(SDI)), 1)

Next SDI „调用递归(子程序自己调用自己)

For SDI = 0 To SDCount - 1

Call SSplitNode(DString(SDI))

Next SDI

End Sub

Function FOnlyPath(DString As String) As String

'功能是去掉上级目录，只留下当前目录名

'DString为给定的全路径目录名

If DString = "" Then Exit Function

Dim DLength As Integer

DLength = Len(DString)

Dim DD As Integer

For DD = DLength To 1 Step -1

If Mid(DString, DD, 1) = "" Then Exit For

Next DD

FOnlyPath = Mid(DString, DD + 1)

End Function

本程序在Win95,VB5.0中文版下通过。

第三课：数据库

VB提供了强大的数据库支持，利用VB操作数据库非常简单，通过VB自携带的Data控件可以一个代码都不写就可以访问数据库。

使用Data控件访问数据库

2001-07-07· ·土人 ··vbeden

很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，这使得软件具有人性化，用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置。

假设我们已经完成了一个用TextBox做编辑栏的字处理程序，该程序提供了让用户对编辑栏背景色和字体的设置菜单，现在我们想让用户所作的设置能保存下来。怎么办呢？

第一步：给窗体添加一个Data控件。

第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。

如果你的机器没安装有Access，可通过VB建库。

第三步：编写如下代码：

在Form_Load事件添加：

'定位库文件路径

seName = + ""

Source = "MySet"

'设置背景色

Private Sub mnuBackColorSetting_Click()

= cdlCCFullOpen

lor

On Error GoTo err

err:

If = 3021 Then

End If

("backcolor") =

lor =

End Sub

'设置字体

Private Sub mnuFontSetting_Click()

= cdlCFEffects Or cdlCFBoth

nt

On Error GoTo FontErr

FontErr:

If = 3021 Then

End If

("fontsize") = ze

("forecolor") =

("fontname") = me

lor =

= me

= ze

'窗体的Activate事件

Private Sub Form_Activate() On Error Resume Next

lor = ("backcolor")

= ("fontsize")

lor = ("forecolor")

= ("fontname")

End Sub

【责任编辑：方舟】

第四课：报表设计

报表是进销存软件的常用功能，VB提供了多种报表控件，这一课中我们将介绍利用DataReport控件设计报表。

VB6中用DataReport做报表

2002-01-08■作者：李文强 ■出处： yesky

我不是VB熟练工，最近刚刚用VB做完一个程序，其中控制部分没费太大周折，倒是报表部分颇让我费了一翻脑筋。在网上找了半天，也没找到关于VB6的 DataReport的详细介绍，于是想借鉴"前辈"们的经验，用CrystalReport或EXCEL，感觉也不省劲，于是决定回头再去"啃"DataReport，别说，还真让有所收获，下面就简单的介绍一下我的体会，希望对大家能有所帮助。

首先介绍一下DataReport对象的几个常用属性。一是DataSource，用于设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSource提供的几个数据成员中设置一个特定的数据成员；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定报表的左右上下的页边距；四是Sections，即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域，如果加上分组(可以有多层分组)，则增加一对区域，即分组标头、分组脚注。其中DataSource一般是一个数据环境或是tion类型的变量，而DataMember则对应数据环境中的Command或是Set类型的变量，推荐使用数据环境及Command，页边界大家肯定都很清楚，下面我主要介绍以下Sections，这也是DataReport的精髓所在。

Sections是一个集合，您可以为每一个Section指定名称，也可以用其缺省的索引，从上到下依次为1、2…。每个Section均有Height和Visible属性，您可以在一定条件下使一个Section不可见。在Section中可以放置各种报表控件，其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中，用于输出各种文字、图形及表格线；RptTextBox只能放在细节中，一般用于绑定输出DataMemeber提供的数据字段；RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible；其中RptTextBox还有DataField、DataMember、DataFormat及Font属性；其他属性不再多说。

然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名；二是用RptShape的矩形框做表格线框，比用RptLine画框省事多了，只有斜线才使用RptLine；三是报表标题及报表中的表头文字、日期及页码用RptLabel，其中Caption属性支持转义字符，%D为长格式日期，%d为短格式日期，%P为总页数，%p为当前页码；四是对固定报表在设计窗口直接将报表控件摆放到位，对于活报表，应首先考虑报表最大的情形，将足够的控件分别放置在不同区域，位置大小可以不必深究，然后在报表输出前用VBA代码对所有控件的属性进行调整，包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等，相应的对Section也应根据情况调整其高度和可见性。

最后用一个实例模板来说明其使用方法。 连接数据库

With 数据环境.rsCommand名

If .State = adStateOpen Then .Close

.Source = SQL语句

.Open 打开想输出的数据库数据项以便输出

End With

With 报表名

.DataSource=数据环境

.DataMember=Command名 这两行也可固定设好而不必每次设置

设置页表头部分(RpttLabel…为报表控件名)

.Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"

.Sections(2).Controls("RptLabelDate").Caption = "打印日期：%D"

.Sections(3).Controls("RptLabel1").Left=…

…

设置细节部分(RptShapeX、RptTextBoxX为报表控件名)

.Sections(3).Controls("RptShape1").Left=…

.Sections(3).Controls("RptShape1").Top=…

.Sections(3).Controls("RptShape1").Height=…

.Sections(3).Controls("RptShape1").Width=…

.Sections(3).Controls("RptTextBox1").DataMember=Command名

.Sections(3).Controls("RptTextBox1").DataField=字段1

.Sections(3).Controls("RptTextBox1").=…

…

.Sections(3).Controls("RptShapeN").Visible=False

.Sections(3).Controls("RptTextBoxN").Visible=False

…

. Sections(3).Height=计算出的或固定的细节高度

动态调整报表标题(RptLabelTitle为报表标签控件名)

.Sections(2). Controls("RptLabelTitle").Left=…

…

.Sections(2). Controls("RptLabelTitle").Alignment=…

…

调整完毕后

.Show 或 .PrintReport

End With

这样做的优点是报表设计时简单，调整方便、随意，只需更改一点代码，而不必为了一点点的修改而费神的在设计窗口调整半天。

第五课：表格控件

在VB开发环境中，表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点，而且更重要的是它较高的信息表现率，所以这一课中我们来学习表格控件的使用方法。

VB表格控件总览与例程分析 [文章信息] 作者: 冯杰 时间: 2003-09-06 出处: yesky 责任编辑: 方舟

[文章导读] 本文结合例程来对VB中的表格控件进行详尽的分析总结

一．表格控件总览：

在VB开发环境中，表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点，而且更重要的是它较高的信息表现率（就是相对于其他控件来说能够表达更多的信息），随着信息时代的到来，它的应用将更加的广泛。

那么在VB平台下，如何操作这一功能强大的控件元素呢？事实上我们知道，VB平台下面的表格控件是相当丰富的，总结下来提供了4种类型：Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid Control.

这四种表格各有其特点，下面我们一一讨论。

1． Microsoft Data Bound grid Control

此控件主要用于数据绑定（可以不绑定，但是因为不提供对单个cell的控制支持，所以实际上这样做是不经济的）。具体说来，就是数据源比较固定的情况下可以使用这种控件。

具体使用方法是设定此控件的datasource属性，就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件，而data控件又指向数据库"成绩"的 一个"语文"表，那么当程序运行时，它就自动显示此"语文"表的数据。

从上面的分析看得出来，这个控件虽然操作方便，但是它也有局限性，就是不能对显示的数据进行灵活的控制操作，比如有些数据允许用户修改，有些数据却不允许用户修改，而此控件却只能提供全部数据源的原子操作：即要么全部允许修改，要么就全部不允许。还有另外此控件也不提供对单个单元格（cell）进行操作，所以提供不了更为个性化的界面风格。

2． Microsoft Datagrid Control

此控件跟前面介绍的Data Bound grid Control控件很相似，也是主要进行绑定操作，而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的，不能是DAO，比如就可以使用ADO数据控件，不能使用DATA控件。而Data Bound grid Control却刚好和它相反，这一点在开发中一定要注意。

3． Microsoft Flexgrid Control与Microsoft Hierarchial Flexgrid Control.

这里重点介绍这两种控件，因为在实际开发中，这两种控件应用的场合更多一些，它不仅能够反映数据，而且也能把数据的修改信息反映到数据库中去，所以弥补了上述两种控件的不足。

如果数据不需要修改，那么可以进行绑定操作，其方法跟前面介绍的完全一样，就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中，需要对整个表格控件更为灵活的显示控制。

在给出例程之前，有必要对这一控件进行比较详尽的认识：这种控件允许将文本或者图象放置于每个单元格之中，控件的Row与Col属性允许用户在代码中指定当前行和列，当然也可通过操作鼠标和键盘来改变这两个属性，而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话，可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下：

DataSource---------用来指定需要绑定的数据源，比如data控件。

Cellpicture----------用来设定当前单元格的图象，便于显示该图象。此属性不能在设计时使用。

Col，Row---------------设定当前列和当前行，注意它们均是从0开始的，如果同时设定它们，可以指定当前的单元格。设计时也不能使用。

Cols，Rows---------------设置表格控件总的列数和行数。

Hwnd---------------表格句柄，可以结合Windows API对表格控件进行更高级的控制。 Text---------------指定当前的单元格的文本内容。

TextMatrix(i,j)-------此属性比较重要，它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码：

=i

=j

=指定的字符串

WordWrap-------为ture时可以在当前单元格换行显示，否则如果要显示的字符的长度超过列宽，那么就不能显示完全。

二．例程分析：

以上只是介绍了表格控件经常使用的属性，还有很多其他重要的属性这里限于篇幅就不一样讲解了，如果读者有兴趣的话可以参考MSDN上相关的内容的介绍，下面我这里提供一个例程来巩固前面的知识内容。

例程是使用Flexgrid 控件（由于Data Bound grid和Datagrid比较简单，所以这里就不再介绍了），如果大家手头上用的是MSHFlexgrid控件的话，只需要把名称换为MSFlexGrid1即可。该例程主要实现后台数据库的显示工作，其界面如下：

主要代码如下：

Dim lastrow% '最后一次鼠标点击的行

Dim lastcol% '最后一次鼠标点击的列

Private Sub Command1_Click()

MsgBox

End Sub

Private Sub Form_Load()

'初始化数据

click = False

lastrow = 1 lastcol = 1

'初始化data控件，进行绑定显示的初始化

seName = & ""

Source = "成绩表"

'进行非绑定显示

h

rst

= + 1 '设置总行数

= + 1 '设置总列数

lor = vbBlue '网格颜色

lor = vbRed '字体颜色

nes = 1 '设置网格线的属性

neWidth = 2 '设置网格线的粗细程序，默认为1

pText = "非绑定显示" '设置工具提示文本

lorSel = vbGreen '单元格被选中的颜色

Dim i%

Dim j%

'设置列头文本

For i = 1 To - 1

trix(0, i) = (i - 1).Name

Next i

'设置数据

For i = 1 To - 1 '控制行

For j = 1 To - 1 '控制列

trix(i, j) = (j - 1).Value

Next j

xt

Next i

'设置当前单元格的图象信息

= 0

= 2

Set cture = LoadPicture( & "")

End Sub

'实现鼠标点击一个单元格的背景颜色的改变功能

Private Sub MSFlexGrid2_Click()

= lastrow

= lastcol

ckColor = vbWhite

= ow

= ol

ckColor = vbCyan lastrow =

lastcol =

End Sub

要在不绑定数据的情况下实现编辑修改的功能，如果对控件不进行改进是无法达到目的的。这里实现的思路是首先判断光标（或者说焦点）在哪个单元格上，然后在在单元格的范围内动态创建一个文本框(不过在vb平台下，可以考虑先在设计时放置一个不可见的文本框，然后通过move方法将其放置到当前单元格并且显示它即可达到相同的目的)，其大小正好可以把此单元格给覆盖掉，然后就可以把原来的文本信息附给该文本框，这样就可以直接在文本框内进行编辑修改操作，从而实现了单元格的编辑修改功能，依据这个思想来可以在单元格里面创建下拉列表框，复选框等控件。其实现的核心代码如下：

'实现编辑功能

Private Sub MSFlexGrid3_DblClick()

e = False

'如果初次双击，那么就执行如下代码

If firstclick = True Then

lastclickrow =

lastclickcol =

= trix(lastclickrow, lastclickcol)

End If

'将文本框放置到当前单元格处

Dim LeftOfText% '文本框的left属性

Dim TopOfText% '文本框的top属性

Dim selrow% '当前行

Dim selcol% '当前列

selrow =

selcol =

LeftOfText = + + (selcol) + 45

TopOfText = + + (selrow) + 45

LeftOfText, TopOfText, 930, 200

e = True

'如果不是初次双击，那么就执行如下代码

If firstclick = False Then

trix(lastclickrow, lastclickcol) =

lastclickrow =

lastclickcol =

End If

= trix(selrow, selcol)

'已经不是第一次进行双击操作

firstclick = False

End Sub 三．小结：

数据表格控件在实际运用用还有很多技巧，只有不断的在实际编程中积累经验才能达到灵活运用的功效。

第六课：多媒体设计

很多朋友喜欢用电脑看电影、听音乐，在这一课中我们介绍如何用VB进行多媒体设计。VB提供了一个MediaPlayer控件可以很轻松的设计一个MP3播放器。

第七课：网络编程

QQ聊天软件、网络蚂蚁、网际快车都属于网络编程范畴；在这一课中我们通过一个局域网通信程序来介绍如何利用VB进行网络编程

利用Winsock控件实现局域网通信

2001-06-12■作者： --■出处： vbeden

对于局域网用户中的编程爱好者来说，如果能自己编一个局域网通信程序，那么这一切将是多么美妙！可是，如果要从头开始完全由自己来编写一段用于通信的程序，必须对相关的网络协议及其他的一些较底层的技术有较深入的了解，这可不是一件容易的事。而现在有了Winsock控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中，并且还可以双向交换数据，而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。

Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。

Winsock控件可以使用两种协议：TCP协议和UDP协议，下面来分别介绍。

TCP协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。

在创建客户应用程序时，必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性），然后调用Connect方法。

创建服务器应用程序时，就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect)，就会发生ConnectionRequest事件。为了完成连接，你可以在ConnectionRequest事件中调用Accept方法。建立连接后，任何一方计算机都可以发送、接收对方数据。如果你要发送数据，需调用SendData方法。当接收到数据时，会发生DataArrival事件，调用DataArrival事件中的GetData方法就可以获得对方传送的数据。

说了这么多，大家可能还是不太了解，让我用程序来详细说明。

如果只有两台计算机，那十分容易。假设甲机为客户机，乙机为服务器，且其IP为192.192.192.1，接收端口为1200(任意选一个未被使用的端口即可)。首先在甲机客户端程序中加入一个Winsock控件，起名为sckconnect，并设置其属性：RemoteHost=“192.192.192.1”，（即甲机IP地址）， RemotePort=1200（即甲机侦听端口）；再在乙机服务器程序中假如一个名为sckserver(0)的Winsock控件，其LocalPort=1200，在乙机服务器程序中Form_Load()加入

sckserver(0).bind sckserver(0).LocalPort '与本地端口绑定

sckserver(0).listern ' 侦听

如果要传输数据，两机必须先建立连接。建立连接的程序如下：

甲机客户机要先请求连接

t Host, Port

此句执行时会触发服务器程序中的ConnectRequest事件，在此过程中决定是否建立连接，其代码如下：

Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)

if =1 then

load sckserver(1)

sckserver(1).accept requestId

end if

end sub

连接建立好以后，甲机或乙机都可以应用SendData方法来传送数据。例如，如果是甲机要传送一个叫string的字符串，只需在代码中加入：

ta string

甲机传送数据后，会触发乙机的DataArrival事件，在其过程中用GetData方法可以收到传送的数据：

Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)

dim sdata as string

sckserver(1).GetData sdata,vbstring

end sub

最后别忘了在关闭程序前要先关闭Winsock控件

privat sub form_unload(cancel as integer)

if <>sckclosed then

end if

end sub

这只是最简单的情况，如果有多台计算机，那就稍微复杂一些，客户端程序可以不做改动，而服务器端程序需要略做改动：

Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)

dim sip as string

dim I as integer

sip=sckserver(0).RemoteHostIP '获得登录者的IP地址

I=1

Do while I<= '检查是否已经有该地址的记录

If sckserver(I).RemoteHostIP=sip then '如有，不必加载新的控件 Sckserver(I).Accept requestid

Exit sub

End if

I=I+1

Loop

Load sckserver(I) '否则，加载新的控件

Scksrver(I).accept requestID

End sub

注意到：以上的信息交谈实际上都发生在客户机与服务器之间，如果要做成聊天室那样，每个人的话都可以被别人“听到”，那就要在服务器端的DataArrival事件中，把接收到的客户机传来的数据，转发给所有客户机即可。

其循环转发信息的代码如下：

For I=1 to

if sckserver(I).state<>sckclosed then

sckserver(I).SendData sdata

end if

next I

怎么样，这样我们就作好了自己的通信软件！

不过，不知大家注意到没有，上述程序都需要有一台计算机做为服务器，但如果我们的局域网中没有哪台计算机是可以常开的，也就是说，如果服务器端程序没有运行的话，其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少，我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗？

不要急，记得吗，我们的Winsock控件还有另一个主角：UDP协议。

UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议？就是说利用此协议连接时，不必象TCP协议那样：需要服务器端侦听，客户机端请求连接，服务器端建立连接后双方才能通信。另外，UDP应用程序可以是客户机，也可以是服务器程序，而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。

下面，来简述一下UDP协议通信的过程：UDP协议中，为了在甲乙两机中传输数据，必须先分别设置两机的LocalPort属性；再将甲机的RemoteHost属性设置为乙机的IP地址，RemotePort属性设置为乙机的LocalPort属性值，此时甲机调用SendData方法就可以传送数据了，乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据，只需仿照上面的过程设置即可。

用UDP协议来传输信息较TCP协议来说简单的多，它无须侦听（LISTEN），也无须请求连接（CONNECT），就象我们平时发信一样，只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序，下面来简单介绍以下程序中想实现的功能及其基本思想：

首先，我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧！这要是自己编程实现可不是太容易，幸好VB光盘中在commontoolsvbunsupportsystemTray 中有一个现成的程序，我们只要把它编译成 控件，然后在编写自己的程序时添加此控件即可。其使用方法十分简单，它已经定义好了鼠标单击、双击等事件，你只需编写相应的鼠标事件即可，这里不再多说。

程序的关键是：UDP协议在通讯时要知道对方的IP和Port，这要如何实现呢？最简单的方法是建立一个配置文件，里面放置了局域网上每台计算机的名字、IP和Port，在程序初始化时读出所有信息，在程序中只要知道向谁通信，读出其对应的IP和Port即可。

我们知道了每台计算机的IP和Port，但我们怎样才能知道其它计算机是否在线呢，否则发出信息别人收不到怎么办？我们可以把此程序放在启动菜单中，让其一开机就自动启动，并最小化，放于窗口右下角的system tray中。在程序刚开始运行时，它会自动向它从配置文件中所知道的所有IP发一条信息：“我来了！”，如果有计算机在线，它会自动返回一条信息：“欢迎！”，如此则两机通信成功，它们会分别把对方的名字加入到自己的可通信人名单中去；如果有计算机关机，程序在退出之前会自动向所有人告别：“再见！”，接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样，如果某人不在线，你将无法发送信息给它；如果除了你以外，其他人都没有开机，那你的可发送人名单中将没有任何人。而其它人只要一上线，会自动去你那里“登记”，其他人只要一离线，会自动去你那里“告别”，你可以据此知道他人是否正在使用计算机，你甚至可以以此程序来统计他人的每天上机时间，不错吧！

好了，一个局域网通信的程序的基本模型已经有了，并不复杂吧！大家赶快动手吧，来享受用自己的程序来聊天的乐趣！

不过，要想编写一个出色的程序，不光是要有良好的创意与功能，更重要的是程序的兼容性与容错性。本例中，对错误处理没有做详细的解释，关于这一点，大家可以在Winsock控件的error事件及其帮助中找到满意的答案。

另外，还可以从以下几方面来考虑功能的扩充：如传送图形、声音等多媒体信息、局域网互传文件（主动传送）、历史通话记录、系统日志、个人上机时间统计等等，而所有的这一切仅仅取决于你的想象力与你的聪明才智！下面，笔者以传送文件为例来讲一讲其功能实现的代码。

你可以把本地的文件（图形、声音等可以先存成临时文件）以二进制文件的方式来打开它，将其内容全部读入一个byte类型的数组中，本地机代码如下：

dim myfile () as byte

dim position as long

open "filename" for binary as #1

position=0

do while not eof(1)

position=positon+1

redim preserve myfile (1 to position)

get #1,,myfile(position)

loop

close #1

再向远程机传送这个字节数组

ta myfile

远程机收到这个数组之后，再以二进制文件的方式打开一个新目标文件，将数组内容写入这个新打开的文件，如果是bmp图片就将其放入picture图片框中，如果是wav文件，就播放。这样，局域网中的两个人就可以通过语言、图片、文字来交流了。

远程机代码如下： Private sub sckconnect_DataArrival(byval bytestotal as long)

dim receivefile(1 to bytestotal)as byte

a receivefile,vbarray+vbbyte

'告诉Winsock控件收到的是字节数组类型的数据

open "c:temp文件名" for binary as #1

for I=1 to bytestotal

put #1,,remotearray(I)

next I

clost #1

end sub

第八课：文件操作

在这一课中我们将学习文件操作，VB6.0提供了一个全新的文件系统对象FSO(File System Object )模型，采用面向对象语言的形式，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

FSO对象模型在VB中的应用

[文章信息] 作者: 时间: 2003-01-28 出处: 天极论坛 责任编辑: 方舟

[文章导读] 从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的

从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展，加上面向对象编程概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO。

一、简介

文件系统对象FSO的英文全称是File System Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

FSO 对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除，而且可以检测是否存在指定的文件夹，如果存在，那么，这个文件夹又位于磁盘上的什么位置。更令人高兴的是FSO 对象模型还可以获取关于文件和文件夹的信息，如名称、创建日期或最近修改日期等以及当前系统中使用的驱动器的信息，如驱动器的种类是CD－ROM还是可移动磁盘，当前磁盘的剩余空间还有多少。而以前要获取这些信息必须通过调用Windows API函数集中的相应函数才能实现。

FSO对象模型包含在Scripting 类型库 ()中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。其中Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型；Folder用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作；File的基本操作和Folder基本相同，所不同的是Files的操作主要是针对磁盘上的文件进行的；FileSystemObject是FSO对象模型中最主要对象，它提供了一套完整的可用于创建、删除文件和文件夹，收集驱动器、文件夹、文件相关信息的方法。需要注意的是，FSO对象模型提供的方法是冗余的，也就是说在实际使用中，FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作，而且FileSystemObject对象的方法直接作用于其余对象，所以在后面的文章中并没有单独提到FileSystemObject对象，千万不要以为没有提到就不重要，事实上FileSystemObject对象在整个FSO对象模型中无处不在；最后的TextStream对象则是用来完成对文件的读写操作的。

在初步了解了FSO对象模型之后，下面我们通过实际的代码对不同的对象进行进一步的阐述。

二、FSO对象模型的应用

（一）创建FSO对象模型

由于FSO对象包含在Scripting 类型库 ()中，所以在使用前首先需要在在工程中引用这个文件，单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting

Runtime”前的复选框，然后单击“确定”。

要创建FSO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型：

Dim fsoTest As New FileSystemObject；

另一种是通过CreateObject方法创建一个FSO 对象：

Set fsoTest = CreateObject(“stemObject")；

在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。

完成了FSO对象模型的创建之后，就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了，具体的方法在下面结合各个对象分别讲述。

（二）Drive对象

上面已经提到Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法，其应用都是通过属性表现出来的，所以我们必须熟悉Drive对象的属性：

属性 功能

AvailableSpace 返回在指定的驱动器或网络共享上的用户可用的空间容量。

DriveLetter

DriveType

FileSystem

FreeSpace

IsReady

Path

RootFolder

SerialNumber

ShareName

TotalSize

VolumeName

返回某个指定本地驱动器或网络驱动器的字母，这个属性是只读的。

返回指定驱动器的磁盘类型。

返回指定驱动器使用的文件系统类型。

返回指定驱动器上或共享驱动器可用的磁盘空间，这个属性是只读的。

确定指定的驱动器是否准备好。

返回指定文件、文件夹、或驱动器的路径。

返回一个 Folder 对象，该对象表示一个指定驱动器的根文件夹。只读属性。

返回用于唯一标识磁盘卷标的十进制序列号。

返回指定驱动器的网络共享名

以字节为单位，返回驱动器或网络共享的总空间大小。

设置或返回指定驱动器的卷标名。

从上面的属性可以看到Drive对象基本上包含了日常操作所需的全部的驱动器信息，因此在使用中是非常方便的。下面通过一个实例讲述Drive对象的使用。首先在VB中建立一个工程，然后添加一个命令按钮，将其Caption设置为“TestDrive”，然后在click事件中加入以下代码： Dim fsoTest As New FileSystemObject

Dim drv1 As Drive, sReturn As String

Set drv1 = ve(“C:")

sReturn = “Drive " ＆ “C:" ＆ vbCrLf

sReturn = sReturn ＆ “VolumeName" ＆ Name ＆ vbCrLf

sReturn = sReturn ＆ “Total Space: " ＆ FormatNumber(ize / 1024, 0)

sReturn = sReturn ＆ “Kb" ＆ vbCrLf

sReturn = sReturn ＆ “Free Space: " ＆ FormatNumber(ace / 1024, 0)

sReturn = sReturn ＆“Kb" ＆ vbCrLf

sReturn = sReturn ＆“FileSystem:" ＆ stem ＆ vbCrLf

MsgBox sReturn

其中GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。该方法的语法格式为ve drivespec，object是一个FSO对象的名称，drivespec用于指定驱动器的名称。

按F5运行上述代码，按下TestDrive按钮就会弹出一个消息框显示C盘的信息。

（三）Folder对象

在FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是：

FileSystemObject对象

CreateFolder

DeleteFolder

MoveFolder

CopyFolder

FolderExists

GetFolder

GetParentFolderName

GetSpecialFolder

创建一个文件夹

删除一个文件夹

移动一个文件夹

复制一个文件夹

查找一个文件夹是否在驱动器上

获得已有Folder对象的一个实例

找出一个文件夹的父文件夹的名称

找出系统文件夹的路径

有关文件夹的方法

Folder对象的方法

Delete

Move

Copy

Name

用途

创建一个文件夹

移动一个文件夹

复制一个文件夹

检索文件夹的名称

在此需要强调一点，前面我们曾经提到过FSO对象模型包含的方法是冗余的，所以Folder对象的Delete、Move、Copy方法和FileSystemObject对象的DeleteFolder、MoveFolder、CopyFolder方法实际上是相同的，因此在实际使用中可以任选其中的一种。

和Drive对象一样，下面通过实例演示Folder对象的应用。在VB下新建一个工程，然后在上面添加三个命令按钮，然后在Form1的通用部分加入以下代码：

Option Explicit

Dim fsoTest As New FileSystemObject

Dim folder1 As Folder

并且分别在三个命令按钮的click事件输入以下代码：

Private Sub CmdCreate_Click()

' 获取 Folder 对象。

Set folder1 = der(“C:")

'创建文件夹

Folder (“C:Test")

MsgBox “folder C:Test has created"

End Sub

Private Sub CmdDelete_Click()

' 获取 Drive 对象。

Set folder1 = der(“C:")

'删除文件夹

Folder (“C:Test")

MsgBox“folder C:Test has deleted"

End Sub

Private Sub CmdGetPro_Click()

'获取文件夹的有关信息

Dim sReturn As String

Set folder1 = der(“C:Windows")

'sReturn = “The folder's Attributes is " ＆ utes ＆ vbCrLf

'获取最近一次访问的时间

sReturn = sReturn ＆ “The folder's last access time is " ＆ stAccessed ＆ vbCrLf

'获取最后一次修改的时间

sReturn = sReturn ＆ “The folder's last modify time is " ＆ stModified ＆ vbCrLf

'获取文件夹的大小

sReturn = sReturn ＆ “The folder's size is " ＆ FormatNumber( / 1024, 0)

sReturn = sReturn ＆ “Kb" ＆ vbCrLf

'判断文件或文件夹类型

sReturn = sReturn ＆ “The type is " ＆ ＆ vbCrLf

MsgBox sReturn

End Sub

上述代码中提到的CreateFolder方法的语法形式为Folder(foldername)。foldername指定了要创建的文件夹的名称，而DeleteFolder方法的语法形式为Folder folderspec[,force]，其中，folderspec用来指定要删除的文件夹的名称，force是一个可选的布尔型参数，如果希望删除只读属性的文件夹则将该值设为TRUE，默认为FALSE。至于代码中用到的 Folder 对象的属性限于篇幅，就不详细介绍了，读者可参考VB文档中的相关内容。

（四）File对象和TextStream对象

由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。

通常对文本文件的操作包括在文本文件中创建数据，在文本文件中添加数据，删除文本文件的数据等操作。这些操作都可以通过File对象和FileSystemObject对象的相关方法完成。不过在使用之前，首先要创建一个文本文件，这可以通过三种方法完成。一种方法是使用FileSystemObject对象的 CreateTextFile 方法。要创建一个空文本文件，可以用以下语句：

Dim fsoTest As New FileSystemObject, fil1 As File

Set fil 1= TextFile(“c:", True)

第二种方法是使用 FileSystemObject 对象带 ForWriting 标志设置的 OpenTextFile

方法。

Dim fsoTest As New FileSystemObject, ts1 As New TextStream

Set ts1 = xtFile(“c:", ForWriting)

第三种方法是使用File对象的带 ForWriting 标志设置的 OpenAsTextStream 方法：

Dim fsoTest As

第九课：API函数

VB本身对系统底层的操作能力不足，API函数是其中要补充，在这一课中我们以对光驱的操作为实例来学习如何使用API函数。

用API函数控制光驱的开关

2001-11-24· · ··yesky

使用API函数CDdoor 来控制光驱门的开和关程序十分简单，由于 CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。

CDdoor函数是安装WINDOWS时所自带的文件中包含的函数，我们只须先加入如下的声明后就能引用这个API函数：

Private Declare Function CDdoor Lib "" Alias "mciSendStringA" _

( _

ByVal lpstrCommand As String, _ String，这是控制命令参数

ByVal lpstrReturnString As String, _ String，这是返回值

ByVal uReturnLength As Long, _ Long，返回值长度参数

ByVal hwndCallback As Long _

) As Long

引用的语法是：

Call CDdoor("set CDAudio door closed", 0, 0, 0) 用以关闭光驱门

Call CDdoor("set CDAudio door open", 0, 0, 0) 用以打开光驱门

程序中使用了一个布尔型变量来标示当前光驱门开与关的状态。

如果配合检测光驱是否存在的函数一起使用，此程序的通用性会更高。而关于检测驱动器信息的函数GetDriveType，GetLogicalDrives，我们会在另外一个实例中介绍。

为了学习方便，以下提供了源代码并附详细的中文注释： '-------------------------------------------

' 利用API函数控制光驱的开和关

'-------------------------------------------

'程序说明：

' 本例使用API函数 CDdoor 来控制光驱门的开和关程序十分简单，由于

CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。

'-------------------------------------------

Option Explicit

'说明：CDdoor函数是安装WINDOWS时所自带的文件中包含的函数

Private Declare Function CDdoor Lib "" Alias "mciSendStringA" _

( _

ByVal lpstrCommand As String, _

ByVal lpstrReturnString As String, _

ByVal uReturnLength As Long, _

ByVal hwndCallback As Long _

) As Long

'CDOpen用来标示光驱开与关的状态

Dim CDOpen As Boolean

Private Sub Command1_Click()

On Error Resume Next

'如果关闭则打开，并且按钮做相应变化

If CDOpen = False Then

Call CDdoor("set CDAudio door open", 0, 0, 0)

CDOpen = True

n = "点击关闭光驱"

Else

'否则关闭

Call CDdoor("set CDAudio door closed", 0, 0, 0)

CDOpen = False

n = "点击打开光驱"

End If

End Sub

Private Sub Form_Load()

CDOpen = False

Call CDdoor("set CDAudio door closed", 0, 0, 0)

End Sub

第十课：类

类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的，在这一课中我们学习如何设计VB的类。

关于Visual Basic 6.0类开发(上)

2001-02-03■作者：新天■出处： yesky

对程序员和编程爱好者来说，VB中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Moudle)、控件（Active ocx)、链接库（Active dll)和类（Class moudle)构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。

（一）类的基本定义和应用概述；

类是包含了方法、属性、数据成员的高级代码模块，它既在模块的范畴之内，又是一个没有图形界面的Active ocx，程序员可以象使用控件一样使用它，但却不能看到它，值得注意的是，类是不能继承的。

类能够使我们高效的完成对某一个或者某几个特定的对象的复杂操作，对象的动作就是类的方法，对象的属性就是类的属性过程。相对而言，如果编程的对象是一组事物，那么，我们采用标准模块的方式是非常合适的，在下列两种情况下，应该使用类进行代码处理：

（1）创建大量性质相近的对象；

（2）提高代码的封装性。

类的创建非常简单，在进行代码编写的时候，在“工程”菜单中选择“添加类模块”项目，就可以添加一个空白的类。

类文件一般以.cls作为扩展名保存。

（二）类的方法的实现；

类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例，它使一个密码框拒绝非字母的输入：

（1）类cls的代码；

Option Explicit'变量检查

Private WithEvents mytxt As TextBox

'本类中的方法接受和控制一个text密码框

Dim isNUM As Boolean

'类的模块级变量

Public Sub Attach(itTEXT As TextBox)

'接受外部变量到mytxt中

Set mytxt = itTEXT

End Sub

Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)

isNUM = (KeyCode >= 65) And (KeyCode <= 90)

'测试密码框的键盘输入是否是英文字母

If isNUM = False Then

Beep

= ""

'如果输入不是英文字母则响铃并且清空密码框内容

MsgBox "非法字符输入！"

End If

'调试输出密码框内容

End Sub

'类的代码结束

（2）类的引用；

已经编写完成的类可以经过两种格式进行引用，第一种方式：Private（public或者dim)

myCLS（指定的类名） As New cls（编写完成的类名）；第二种方式较多用于程序编写风格较“老”的程序员：首先在窗体代码中进行模块级声明——Dim myCLS As cls,然后在具体代码过程中进行具体定义—— Set mycls = New cls。这两种方式的效率和代码的简洁性方面可能会有所差别，但在笔者的编程实践中，并没有什么特别的感觉，不过我较多使用第一种方式，因为它书写起来更加方便。另外，在代码结束的时候，使用 Set myCLS = Nothing来取消类的资源占用是一种非常好的编程习惯。

在窗体form1中(窗体有一个密码框控件text1，passworldchar="*")添加以下代码：

Option Explicit

Private myCLS As New cls

'引用cls

Private Sub Form_Load()

Text1

'启动类

End Sub

'在代码结束时记得释放资源

Private Sub Form_Unload(Cancel As Integer)

Set myCLS = Nothing

End

End Sub

本文代码展示了类的方法的代码编写过程和调用方式(尽管它和类的事件非常相似)，它的效果是，如果密码框中被输入了非字母，则系统振铃，并删除密码框中的原来的数据——在一定程度上保护密码。

类的方法可以不需要任何参数，这一点类似一个public的函数或者过程，它也是类中使用最广泛的。在下一篇文章中我将讨论，如何使用类的属性、事件和方法进行综合编程。(未完待续)