我有一个带有搜索屏幕的 VB6 应用程序。在搜索中，我有 9 个组合框。有些组合框只有几个项目，但有些组合框有几百个项目。填充数据需要很长时间（几秒钟）。
每个组合框的配置都是一样的：Sorted = False, Style = 2 - Dropdown List
3 个组合框的项目少于 20 个。 1 有 130 个项目。 4 有大约 250 个项目 1 有近 700 项。
我用相似的代码填充所有九个组合框。
While Not RS.EOF
cmbX.List(i) = RS("Description")
cmbX.ItemData(i) = RS("Id")
i = i + 1
RS.MoveNext
Wend
我尝试设置 Visible = False，但对性能没有影响。
是否有另一种填充组合框的方法比我现有的方法效果更好？
【问题讨论】：
标签： performance vb6 combobox
您可以尝试以下方法。根据this post，您可以使用 Windows API 函数来填充组合框，而不是通常的 AddItem 方法，从而减少大约 60% 的开销：
Private Const CB_ERR As Long = -1
Private Const CB_ADDSTRING As Long = &H143
Private Const CB_RESETCONTENT As Long = &H14B
Private Const CB_SETITEMDATA As Long = &H151
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub AddItem(cmb As ComboBox, Text As Variant, Optional ItemData As Long)
Dim l As Long
Dim s As String
If VarType(Text) = vbString Then
s = Text
Else
s = Trim$(Str$(Text))
End If
l = SendMessage(cmb.hwnd, CB_ADDSTRING, 0&, ByVal s)
If l <> CB_ERR Then
SendMessage cmb.hwnd, CB_SETITEMDATA, l, ByVal ItemData
End If
End Sub
Public Sub Clear(cmb As ComboBox)
SendMessage cmb.hwnd, CB_RESETCONTENT, 0, 0&
End Sub
您可以省略函数调用，直接调用 API 函数，这样可以节省更多。
【讨论】：
您确实需要重新考虑您的设计。没有用户会想要在组合框中的 700 个项目之间进行选择。如果你不纠正它，它会让你的应用程序看起来很混乱。
当我听到这样的情况时，脑海中总会浮现出一幅画面：
【讨论】：
一些建议：
使用With RS。
使用 Recordset 对象的RecordCount 属性，而不是在每次迭代时测试EOF（如果RecordCount = -1，那么您应该更改游标类型、游标位置等以确保支持RecordCount）。
使用For..Next 循环而不是维护您自己的迭代器变量。
使用 bang 运算符 (!)。
例如：
With RS
Debug.Assert .RecordCount >= 0
Dim counter As Long
For counter = 0 To .RecordCount - 1
cmbX.List(counter) = !Description
cmbX.ItemData(counter) = !Id
.MoveNext
Next
End With
也许要考虑的其他事情是将组合的Sorted 属性设置为False，如果需要排序，则使用Recordset 的Sort 属性或在源处进行排序（例如，在SQL 中使用ORDER BY 子句代码）。
【讨论】：
您可以尝试在添加新项目时告诉组合框不要重新绘制自身。您可以使用WM_SETREDRAW 执行此操作。编辑 - 显然这没有帮助，可能是因为组合框在填充时被隐藏，这可能会给您带来所有相同的好处。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETREDRAW = &HB
Call SendMessage(cmbX.hWnd, WM_SETREDRAW, 0, 0&)
'DO STUFF'
Call SendMessage(cmbX.hwnd, WM_SETREDRAW, 1, 0&)
警告：很多其他优秀的 VB6 网站 tell 你改用 LockWindowUpdate。不要这样做，否则你会get bugs。还有对Raymond Chen的嫌弃！
【讨论】：
为什么要预先填充列表，然后重新填充 List(i) 和 ItemData(i)？相反，您应该执行以下操作
While Not RS.EOF
cmbX.AddItem RS("Description")
cmbX.ItemData(cmbX.NewIndex) = RS("Id")
RS.MoveNext
Wend
您将看到 Robert Harvey 的答案与上面的代码之间的性能差异为零。为了提高速度，请应用 MarkJ 的答案。
另一个问题可能是您用于从数据库中取回数据的游标。由于您要从记录集中加载每一项，因此几乎没有理由使用服务器端游标。因此，您可能希望在检索记录集时指定客户端光标。
【讨论】：
这确实看起来很长。你是如何打开你的记录集的？您是否在使用 firehose（只读、只进记录集）游标？如果不是，您可能会从中获得一些性能改进。确保您的 SQL 语句仅返回组合框所需的数据（即不要使用 SELECT *）。
如果您的 SQL 语句包含 WHERE 子句或 JOINS，请确保您在适当的字段上有索引。
如果您使用 ACCESS 作为后端，您将通过升级到 SQL Server Express 来立即提高速度。
【讨论】：
'' 填充组合框
我必须等待 20 秒才能让我的程序在城市组合框中填充 80,000 条记录 我尝试了几种方法，但都更糟
这是我的原始代码
Me.txt_City.DataSource = tblCities
Me.txt_City.ValueMember = "city"
Me.txt_City.DisplayMember = "city"
你猜怎么着，我只是把第一行代码移到最后 然后人口只用了5秒
Me.txt_City.ValueMember = "city"
Me.txt_City.DisplayMember = "city"
Me.txt_City.DataSource = tblCities
试试看
【讨论】：