Visual Basic菜鸟入门经典实例

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目录下，选择Icons\misc\face01.ico文件，这样图标就被装入了Picture1。再选择Pictrue1的Autosize 属性，设为1-True，则会发现Picture1以变成和图像一样大了；把BorderStyle定为0-None，去掉图片边框。用同样的方法再添加两个图片框：Picture2（Picture：face02.ico），Picture3（Picture：face03.ico）。

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

最后我们还需要三个文本框（T ext Box），分别把它们的Text属性设为””（空字符串），程序的最后界面如图1_3，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是VB也不能免俗，还必须输入代码才能使程序运作。

VB是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是事件呢？其实，我们的生活中充满了各式各样的事件，比如说“闯红灯”这个事件的发生会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。

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

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

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

注意：

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

小知识：

1.VB里的对变量及常量的规矩。

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

2.程序书写的窍门：

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

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

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

注意：为什么不用Option4.Visible=False？

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

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

相同的建立Option2_Click和Option2_Click：

好，我们的开山之作完成了！按下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、控件名及主要属性如下：

For DriverCount = 0 To Drive1.ListCount - 1

Set nodx = TreeView1.Nodes.Add("本人电脑", tvwChild, _ Drive1.List(DriverCount) + "\", _

Drive1.List(DriverCount), 1)

GivePath = Drive1.List(DriverCount) + "\"

Call SSplitNode(GivePath)

Next DriverCount

End Sub

Sub SSplitNode(GivePath As S tring) …子过程

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

Dim SDI As Integer

Dim SDCount As Integer

Dim DString(1000) As String

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

Dir1.Path = GivePath …给定目录

SDCount = Dir1.ListCount …利用Dir1控件判断是否有下级目录If SDCount = 0 Then Exit Sub

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

For SDI = 0 To SDCount - 1

DString(SDI) = Dir1.List(SDI)

Set nodx = TreeView1.Nodes.Add(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事件添加：

'定位库文件路径

Data1.DatabaseName = App.Path + "\rtSet.mdb"

Data1.RecordSource = "MySet"

'设置背景色

Private Sub mnuBackColorSetting_Click()

CommonDialog1.Flags = cdlCCFullOpen

CommonDialog1.ShowColor

On Error GoTo err

Data1.Recordset.Edit

err:

If err.Number = 3021 Then

Data1.Recordset.AddNew

End If

Data1.Recordset.Fields("backcolor") = CommonDialog1.Color

Data1.Recordset.Update

Text1.BackColor = CommonDialog1.Color

End Sub

'设置字体

Private Sub mnuFontSetting_Click()

CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth

CommonDialog1.ShowFont

On Error GoTo FontErr

Data1.Recordset.Edit

FontErr:

If err.Number = 3021 Then

Data1.Recordset.AddNew

End If

Data1.Recordset.Fields("fontsize") = CommonDialog1.FontSize

Data1.Recordset.Fields("forecolor") = CommonDialog1.Color

Data1.Recordset.Fields("fontname") = CommonDialog1.FontName

Data1.Recordset.Update

Text1.ForeColor = CommonDialog1.Color

https://www.360docs.net/doc/2e2985572.html, = CommonDialog1.FontName

Text1.Font.Size = CommonDialog1.FontSize

'窗体的Activate事件

Private Sub Form_Activate()

On Error Resume Next

Text1.BackColor = Data1.Recordset.Fields("backcolor")

Text1.Font.Size = Data1.Recordset.Fields("fontsize")

Text1.ForeColor = Data1.Recordset.Fields("forecolor")

https://www.360docs.net/doc/2e2985572.html, = Data1.Recordset.Fields("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一般是一个数据环境或是ADODB.Connection类型的变量，而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量，推荐使用数据环境及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；其中RptT extBox还有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=…

.Se ctions(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")https://www.360docs.net/doc/2e2985572.html,=…

…

.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列所确定的单元格的文本内容。它等价于下面的代码：

MSHFlexGrid1.Rows =i

MSHFlexGrid1.Cols =j

MSHFlexGrid1.Text =指定的字符串

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

二．例程分析：

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

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

主要代码如下：

lastcol = 1

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

Data1.DatabaseName = App.Path & "\db1.mdb"

Data1.RecordSource = "成绩表"

'进行非绑定显示

Data1.Refresh

Data1.Recordset.MoveFirst

MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数MSFlexGrid2.GridColor = vbBlue '网格颜色

MSFlexGrid2.ForeColor = vbRed '字体颜色

MSFlexGrid2.GridLines = 1 '设置网格线的属性

MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序，默认为1 MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色

Dim i%

Dim j%

'设置列头文本

For i = 1 To MSFlexGrid2.Cols - 1

MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name Next i

'设置数据

For i = 1 To MSFlexGrid2.Rows - 1 '控制行

For j = 1 To MSFlexGrid2.Cols - 1 '控制列

MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value

Next j

Data1.Recordset.MoveNext

Next i

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

MSFlexGrid2.Col = 0

MSFlexGrid2.Row = 2

Set MSFlexGrid2.CellPicture = LoadPicture(App.Path & "\cell.bmp")

End Sub

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

Private Sub MSFlexGrid2_Click()

MSFlexGrid2.Row = lastrow

MSFlexGrid2.Col = lastcol

MSFlexGrid2.CellBackColor = vbWhite

MSFlexGrid2.Row = MSFlexGrid2.MouseRow

MSFlexGrid2.Col = MSFlexGrid2.MouseCol

MSFlexGrid2.CellBackColor = vbCyan

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

'实现编辑功能

Private Sub MSFlexGrid3_DblClick()

Text1.Visible = False

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

If firstclick = True Then

lastclickrow = MSFlexGrid3.Row

lastclickcol = MSFlexGrid3.Col

Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)

End If

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

Dim LeftOfText% '文本框的left属性

Dim TopOfText% '文本框的top属性

Dim selrow% '当前行

Dim selcol% '当前列

selrow = MSFlexGrid3.Row

selcol = MSFlexGrid3.Col

LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 45

TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 45

Text1.Move LeftOfText, TopOfText, 930, 200

Text1.Visible = True

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

If firstclick = False Then

MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text

lastclickrow = MSFlexGrid3.Row

lastclickcol = MSFlexGrid3.Col

End If

Text1.Text = MSFlexGrid3.TextMatrix(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 ' 侦听

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

甲机客户机要先请求连接

sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort

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

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

if sckserver.count=1 then

load sckserver(1)

sckserver(1).accept requestId

end if

end sub

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

sckconnect.SendData 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 sckconnect.state <>sckclosed then

sckconnect.close

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<=sckserver.ubound '检查是否已经有该地址的记录

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 sckserver.count

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光盘中在common\tools\vb\unsupport\systemTray 中有一个现成的程序，我们只要把它编译成systray.ocx 控件，然后在编写自己的程序时添加此控件即可。其使用方法十分简单，它已经定义好了鼠标单击、双击等事件，你只需编写相

应的鼠标事件即可，这里不再多说。

程序的关键是：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

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

sckserver.SendData myfile

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

远程机代码如下：