VB超频快餐，让我一次用个够！（六）

无闪烁地快速附加字符串到textbox控件

附加文本到TextBox或者RichTextBox控件的通常方法是在当前内容上连接上新的字符串：

Text1.Text = Text1.Text & newString

但还有一个更快的方法，并且会减少连接操作的闪烁感，代码如下：

Text1.SelStart = Len(Text1.Text)

Text1.SelText = newString

快速找到选中的OptionButton

OptionButton控件经常是作为控件数组存在的，要快速找到其中的哪一个被选中，可以使用下面的代码：

’假设控件数组包含3个OptionButton控件

intSelected = Option(0).Value * 0 - Option(1).Value * 1 - Option(2).Value * 2

注意，因为第一个操作数总是0，所以上述代码可以精简如下：

intSelected = -Option(1).Value - Option(2).Value * 2

表单及控件的引用阻止了表单的卸载

当指派表单或者表单上的控件到该表单模块以外的一个对象变量中时，如果要卸载表单，就必须首先将那个变量设置为 to Nothing。也就是说，如果不设置为Nothing，即使看不到这个对象了，但它仍旧是保存在内存中的。

注意：这并非是一个bug，这仅仅是COM引用规则的一个结果。唯一要注意的就是引用的这个控件将阻止整个表单的卸载操作，它将依赖于它的父表单而存在。

重定义编译DLL文件的基地址

许多VB开发者都知道应该在工程属性对话框的“编译”功能页面中定义一个DLL基地址数值。这不同于工程中任何其他DLL或OCX的基地址。

当操作没有源代码的编译DLL或者OCX文件时，可以使用EDITBIN程序修改它的基地址。EDITBIN程序随Visual Studio安装后就有了，可以在主Visual Studio目录的VC98\BIN目录下找到它。比如，以下代码重新设定一个编译DLL文件的基地址为12000000（16进制）：

EDITBIN /REBASE:BASE=0x12000000 myfile.dll

同样，EDITBIN程序对可执行文件也有一些处理技巧。

以下是该程序支持的完整功能选项列表(使用EDITBIN /? 可以列出这些）：

/BIND[:PATH=path]

/HEAP:reserve[,commit]

/LARGEADDRESSAWARE[:NO]

/NOLOGO

/REBASE[:[BASE=address][,BASEFILE][,DOWN]]

/RELEASE

/SECTION:name[=newname][,[[!]{cdeikomprsuw}][a{1248ptsx}]]

/STACK:reserve[,commit]

/SUBSYSTEM:{NATIVE|WINDOWS|CONSOLE|WINDOWSCE|POSIX}[,#[.##]]

/SWAPRUN:{[!]CD|[!]NET}

/VERSION:#[.#]

/WS:[!]AGGRESSIVE

快速调入TreeView控件以及ListView控件的子项内容

有一个简单但仍未发现的技巧可用于在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集合