之前曾经写过关于在VB6动态添加可执行代码的文章

http://www.jb51.cc/article/p-bupaewfj-be.html

也有关于纯代码设计程序的文章

http://www.jb51.cc/article/p-kzzlygyu-be.html

下面我们就谈谈关于动态添加组件的。

动态添加内部控件，正如【纯代码设计】一文中提到，可以用Controls合集的Add方法，对于外部引用，则可以使用CreateObject方法

后者对网页开发的ASP程序员来说，相当熟悉。不过该方法有个问题：就是必须先知道【库】和【类】，比如：

动态添加TreeView不能用如下代码：

Set tv = CreateObject("MSComctlLib.TreeView")

而应该这么写：

Set tv = CreateObject("MSComctlLib.TreeCtrl.2")

否则因为找不到类而无法创建对象。为了更好的稳定性，我们使用Controls的Add方法，比如添加一个CommonDialog控件

用于实现打开、保存、字体及打印机等的对话框，很常见很实用。

Set cd = Me.Controls.Add("MSComDlg.CommonDialog","cd")
cd.Flags = cdlCFBoth Or cdlCFEffects
cd.CancelError = True

前面的Set cd = 可以不要，当然后面的也该同时去掉。

然而，有时候会出现一些错误，这些错误不是因为找不到已注册的类，而是另外的，如

英文牛×的可以看得出来，不过我相信很多人还是不太明白，这个错误在MSDN是没有相关帮助的。解决方法如下

在【工程(Project)】->【×××属性(×××Properties)】，选择【生成(Make)】选项卡，最下方去掉Remove information about unused ActiveX Controls前面的勾勾，即可。