第8章数据库编程
教学目标：
上一章已经介绍过基本的数据库操作语句，这是进行Visual Basic 6.0数据库编程的基础，本章将进一步介绍Visual Basic中的数据控件、编程方式等内容。
在Visual Basic中与Jet数据库引擎接口的方法有两种：Data控件和数据访问对象（DAO）。Data控件只给出有限的不需编程而能访问现存数据库的功能，而DAO模型则是全面控制数据库的完整编程接口。Data控件将常用的DAO功能封装在其中，它与DAO控件的关系就好像内存与CACHE之间的关系一样，所以这两种方法并不是互斥的，实际上，它们常同时使用。
本章将介绍Visual Basic提供的用于编写数据库应用程序的基本控件，并通过一些使用的程序来演示这些控件的使用技巧。
教学重点与难点：
Visual Basic数据库编程的基本概念和编程方式
使用数据控件进行编程的基本步骤
数据邦定控件
数据访问对象
ADO技术
336
Visual Basic 6.0 编程实用教程
8.1 数据库编程基本概念
目前使用的数据库管理系统主要包括：文件管理系统、层次数据库系统、网状数据库系统和关系数据库系统。其中关系数据库使用最为广泛，目前几乎所有的数据库系统都是关系数据库，例如Sybase、SQL Server、Oracle等。关系数据库又称为Relational Database，有若干表和视图组成，其中表是数据存储的基本物理单位。下面介绍一下数据库中的一些常见基本概念：
?表（Table）：表是数据存储的基本物理单位，由行和列组成（或者称为记录和字段），用于存储二维表信息，例如员工信息表中，每一行对应一名员工，在每一行中，包括员工的编号、姓名、性别、住址等信息。
?字段（Field）：字段是表的一个基本组成单位，表中的每一列又称为一个字段。每个字段中的数据含义相同，并且有相同的数据类型和宽度。
?记录（Record）：记录也是表的一个基本组成单位，表中的每一行又称为一条记录。每一条记录都应当包含全部的字段。
?索引（Index）：索引是数据库中的一种特殊的数据结构，主要目的是为了加快数据库的访问速度。一个表中可以设置多个索引。
?主键（Primary key）：主键用于唯一的表示一行记录，主键值不能重复。一个表中只能有一个主键。
8.1.1 数据库操作技术
数据库是一个数据库应用程序的核心，里面包含了应用程序中的要处理的数据。数据库的设计对于一个应用程序来说至关重要，可以影响到数据库应用程序的整体性能。在程序的开发过程中，数据库的改变对应用程序的修改很大，有时候即使一个小小字段的数据类型的修改，也要让许多模块进行重新设计。例如将一个原来为int类型的字段变成了varchar类型，那么在用到该字段的所有模块中就要重新修改对该字段数据进行处理的代码，必要时还要修改模块间的关系等。可见，一个设计优秀的数据库可以为整个工程的开发带来不可估量的效益。
对于数据库的操作包括以下内容：
?数据库的操作：包括数据库的创建、。修改和删除
?数据表的操作：包括数据表的创建、修改和删除
?视图的操作：包括视图的创建、修改和删除
?索引：包括索引的创建、修改和删除
?字段：包括字段的定义、修改、删除和计算字段的定义
8.1.2 网络数据库的网络拓扑结构
网络数据库根据不同的拓扑结构主要分为两大类：一种是传统的客户/服务器模式；另一类是多层分布式模式。客户/服务器（Client/Server）是比较早的流行的一种技术，其网络拓扑结构如图8-1所示。
第8章数据库编程337
客户机客户机客户机
图8-1 客户/服务器模式网络拓扑结构
客户端计算机中安装有应用程序，可以通过网络访问在服务器上的数据库，服务器则集中处理客户端对数据库的访问请求。使用客户/服务器模式开发应用程序很容易实现，但是该模式有这不可避免缺点，例如这种模式开发的应用程序不容易维护，一旦程序有改动就要在每个客户机上重新安装应用程序。
近几年随之网络技术的进一步发展，多层分布式开发逐渐流行起来。最常见到的多层分布式应用程序是在原来两层结构的基础上，将中间的商业逻辑从客户端提取出来，放在独立的服务器上，从而形成三层结构的应用程序，如图8-2所示。
三层结构的应用程序具有很多的优点：
?独立的中间层商业逻辑，可以让不同的客户端共享，这样避免了每个客户端的冗余。同时即使商业逻辑改变，只要修改中间层即可，客户端的程序不需要修改，可以大大的降低维护费用。
?客户端由于没有了商业逻辑，因而可以作的很“瘦”，形成瘦客户。
?中间层应用服务器主要负责商业逻辑的计算、可以提高整个系统的效率。
?提高了数据库的安全性。
8.1.3 ODBC连接技术
在Visual Basic中可以使用ODBC数据原的内容，实际上一些大型的数据库管理系统也都提供了对ODBC数据接口的支持，例如Sybase数据库。
ODBC数据源的管理是通过Windows中的ODBC数据原管理器完成的，在Windows任务栏上单击【开始】|【设置】|【控制面板】|【管理工具】|【数据源(ODBC)】，打开“ODBC 数据源管理器”对话框，如图8-3所示。
Visual Basic 6.0 编程实用教程
338
客户机
图8-2 三层结构的拓扑结构
图8-3 “ODBC 数据源管理器”对话框
在该对话框中可以完成添加、配置和删除系统ODBC 数据源、用户数据源、文件数据源。
8.1.4 ADO 连接数据库技术
ADO （ActiveX Data Objects ）是Microsoft 提供的一个数据访问标准，使用ADO 连接，开发人员不再需要将数据库驱动程序打包到安装程序中，因为目前几乎所有的Windows 操作系统都支持ADO 连接。同时微软公司也提供了单独了ADO 连接驱动程序，用户可以单独安装，开发人员将不在考虑数据库驱动的问题。
ADO 同时支持访问本地数据库和远程数据库，访问本地数据库时ADO 的一般处理方法如下： （1）连接到数据源，开始一个事务 （2）执行SQL 命令 （3）如果命令返回数据集，则将数据存储在缓存中
第8章数据库编程339
（4）对数据进行操作
（5）用缓存中的数据更新数据集
（6）接受或者拒绝对数据库的修改，结束事务
访问远程数据库时ADO的一般处理方法如下：
（1）指定服务器上被调用的程序和调用途径
（2）调用服务程序，通过服务程序从数据源中获得数据集，并将数据集返回到客户应用程序
（3）在客户端，将服务程序返回的数据集显示给用户
8.2 Visual Basic数据库编程方式
Visual Basic提供了强大的数据库管理系统，即著名的Jet数据库引挚（DB Engine）和控制它的工具。Jet即Joint Engine Technology （数据连接性引擎技术）的简写，是一种基于工作站通过DAO的数据库访问机制。Jet管理了有关更新和修改数据库的所有实际工作，而Visual Basic为Jet投入工作提供了两个更高层的手段：数据控件（Data Control）和数据访问对象（Data Access Object，DAO）。
数据控件（Data Control）
数据控件是访问Jet的最容易的方法。使用数据控件可以不写一行代码就开发一个数据库应用程序。对于编写简单的数据库程序而言，使用数据控件编写数据库应用程序是最简单而有效的方法。
数据访问对象（DAO）
数据访问对象为在Visual Basic中完成数据库的操作提供了完整的解决方案，使用DAO 不仅可以访问和修改数据库中的记录，还可以创建新的数据库以及用来修改已用的数据库的结构。与数据控件相比，DAO功能更强但稍为复杂（只是相对而言，事实上DAO的使用并不复杂）。
8.3 数据控件
同Visual Basic中其他基本控件一样，数据控件可以在Visual Basic中的工具箱中找到，Data控件在工具箱中的位置如图8-4所示。
340
Visual Basic 6.0 编程实用教程
图8-4 数据控件
数据控件的使用同其他控件的使用相似。要使用Data 控件，先得把它拖进窗体中，Data 控件拖到窗体后的效果如图8-5所示。
图8-5 窗体中的数据控件
8.3.1 基本属性
要使用数据控件，首先要掌握它的几个属性。图8-6为数据控件的属性窗口。
DatabaseName
返回/设置一个数据库的名称和位置。Data控件总是同一个数据库（管理系统）绑定在一起的，Databasename用于指定所绑定的数据库。对于不同的数据库的数据类型，DatabaseName 的设置也不相同，表8-1列出了常用数据库DatabaseName属性的设置。
表8-1 常用数据库DatabaseName属性的设置
数据库DatabaseName
Microsoft Access .mdb文件
dBase 包含.dbf文件的目录
Foxpro 包含.dbf文件的目录
第8章数据库编程341 Lotus 包含..wk1….wk4或.wks文件的目录
Paradox 包含.pdx文件的目录
Microsoft Excel 包含.xls文件的目录
图8-6 Data控件属性窗口
RecordsetSource
返回/设置一个数据控件的底层表、SQL语句或QueryDef对象。一个数据库由一个或多个表组成，Data 控件只能跟其中一个相关联，这个属性可以用来指定使用数据库中的哪个表。
RecordsetType
指定了数据控件所使用的记录集类型。可以有三种取值：
?0—Table：表
?1—Dynaset：动态集
?2—Snapshot：快照
BOF属性和EOF属性
BOF属性返回一个值，指明当前记录是否是第一个记录。若值为True，则表明当前记录是第一个记录；若返回False，则表明当前记录不是第一个记录。
EOF属性同样也返回一个值，指明当前记录是否最后一个记录。若返回True，则表明当前记录是最后一个记录；若返回False，则表明当前记录不是最后一个记录。
BOFAction属性和EOFAction属性
BOFAction和EOFAction属性用于返回一个值，该值指示在BOF或EOF属性为True时数据控件进行什么操作。
342
Visual Basic 6.0 编程实用教程
当BOF（EOF）属性为True时，再向后（前）移动记录就会超出记录集范围，这时所引发的操作决定于BOFAction属性（EOFAction属性）的设置。
BOFAction属性的设置及其含义如表8-2。
表8-2 BOFAction属性的设置及其含义
值常数说明
0 VbBOFActionMoveFirst 使用MoveFirst方法，来指定当前记录位于记录集
的起点，并能有效地阻止超过记录集的起点
指定当前记录为无效的（BOF）记录，并使Data
1 vbBOFActionBOF
控件上的MoveFirst按钮失效
EOFAction属性的设置及其含义如表8-3。
表8-3 EOFAction属性的设置及其含义
值常数说明
使用MoveLirst方法，来指定当前记录位于记录集的起
0 NbEOFActionMoveLirst
点，并能有效地阻止超过记录集的终点
指定当前记录为无效的（EOF）记录，并使Data控件上
1 vbEOFActionEOF
的MoveNext按钮失效
使最后的记录有效和自动地调用AddNew方法，然后指
2 vbEOFActionAddNew
定Data控件位于新记录上
BOFAction的设置并不会对程序产生很大的影响，不管如何设置该属性效果都是差不多的；而EOFAction属性在编程中却有不小的作用。如果将EOFAction属性设置为vbEOFActionAddNew，一旦用户使用Data控件将当前记录指针移动到EOF，当前记录就被定位于复制缓冲区的新记录上，此时可以编辑新添加的记录。如果对新记录作出改变，随后移动当前记录指针，则该记录被自动追加到Recordset中。如果未改变记录而移动当前记录指针，则该新记录被放弃。
将EOFAction属性设置为2，便可以往记录集尾部增加新的记录了。这将有助于进一步完善我们的数据库程序，我们将会在后面的例程用到这个属性。
8.3.2 使用数据控件进行编程的基本步骤
使用数据控件进行编程可以总结为五个步骤，下面通过一个简单的图书馆读者信息查询系统来演示使用数据控件开发数据库应用程序的基本过程。
1. 准备数据库
可以用Access或其他数据库工具来创建一个数据库，也可以使用Visual Basic 6.0自带的数据库管理器。可以从Visual Basic 6.0的“外接程序”菜单中的“可视化数据库管理器”选项来启动数据库管理器，如图8-7所示。由于篇幅所限，本书不再介绍具体创建过程。
第8章数据库编程343
图8-7 数据库管理器主界面
本例以一个Access数据库（library.mdb）为操作对象，该数据库中有三个表：book表、lend表、student表，读者信息存储在student表中。该表有五个字段：学号、姓名、性别、班别、借书数。可以在数据库管理器中查看该表结构，如图8-8所示。
图8-8 student表结构图
2. 创建窗体、添加控件
这与其他程序的创建步骤基本相同，需要说明的是，要显示数据库中的数据，必须给Data 控件添加数据绑定控件。所谓数据绑定控件即是一些和数据库中的表的某个字段建立了关联的控件。当这些字段的值发生了改变的时候，相应的数据绑定控件的值也会发生改变。反之，若改变的是控件的值，当数据指针移到另一条记录时，这些修改也会被自动地保存在数据库文件中。可以作为数据绑定控件的Visual Basic 6.0标准控件包括：
344
Visual Basic 6.0 编程实用教程
?复选框（CheckBox）
?图像（Image）
?标签（Label）
?图片框（PictureBox）
?文本框（TextBox）
?列表框（ListBox）
?组合框（ComboBox）
?OLE容器控件（OLE）
这些控件在前面都已经介绍过了，这里不再赘述。
可以作为数据绑定控件的Visual Basic 6.0附带的ActiveX控件包括：
?DBListBox
?DBComboBox
?MaskedEdit
本例使用了一个Date控件和五个文本框（作为数据绑定控件）。完成操作后工程窗体如图8-9所示。
图8-9 设计阶段窗体
3. 设置控件属性、绑定控件
关键是设置数据控件及数据绑定控件几项与数据有关的属性。首先是数据控件属性的设置，具体设置参见图8-10。
图8-10 数据控件属性设置
其次是设置数据绑定控件的相关属性，如图8-11所示。数据控件设置完毕之后，便要分
第8章数据库编程345
别对各个数据绑定控件进行设定。需要设置的属性有：
?DataSource：设置一个数值，指出数据控件通过它将当前控件绑定到数据库。
?DataField：设置一个数值，将控件绑定到当前记录的一个字段。
?DataFormat：返回Database对象，用于该控件的可绑定属性。
?DataMember：返回／设置一个数值，为数据库连接描述Datamember。
本例子中要为数据绑定控件设置的属性是DateSource及DataField。下面以text1为例演示了数据绑定控件的设置方法。
DataSource设置为Data1，即数据控件名。
Text1要显示的是学号，即student表中的“学号”字段。因此DataField设置为“学号”。其他数据绑定控件的设置与Text1相似。
图8-11 数据绑定控件属性设置
4. 编写代码
使用数据控件可以一行代码也不写便可编出一个数据库应用程序，因此这里并不需要任何代码。
5. 保存、运行程序
程序运行后界面如图8-12所示，单击“下一个记录”按钮后界面如8-13所示。
图8-12 程序运行界面
346
Visual Basic 6.0 编程实用教程
图8-13 下一条记录
从上面的步骤可以看出，使用数据控件可以快速地建立一个数据库应用程序，程序设计的关键是数据控件和数据绑定控件属性的设置。
但是需要注意如下两点：
?一个数据控件同一时间只能跟一个表相关联，如果要同时访问多个表，可以使用多个数据绑定控件。
?如果你使用的不是Access数据库，那么DatabaseName的设置要作改变。
要创建一个真正实用的数据库应用程序，还必须掌握数据控件的更多特性。下面我们将从数据控件的几个重要属性开始，介绍数据控件更多的编程方法。
8.3.3 Recordset属性的应用示例
Recordset（记录集）是表示一个或几个表格中的对象集合的多个对象。在我们把数据控件跟数据库相关联后便会产生一个Recordset。这个记录集默认的类型是Dynaset，关于记录集的几种类型前面已作介绍。指定数据控件记录集类型的属性是RecordsetType。Dynaset类型的记录集是和原始的数据库中的表相关联的，因此，用户可以对Dynaset类型的记录集进行添加、删除、修改等操作，这些操作都会被保存到相应的数据库中。因此，对数据库的任何操作，都可以通过操作Recordset完成。
Recordset属性有点特殊——它代表一个Recordset对象，我们可以像操作其他对象一样操作Recoreset对象，包括使用它的方法和属性。下面将对常用的Recordset对象方法及属性作分类介绍。
定位记录集
Rcordset对象的MoveFirst、MoveLast、MovePrevious、MoveNext方法可以用于定位记录集。
?Object.MoveFirst：定位到第一条记录。
?Object.MoveLast：定位到最后一条记录。
?Object.MovePrevious：定位到前一条记录。
?Object.MoveNext：定位到后一条记录。
在前面的例子中使用了Data自带的定位记录集按钮，下面的例子将隐藏这些按钮，而使用重新定制的按钮。
同前面的示例一样，分五个步骤完成。需要的附加操作如下：
添加四个命令按钮：
第8章数据库编程347
Last
Caption = "最后一个"
Next
Caption = "下一个"
Previous
Caption = "上一个"
First
Caption = "第一个"
界面如图8-14所示。
图8-14 界面设计
属性设置中，将Data控件的visible属性设为false。
最后分别为四个按钮编写单击事件过程：
Private Sub first_Click()
Data1.Recordset.MoveFirst
End Sub
Private Sub last_Click()
Data1.Recordset.MoveLast
End Sub
Private Sub next_Click()
Data1.Recordset.AbsolutePosition<(Data1.Recordset.RecordCount - 1) Then
If
'确保记录指针不超出记录范围
Data1.Recordset.MoveNext
If
End
End Sub
Private Sub Previous_Click()
If Data1.Recordset.AbsolutePosition > 0 Then
'确保记录指针不超出记录范围
348
Visual Basic 6.0 编程实用教程
Data1.Recordset.MovePrevious
End
If
End Sub
最后，保存、运行程序。程序运行界面如图8-15所示。
图8-15 运行结果
查找指定记录
Move方法允许在记录集中每次移动一条记录。然而，许多情况下，我们希望可以根据特定条件去查找并定位一个记录。可以使用Find方法及Seek方法完成这一任务。
Visual Basic中支持四种Find方法：
?FindFist 查找满足指定条件的第一条记录。
?FindLast 查找满足指定条件的最后一条记录。
?FindNext 查找满足指定条件的下一条记录。
?FindPrevious 查找满足指定条件的上一条记录。
用Find方法时，可以指定查找条件，下列代码阐述了如何在student表中查找学号为1111114的记录。
data1.recordset.findfirst “学号=1111114”
find方法可用于dynaset类型及快照类型的记录集，而seek方法则只用于dynaset类型的记录集，seek方法的语法如下：
记录集.Seek comparison， key1，key2……
comparison的比较方式，可以为如下字符串：
?“=”与指定的键值相等。
?“>”大于或等于指定的键值。
?“>=”大于指定的键值。
?“<”小于指定的键值。
?“<=”小于或等于指定的键值。
Key为当前索引中关键字段的各种值。使用seek方法前必须先设置当前索引，否则会发
第8章数据库编程349
生一个运行时的错误。查找到匹配的记录后，当前记录将被定位于所找到的记录，而记录集的nomatch属性将为false，如找不到匹配的记录，则nomatch属性为true。
本例将演示如何在记录集中查找满足一定条件的记录。仍按照五个步骤来完成该程序。
? 1. 数据库设计
本例继续使用上两例中使用的library.mdb，但使用的是其中book表。book表中存放的是图书信息，它有六个字段：书号、书名、作者、出版社、总数、在库数目。
? 2. 界面设计
如图8-16所示设计好窗体。
图8-16 界面设计
? 3. 设置控件属性、绑定控件
本例中，数据控件的recordsource属性为book表，其他的操作与上两例相似，在此不再赘述。
? 4. 编写代码
切换到代码窗口，编写如下代码：
Dim condition As String
Private Sub booklist_Click()
bookData.Recordset.MoveFirst
condition = "书号='" & Left(booklist.List(booklist.ListIndex)，6) & "'"
bookData.Recordset.FindFirst condition
End Sub
Private Sub search_Click()
Dim table As Recordset
Set table = bookData.Recordset
table.MoveFirst
Do
If InStr(table.Fields(way.Text)， keyword.Text) Then
booklist.AddItem table.Fields("书号") & " " & table.Fields("书名")
End If
350
Visual Basic 6.0 编程实用教程
table.MoveNext
Loop Until table.EOF
End Sub
Private Sub clear_Click()
booklist.clear
End Sub
? 5. 保存、运行程序
程序运行后输入字符“l”单击“查询”按钮，查询结果如图8-17所示，数据库中所有书名中带有“l”的书都被加进了列表中。
图8-17 查询结果
此外，还可以使用书签（bookmark）进行快速定位，书签可以保存当前记录指针，并可随时重定位到书签中保存的记录位置。下面的代码演示了书签的使用方法。
dim mybookmark as variant
mybookmark=data1.recordset.bookmark '保存当前记录指针
data1.recordset.movefirst '离开该记录
data1.recordset.bookmark=mybookmark '移到书签保存的位置
访问记录集
可通过Recordset 的fields属性访问记录集中的当前记录的各个字段。以下代码演示了引用一个集合中特定字段的value属性的几种方法。要说明的是“.Field”、“.value”在代码中是可以省略的，因为它们是缺省属性。
Data1.recordset.fields(0).value
Data1.recordset.fields(0)
Data1.recordset(0)
以上三个表达式等效，同样地，下面三种表示也是等效的。
data1.recordset.fields("学号").value
data1.recordset.fields("学号")
第8章数据库编程351 data1.recordset("学号")
更改记录集
常见的更改记录集操作包括增加、删除、修改记录。要在数据库中更新信息，Data控件的readonly属性应为false。快照型的记录集不可更改。
Visual Basic中记录集更新的各种操作及所用方法如下：
?修改记录：recordset.Edit。使用edit方法之后，便可以在程序代码中修改当前记录中各字段的值。
?增加记录：recordset.Addnew。该方法使用后，将在记录集后面增加一记录。新记录中各字段值使用缺省值，如果没有指定缺省值则用空值（null），如果某个字段不能为空值而又没有指定缺省值，则必须在使用addnew 方法之后给该字段赋值，否则会出错。在程序编写中，使用 addnew方法后应将记录指针移动到新的记录（movelast），以便用户输入新记录的数据。
?删除当前记录：recordset.Delete。使用该方法后，将删除当前记录。在编程中使用delete方法后应该移动记录指针到其他位置，因为已删除的记录不再包含有效数据，继续访问这一数据将会出错。
?保存更改操作：recordset.Update。要保存对数据库所作的改变，必须在使用edit、addnew、delete方法后使用update方法。
接下来进一步晚上前面所编写的图书管理程序，借书操作流程如下：
1. 输入读者学号，输入完毕显示读者的信息（student表）。
2. 输入书号，输入完毕显示图书信息（book表）。
3. 单击确定按钮，此时student表中当前记录的“已借书数”字段值加1（在本例中，假设每个读者最多只能借三本书，因此已借书数不能大于3 ），而book表中当前记录的“在库数目”字段值减1（要求在库数目必须大于0），同时，一条新的记录被写入lend表中，该记录有两个字段，分别是读者学号及图书书号。
步骤3是关键所在，我们将在该步中通过代码对数据库中的数据进行修改。
下面开始本程序的制作过程，依旧采用五步式。
? 1. 数据库设计
本例继续使用数据库library.mdb，所用的表除了student、book外，还增加了一个lend表，该表用于记录图书的出借信息，它只有两个字段：“学号”和“书号”。
? 2. 界面设计
如图8-18所示设计好本程序的界面。
352
Visual Basic 6.0 编程实用教程
图8-18 界面设计
由于本例同时使用了三个表，故必须分别用三个data控件与三个表绑定。
? 3. 设置控件属性、绑定控件
本例中分别用两组数据绑定控件与student表及book表，以显示读者信息及图书信息。
? 4. 编写代码
Private Sub bnum_Change()
If Len(bnum.Text) = 6 Then
bookData.Recordset.MoveFirst
condition = "书号='" & bnum.Text & "'"
bookData.Recordset.FindFirst condition
End If
Call comfirmdata
End Sub
Private Sub snum_Change()
If Len(snum.Text) = 6 Then
stuData.Recordset.MoveFirst
condition = "学号='" & snum.Text & "'"
stuData.Recordset.FindFirst condition
End If
Call comfirmdata
End Sub
Private Sub Command1_Click()
condition = "学号='" & snum.Text & "' and 书号='" & bnum.Text & "'"
lendData.Recordset.FindFirst condition
If lendData.Recordset.NoMatch = False Then
MsgBox "读者已借有该书"
Exit Sub
End If
第8章数据库编程353
If stuData.Recordset.Fields("借书数") < 3 Then
stuData.Recordset.Edit
stuData.Recordset.Fields("借书数") = stuData.Recordset.Fields("借书数") + 1
stuData.Recordset.Update
Else
MsgBox "该读者已经借了三本书"
Exit Sub
End If
If bookData.Recordset.Fields("在库数目") > 0 Then
bookData.Recordset.Edit
bookData.Recordset.Fields("在库数目") = bookData.Recordset.Fields("在库数目") - 1
bookData.Recordset.Update
Else
MsgBox "该书已全部借出"
Exit Sub
End If
lendData.Recordset.AddNew
lendData.Recordset.Fields("学号") = stuData.Recordset.Fields("学号")
lendData.Recordset.Fields("书号") = bookData.Recordset.Fields("书号")
lendData.Recordset.Update
MsgBox "操作成功"
Command1.Enabled = False
End Sub
Public Sub comfirmdata() '确认数据的合法性
If sname.Text <> " " And bname.Text <> " " Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
? 5. 保存、运行程序
运行程序，分别输入读者信息及图书信息，如图8-19所示，单击“确定”按钮。如果图书在库数目不为0且读者已借书数小于3，则操作成功，如图8-20所示；否则操作失败，如图8-21所示。
354
Visual Basic 6.0 编程实用教程
图8-19 输入读者及图书信息
图8-20 操作成功
图8-21 操作失败
8.4 数据绑定控件
前面已经对Visual Basic 6.0中的数据绑定控件作了基本介绍，本节中我们将介绍几个常用数据绑定控件的用法。
8.4.1 DBListBox与DBComboBox
DBListBox 及DBComboBox属于ActiveX 控件，这两种控件与标准列表框和组合框十分相似，但也存在着明显不同之处。这两个控件可以从所绑定的Data控件中用数据库的字段直接进行填充，可以把选定的字段传递给另外一个Data控件等等。这些特点使得应用程序更灵活，更便于交互。
1.定义一些变量 Public IniFileName As String, vbNullString As String, maxSize As Long, section1 As String, section2 As String 2.初始话这些变量 Public Function initial() IniFileName = App.Path & "" & "config.ini" vbNullString = "" maxSize = 255 section1 = "basics" section2 = "others" temp_str = String(255, 0) '建立缓冲区 End Function 3.声明INI函数 Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As String, _ ByVal nDefault As Long, _ ByVal lpFileName As String) As Long Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long 4.调用函数 dim source as string
https://www.doczj.com/doc/063251014.html, 入门教程 摘要：《Visual Basic .NET 入门指南》介绍了Visual Basic 语言的几种新功能，从而能充分利用 .NET 平台。下面的示例应用程序示范了如何构建一个实现QuickSort 算法的简单Visual Basic .NET 项目来。 下载Quicksort_Visual_Basic_.NET.exe。 简介 Visual Basic .NET 将许多新的功能引入Visual Basic 语言，使之能够充分利用 .NET 平台。以前版本的程序员将需要稍作调整才能转到 .NET 版本上。 下面的示例应用程序示范了如何构建一个实现QuickSort 算法的简单Visual Basic .NET 项目来。它包括了Visual Basic .NET 程序的基本组成部分：读/写控制台和文件、创建函数和使用基本数组。 这些入门指南并不打算涵盖该编程语言的所有方面。它们只是您探索这种语言的一个起点。我们鼓励您按照本教程的说明执行，因为它包括了QuickSort 应用程序的各个不同部分。您还可以获得完整的源代码和项目文件。 建议的要求 编译此示例应用程序需要Visual https://www.doczj.com/doc/063251014.html,（测试版2 或更高版本）。关于Visual Basic 的知识是有帮助的但不是必需的。 步骤 1. 开始项目 Visual Studio 中的开发工作以解决方案的形式进行组织，每个解决方案包含一个或多个项目。在本教程中，我们创建的解决方案包含一个Visual Basic 项目。 创建一个新项目 1. 在Visual Studio .NET 环境中，从菜单中选择File | New | Project。 2. 在左侧选择Visual Basic，然后在右侧选择Console Application。
经典VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。
（一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； ③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。 4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口
VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。 （一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic 6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等；
VB教程网https://www.doczj.com/doc/063251014.html,/VBjc/Vb.HTM
编写趣味撞球小游戏 文章来源：沐风经典文章作者：佚名 Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。 首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。 现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。 然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。 到此为止，我们已经完成了全部的界面设计工作。接下来要做的全部工作就是填入程序
VBNET数据库编程基础教程 众所周知，https://www.doczj.com/doc/063251014.html,自身并不具备对数据库进行操作的功能，它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，https://www.doczj.com/doc/063251014.html,又是.NET FrameWork SDK中重要的组成部分。要了解https://www.doczj.com/doc/063251014.html,的数据库编程，首先要明白https://www.doczj.com/doc/063251014.html,的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍https://www.doczj.com/doc/063251014.html,数据库访问对象以及https://www.doczj.com/doc/063251014.html,数据库编程基本方法。 一、https://www.doczj.com/doc/063251014.html,数据库访问对象 (一)https://www.doczj.com/doc/063251014.html,简介 https://www.doczj.com/doc/063251014.html,是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。https://www.doczj.com/doc/063251014.html,的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server 7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此ADO.NE T中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Acces s数据。 (二)https://www.doczj.com/doc/063251014.html,的名称空间 https://www.doczj.com/doc/063251014.html,是围绕System.Data基本名称空间设计，其他名称空间都是从Syste m.Data派生而来。它们使得https://www.doczj.com/doc/063251014.html,不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。 当我们讨论https://www.doczj.com/doc/063251014.html,时，实际讨论的是System.Data和System.Data.OleDb 名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这里我们讨论与后文实例有关的类。即OleDbconnection、OleDbDataAdapter、D ataSet和DataView。 上面列举的类中没有OleDb前缀的，派生自System.Data空间，有此前缀的派生自System.Data.OleDb空间。在使用中，如果要引用OleDb前缀的类，必须导入System.Data.OleDb名称空间。语法如下： Imports System.Data.OleDb 使用没有此前缀的类必须导入System.Data名称空间。语法如下： Imports System.Data
实验1 https://www.doczj.com/doc/063251014.html,环境和可视化编程基础 一、实验目的 1.熟悉https://www.doczj.com/doc/063251014.html,的集成开发环境Visual Studio 2005。 2.掌握启动与退出Visual Studio 2005的方法。 3.掌握建立、编辑和运行https://www.doczj.com/doc/063251014.html,应用程序的全过程。 4.掌握常用控件窗体、文本框、标签、命令按钮、定时器和图片框的使用。 二、实验预备知识 1.基本概念 （1）面向对象的程序设计 面向对象的程序设计是一种以对象为基础、以事件驱动过程执行的程序设计技术。过程执行的先后次序与程序设计者无关，取决于用户的操作。 https://www.doczj.com/doc/063251014.html,事件驱动过程执行的步骤如下： ①启动应用程序，装载和显示窗体； ②窗体(或窗体上的控件)等待事件的发生； ③事件发生时，执行对应的事件过程； ④重复执行步骤②和③， （2）对象 对象是具有某些特性的具体事物的抽象。例如：控件(按钮、标签等）和窗体都是对象。对象的三要素是属性、事件和方法。 （3）类 类是同种对象的集合与抽象，是创建对象实例的模板。对象是类的一个实例。 （4）属性 属性描述了对象的性质，决定了对象的外观。例如一般控件对象有控件名称（Name）、文本（Text）等属性。不同的对象具有各自不同的属性。 （5）事件 发生在对象上的事情或消息称为事件。同一事件，对不同对象会引发不同的反应。https://www.doczj.com/doc/063251014.html,为对象预先定义了一系列的事件。事件过程就是应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程代码。 （6）方法 方法是一个对象自己能做的事情，是通过系统设计好的特殊的过程和函数来实现。与事件相比，事件是被外在条件激活的被动的；而方法是主动的。事件中的过程要自己编写程序代码；而方法由系统定义代码，可直接调用。 https://www.doczj.com/doc/063251014.html,窗口 （1）窗体窗口 窗体窗口可分为窗体设计和窗体运行窗口。窗体设计窗口指的是在设计应用程序时，用户在窗体上建立https://www.doczj.com/doc/063251014.html,应用程序的界面。窗体运行窗口指的是用户看到的正在运行的窗口，用户可通过与窗体和控件交互得到相应的结果。
第一章认识VB6 第一节VB简介 一、Visual Basic是什么？ Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。 何谓Visual Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI 有直接关系。专业人员可以用Visual Basic 实现其它任何Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。 二、能用Visual Basic 干什么呢？ Visual Basic 所做的很多事情一点也不简单。它是一种强大的语言，即您所能想到的编程任务，它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象；从处理文字图象到使用数据库；从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在Visual Basic 提供的工具中各取所需。 VB是微软公司的一种通用程序设计语言，包含在Microsoft Excel、Microsoft Access 等众多Windows应用软件种的VBA都使用V B语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。 利用VB的数据访问特性，用户可以对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。 三、关于V B语言的前景 在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了。 从1991年VB诞生之日起到现在已经有七个版本了（最新.NET版）这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手， 对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 我们这些所谓的VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数
第2章https://www.doczj.com/doc/063251014.html,语法基础 在进行https://www.doczj.com/doc/063251014.html,程序设计之前，首先要选择一种https://www.doczj.com/doc/063251014.html,编程语言。https://www.doczj.com/doc/063251014.html, 的默认语言是Visual https://www.doczj.com/doc/063251014.html,，当然也可以使用C#。本书主要介绍Visual https://www.doczj.com/doc/063251014.html,，并且书中所有的例子都用Visual https://www.doczj.com/doc/063251014.html,来编写。 本章介绍一些Visual https://www.doczj.com/doc/063251014.html,的初步知识，关于https://www.doczj.com/doc/063251014.html,的高级编程知识请读者参阅其他相关图书。 Visual https://www.doczj.com/doc/063251014.html,是继Visual Basic 6.0之后新发布的Visual Basic的全新版本。如果您是一个Visual https://www.doczj.com/doc/063251014.html,的高手的话，可以跳过这一部分，从第3章开始学习。 学完本章后，读者将能够： (1) 了解为什么选择https://www.doczj.com/doc/063251014.html,作为https://www.doczj.com/doc/063251014.html,程序设计的首选语言； (2) 了解变量、常量和表达式的知识； (3) 会使用条件、循环语句； (4) 了解如何使用过程和函数。 2.1 编程语言的选择 由于https://www.doczj.com/doc/063251014.html,只是一个程序设计环境，要在这个环境中进行程序设计，必须选择一种语言。在早期的ASP中，默认使用的语言是VBScript脚本语言。由于.NET Framework 已经支持VB等非脚本的高级语言，所以完全没有必要再去使用VBScript，但是原来用VBScript写的程序在https://www.doczj.com/doc/063251014.html,中仍然可以执行，因为.NET环境仍然支持VBScript的语法。 2.1.1 .NET支持的语言 .NET为用户提供了三种程序设计语言：Visual https://www.doczj.com/doc/063251014.html,、C#和Jscript。本节分别介绍这三种语言。 Visual https://www.doczj.com/doc/063251014.html,是VB最新的版本，从功能和性能上讲可以说有了很大的飞跃。首先，早期的VB版本不完全支持面向对象的程序设计，由于它不支持对象的继承和重载，所以产生了很多问题。另外，早期的VB版本无法创建多线程的应用程序，这样就不能够充分利用机器的资源，也不能很好地提高应用程序的执行效率。但是现在，由于https://www.doczj.com/doc/063251014.html,使用了CLR，这些问题都很好地得到了解决。 对于C#，可以认为它是在C、C++的基础上创立的一种新的语言。它继承了C++的优异功能，去除了在.NET环境中没有用处的类型定义、模板等功能，使得C#与C++相比，更加易于使用，同时效率也大大提高。
VB最简单入门教程 目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)
1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。
这些游戏以前玩过吧，快下载看它们 是怎么编写的！ 目录： ·编写趣味撞球小游戏 ·用VB6.0设计简易赛车游戏 ·Visual Basic小游戏：猜英雄 ·VB游戏写作技巧（1）秀图篇 ·VB游戏写作技巧（2）网络篇 ·VB 贪吃蛇单人版游戏(一) ·VB 贪吃蛇单人版游戏(二) ·VB 贪吃蛇单人版游戏(三) ·VB 贪吃蛇单人版游戏(四) ·用VB开发即时战略游戏 正文： 编写趣味撞球小游戏 文章来源：沐风经典文章作者：佚名 Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。 首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。 现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。 然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控
第一章 Visual Basic介绍 第二章用户界面设计 第三章编程的基础（含变量，常量，条件语句，循环语句，自定义变量，自定义过程，对象和类等基础） 第四章 Windows 95的新控件Visual Basic的输入输出 第五章 Visual Basic的鼠标事件和绘图 第六章 Visual Basic的数据库、报表、预览、打印 第七章从文件中存取资料 第八章发行应用程序 第九章使用Windows API和用Visual Basic建立自己的屏幕保护程序 第十章创建ActiveX控件 第十一章ActiveX文档 第十二章用对象链接与嵌入（OLE）扩展Visual Basic 第十三章使用资源文件 第十四章用Visual Basic建立ActiveX DLL 第十五章用Winsock控件进行Internet通信 第十六章 Web浏览控件 第一章Visual Basic介绍 §2 窗体和命令钮介绍 一、窗体 窗体是Windows的基本组成部分，这也是为什么这个操作系统叫Windows的原因。它的主要属性除上面介绍的以外，还包括： 1，Appearance属性 这个属性用来决定控件是否采用三维效果。 2，BorderStyle属性 这个属性决定了窗体的边框形式，共有6种属性值。改变窗体的BordrStyle属性后，窗体在屏幕上没有变化，它只在运行时才变为你所要求的样子。 3，ControlBox属性 程序员用来决定采用不采用控制框的属性，仅在程序运行时才有效。 4，Font属性 程序员可以改变该窗体上显示信息的字体，它控制着直接在窗体上打印的文本显示。 5，Icon属性 这个属性是用户经常要使用的一种属性。当用户的应用程序在工具条上最小化或在Windows桌面上变为一个独立应用程序时，该属性决定将采用何种图标，窗体控制框里的图标也由它决定。为自己的窗体设置该属性时，要控制住自己挑三拣四的冲动。 6，Visible属性 该属性决定窗体是否可见。错误地改变其值是很危险的，窗体会从眼前消失，这种莫名其妙的事情会使用户惊惶失措，所以肩负重任的程序员一定要慎重哟！ 7，WindowState属性 指定窗体在运行时的三种状态：正常、最小化、最大化。
关于Visual Basic 6.0类开发(vb 类模块学习入门教程) 关于Visual Basic 6.0类开发(上) -------------------------------------------------------------------------------- 对程序员和编程爱好者来说，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