VB控件详解：DataGrid功能与美化教程

3星 · 超过75%的资源需积分: 15 175 浏览量更新于2024-07-30 收藏 332KB PDF 举报

"VB控件教程大全深入解析" 本文档详细介绍了VB（Visual Basic）中的Datagrid控件，它是编程中常用的一种界面组件，尤其在处理数据库操作时发挥着重要作用。Datagrid控件类似于电子数据表，它能够以表格形式展示Recordset对象的记录和字段，提供了一种直观的方式来呈现和交互数据。首先，文章指导读者如何使用DataGrid控件。例如，通过`.Columns`集合，可以动态地添加或删除列，并设置列的标题（Caption）和对应的数据字段（DataField）。通过`BackColor`、`Font`、`CellPadding`、`CellSpacing`等属性，开发者能够定制DataGrid的外观，使其具有清晰的视觉效果。`Font`属性是一个FontInfo对象，包含了字体类型（Name）、大小（Size）、粗体（Bold）和斜体（Italic）等信息，设置时需要通过连字符(-)来指定属性。 DataGrid控件的优势在于其易于配置，设计时通过设置DataSource属性，控件会自动根据数据源填充数据和列标题，节省了大量的代码编写。在运行时，可以动态改变DataSource，实现数据的实时切换或调整查询，显示不同数据集。值得注意的是，尽管DataGrid控件与Visual Basic 5.0中的DBGrid控件在许多方面功能相似，但它们并不完全兼容，尤其是DBGrid的“解除绑定模式”功能，在VB控件中并不支持。DBGrid控件作为Visual Basic Tools目录的一部分，虽然过时，但在某些特定的历史项目中仍然有其用途。 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页未读，继续阅读

tangxiaohong529

粉丝: 0
资源: 2

VB控件详解：DataGrid功能与美化教程

VB控件教程大全.PDF

VB控件教程大全.rar

VB控件教程大全.zip

VB6.0webbrowser控件教程

vb.net chart控件教程

vb6 mshflexgrid控件教程

在VB中如何使用FileListBox控件以及DriveListBox控件进行文件浏览，并通过PatternChange事件动态更新特定类型文件列表？

vb msccomm控件安装

vb6 教程 -- 从入门到精通

如何在VB6.0中创建一个简单的OCX控件，并为其添加事件处理功能？

最新资源