|
有一个简单但仍未发现的技巧可用于在TreeView控件中装载多个节点，或者在ListView控件中装载多个ListItems。这种方法要比传统做法快。先看看下面这个传统方法：
For i = 1 To 5000
TreeView1.Nodes.Add , , , "Node " & i
Next
改进一下，代替重复引用TreeView1对象的Nodes集合，我们可以先将之保存在临时对象变量中：
Dim nods As MSComctlLib.Nodes
Set nods = TreeView1.Nodes
For i = 1 To 5000
nods.Add , , , "Node " & i
Next
甚至，如果使用With代码块，还可以不需要临时变量：
With TreeView1.Nodes
For i = 1 To 5000
.Add , , , "Node " & i
Next
End With
经测试，优化的循环代码要比传统方法执行速度快40%左右。原因在于：将Nodes集合对象保存在临时变量中，或者应用With代码块后VB将使用隐藏的临时变量后，就可以避免在循环中重复绑定Nodes对象到它的父TreeView1对象上。由于这种绑定是低效率的，因此省却它就能节省大量的执行时间。
同样的道理对于其他ActiveX控件也生效：
ListView控件的ListItems、ListSubItems以及ColumnHeaders集合
Toolbar控件的Buttons和ButtonMenus集合
ImageList的ListImages集合
StatusBar控件的Panels集合
TabStrip控件的Tabs集合
|
