VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 从数组中加载组合框和列表框
发表评论(0)作者:BUILDER.COM, 平台:VB6.0+Win98, 阅读:10734, 日期:2003-08-29
    很多的应用软件都在组合框和列表框中为用户提供了数据列表,这些数据是可以被存储在一个数据库或是配置文件之中的。这个数据通常是出现在一个数组之中或是可以很容易地转变为一个数组。这里面有一个函数,它提供了一个将二维数组加载到列表控制之中的普遍方法。

下面的方法假定这个数组在创建时先出现列的维度,接着是行的维度,有一个命令可以允许开发者来指定用来显示和数据索引的列。这个函数可以与recordsets共同使用,你可以使用GetRows函数来恢复在一个行列格式化的数组中的recordsets数据。

Private Sub LoadListControl(ByRef List As Control, _
ByVal Data As Variant, _
Optional ByVal DisplayIndex As Long = 0, _
Optional ByVal DataIndex As Long = -1)
Dim lngCount As Long

If Not ((TypeOf List Is ListBox) Or (TypeOf List Is ComboBox)) Then
Exit Sub
End If

List.Clear

For lngCount = LBound(Data, 2) To UBound(Data, 2)

Call List.AddItem(Trim(Data(DisplayIndex, lngCount)))
If DataIndex > -1 Then
List.ItemData(List.NewIndex) = Data(DataIndex, lngCount)
End If

Next lngCount

List.ListIndex = 0
End Sub

这个程序可以很容易地进行修改来处理行/列数组。它能保证列表控制在你的应用软件之中被加载。