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 cdlCFEffects cd.CancelError = True


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

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

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

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

中文版显示的是 移除未使用的ActiveX控件信息 之类的,不过我推荐大家使用英文版,我计划参加的CCIE考试是全英文的,头痛
已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页