VB动态添加控件的问题

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

http://blog.csdn.net/prsniper/article/details/5811251

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

http://blog.csdn.net/prsniper/article/details/6025375

 

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

动态添加内部控件，正如【纯代码设计】一文中提到，可以用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 cdlCFEffectscd.CancelError = True

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

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

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

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

中文版显示的是 移除未使用的ActiveX控件信息 之类的，不过我推荐大家使用英文版，我计划参加的CCIE考试是全英文的，头痛