Office中国论坛/Access中国论坛

标题: 求用VBA自动注册控件实例 [打印本页]

作者: 明镜 时间: 2008-11-16 22:03
标题: 求用VBA自动注册控件实例
如题,要求在注册前先判断这个控件有没有注册过，如没有注册,提示注册,如已经注册过，那就跳过了,

作者: tmtony 时间: 2008-11-17 09:13
判断一个控件是否注册,可用下面代码
on error resume next

dim tmpOjb as object

set tmpobj=createobject("库名.类名")

if tmpobj=nothing then 对偶使用无效
msgbox "未注册"
else
msgbox "已注册"
end if

不过, 其实可以判断你的引用有否丢失,有丢失就用代码注册所有控件
可用API 或直接使用regsvr32 命令

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)