VB控件深度解析：DataGrid实例与美化教程

需积分: 33 168 浏览量更新于2024-07-26 收藏 332KB PDF 举报

本资源是一份详细的VB控件教程，重点介绍了DataGrid控件的使用方法和相关属性设置。DataGrid控件在VB中扮演着电子数据表的角色，能够以行和列的形式展示Recordset对象中的数据，适用于创建允许用户读写数据库应用的界面。设计时，通过设置DataSource属性，DataGrid会自动填充数据并设置列标题，提供了高度的灵活性。开发者可以动态调整列结构，包括删除、添加或重新排列列，以及控制单元格样式，如设置背景颜色、字体信息、单元格间距和表格宽度。 Font属性是一个复杂的对象，它指向FontInfo类，该类包含了诸如字号、字体名称、粗体和斜体等属性。设置Font对象时，需要使用连接符(-)来访问这些内部属性，类似于.NET和C#中的属性访问方式。此外，教程还提到了DataGrid控件与早期VB5.0中DBGrid控件的兼容性，尽管两者在某些功能上存在差异，如DataGrid不支持DBGrid的“解除绑定模式”。可能的用法包括在程序运行时动态改变DataSource，实现不同数据源的展示，或者根据需求修改查询，以获取不同记录集。值得注意的是，虽然DBGrid控件包含在VisualBasic的Tools目录中，但在现代VB中，DataGrid作为更加强大且功能丰富的控件，更适合大部分场景的使用。学习这个教程，开发者可以掌握如何利用VB的DataGrid控件创建交互式的数据展示界面，提高应用程序的用户体验和数据处理能力。通过深入理解控件的工作原理和属性设置，可以更好地优化和定制自己的VB项目。

' 进行测试。如果测试失败，则隐藏这一列。

Dim i As Integer

' 隐藏除 ProductName 列之外的所有列。

For i = 0 To DataGrid1.Splits(0).Columns.Count - 1

If DataGrid1.Splits(0).Columns(i).DataField <> "ProductName" Then

DataGrid1.Splits(0).Columns(i).Visible = False

End If

Next i

' 隐藏除 UnitPrice 列之外的所有列。

For i = 0 To DataGrid1.Splits(0).Columns.Count - 1

If DataGrid1.Splits(1).Columns(i).DataField <> "UnitPrice" Then

DataGrid1.Splits(1).Columns(i).Visible = False

End If

Next I

使用 Bookmarks 和 SelBookmarks 跟踪记录

Bookmarks 和 SelBookmarks 提供了标记记录的一种手段。当编写应用程序中的特定功能（诸

如允许最终用户手工地选择多个不相邻的记录，进行所选记录的大批更新）时，这就很有必要。在

这些情形中，需要标记哪些记录已被选择，因此可以使用 SelBookmarks 集合及其属性。

有两个函数，分别是 CellText 和 CellValue 方法，需要标记才能正确执行。

标记用户的选择

SelBookmarks 集合包含所有选定的记录的书签。当最终用户手工选择记录时（即在单击时按

住 CTRL 键），每一个选定的记录的书签都会加入到该集合中。使用标准的循环，用户可以知道已

经选定了什么，也可以保存书签（因为可能需要恢复某个值），以及执行操作：

Dim i as Integer ' 计数器

Dim intCount As Integer

intCount = DataGrid1.SelBookmarks.Count - 1

ReDim arrSelBK(intCount) ' 声明用于保存书签的数组。

For i = 0 To intCount

ArrSelBK(i) = DataGrid1.SelBookmarks(i)

' 在此处执行操作。如果该操作必须被

' 取消，则退出该循环，然后使用该数

' 组来取消这些更改。

Next i

通过在程序中添加到 SelBookmarks 集合来选择记录

通过将记录添加到这个集合，也可以在程序中选定记录。例如，可能有一个显示指定的客户所

有订货的网格。如果要高亮显示该客户花费超过 $100 的所有记录，则对记录进行过滤，并将结果

书签添加到 SelBookmarks 集合。

Dim rs As Recordset

Set rs = Adodc1.Recordset

While Not rs.EOF

If rs!SupplierID = 12 Then

DataGrid1.SelBookmarks.Add rs.Bookmark

End If

rs.MoveNext

Wend

显示计算结果字段

假设在表中有一个名为 "Price" 的字段，并且想使用本地税率来计算表中每一项的税费。这

就是一个计算结果字段，可以通过修改 DataSource 的查询来计算这个值，并把这个值返回给

DataGrid 控件。

要在 DataGrid 控件中创建一个计算结果字段

1. 确认在机器上已为 Northwind 数据库建立了一个 OLE DB 数据源；如果还没有创建这样的

一个数据源，请按照“创建 Northwind 的 OLE DBData 连接”的步骤操作。

2. 在窗体上放置一个 ADO Data 控件和一个 DataGrid 控件。

3. 将 ADO Data 控件的 ConnectionString 属性设置为 Northwind 的数据源。

4. 设置 ADO Data 控件的 RecordSource 属性。在“属性”窗口中，单击“记录源”并输入

Select ProductName, UnitPrice,(UnitPrice * .082) As Tax From Products。

5. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。

6. 运行该工程。

与类模块一起使用 DataGrid 控件

如果想要访问以自定义格式或以 ODBC 驱动程序不直接支持的格式存放的数据，可以创建一个

类来封装该数据。然后可以编写该类的自定义函数来检索这些数据。这样该类就变成了一种数据源，

可以被任何数据使用者（如 DataGrid 控件）使用。

在这个类模块的 Initialize 事件中，首先通过声明一个作为 New ADODB.Recordset 的变量，

来创建一个 ADODB recordset 对象。在创建了这个 recordset 对象后，再添加字段，每个数据源

中的每个字段都要加入。然后使用合适的数据填充这个记录集。

注意也可以使用 OLEDB 示例提供者来创建一个数据源。关于 OLEDB 示例提供者的详细信息，

请参阅“创建带有数据提供方的部件”。

类模块有一个 GetDataMember 事件，只要当数据使用者（诸如 DataGrid 控件）需要数据时

就产生该事件。在这个事件中，Data 参数被设置为在 Initialize 事件中所创建的 recordset 对

象。

如果要使用这个类模块，应创建一个具有一个 DataGrid 控件的窗体。在该窗体的 Load 事件

的代码中，将该控件的 DataSource 属性设置为这个类。

注意数据类模块在设计时是不可用的。例如，如果使用 DataGrid 控件，则当用户在“属性”

剩余38页未读，继续阅读

xiaohezi003

粉丝: 2
资源: 7

VB控件深度解析：DataGrid实例与美化教程

vb控件教程

VB文件系统控件教程

vb编程控件

VB控件教程 VB控件大全 VB控件详解 VB控件用法 所有控件介绍

VB控件教程大全_VB源码_

VB控件教程大全.PDF

VB控件教程大全.rar

VB控件教程大全.zip

开发资料技术资料VB控件教程大全非常好的技术资料.zip

VB控件教程详解：DataGrid控件与美化技巧

最新资源

VB控件教程 VB控件大全 VB控件详解 VB控件用法所有控件介绍