您的位置：程序门 -> vb -> 基础类

自定义控件如何支持接口？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

自定义控件如何支持接口？[已结贴,结贴人:zerg2001]

发表于：2007-08-24 09:30:30 楼主

activx控件工程中的一个自定义控件。其中代码：
implements imppowertool
private sub imppowercontrol_setpower（byval allowshow as boolean)
dim b as boolean
b = allowshow
t1.useronlyview = b
end sub

外部使用该控件,名称定义为c1：
if （typeof c1 is imppowercontrol) then
msgbox "as "
end if
无法得到提示。

如果这样子：
dim p as imppowercontrol
set p = c1
则提示类型错误。

这个工程中自创建的一个类却可以实现这些代码，自定义的控件却不行。。。。

发表于：2007-08-24 09:33:481楼得分:0

imppowertool 和 imppowercontrol 当然类型不同了！

发表于：2007-08-24 09:42:072楼得分:0

上面那个imppowertool就是imppowercontrol。手写的，记错了

发表于：2007-08-24 09:53:493楼得分:20

if （typeof c1.object is imppowercontrol) then

发表于：2007-08-24 09:59:134楼得分:0

c1.object.......喵的，居然ok。这个object是啥米来的？

发表于：2007-08-24 10:17:325楼得分:0

就是说窗体上的控件实例 c1 不是直接用 usercontrol，而是一个 vbcontrolextender，自定义的 usercontrol 实例在 object 属性上，只是大多数情况下 vb-ide 让 vbcontrolextender 的成员自动在 usercontrol 下显现出来。

msdn 帮助的 vbcon98.chm::/html/vbcontheextenderobjectpropertiescontainerprovides.htm 中这样描述：
在“属性”窗口中观察控件实例的属性时，会发现有许多自己没有定制的属性。这些扩展属性由控件所在的容器提供，但它们看上去与控件结合得很好，如图 9.6 所示。

发表于：2007-08-24 10:26:116楼得分:0

谢谢，原来如此。

ps：汗一个。vb偷偷摸摸地在后面干了很多事呢。不管的时候是很方便，偶尔深入一点就是翻穿了msdn也找不到头绪啊。

其他资讯