1.VB里TypeOf语句或TypeName函数的用法。2.使得自定义的控件不能被加载到非窗体的容器中。

[几罗星人]

我设计了一个控件，这个控件只有在窗体上运作才有意义，所以我不想我设计的控件被放到新的控件设计器上，所以我想用获得控件的父对象，然后判定类型的方法，使控件只在窗体上工作。其实标题的两个问题是一样的，就是为了实现相同的目的。但是，问题是问什么我用以下代码无法正常返回父对象的类型呢？

If TypeOf Extender.Parent.Name Is UserControl Then
MsgBox "本控件不能放到除窗体外的其他容器中", vbCritical
End If

如果有其他更好的办法，也欢迎写上，感谢。

[贝隆]

TypeName 函数示例
本示例使用 TypeName 函数返回有关变量的信息。

' 声明变量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null   ' 设置变量值为 Null。
MyType = TypeName(StrVar)   ' 返回 "String"。
MyType = TypeName(IntVar)   ' 返回 "Integer"。
MyType = TypeName(CurVar)   ' 返回 "Currency"。
MyType = TypeName(NullVar)   ' 返回 "Null"。
MyType = TypeName(ArrayVar)   ' 返回 "Integer()"。

[几罗星人]

二楼的阿根廷巫师，谢谢你的帮助，我明白TypeName函数的用法了，其实在这个帖子发布不足两分钟后我就解决了我的这两个问题，当然，散散分嘛。

[几罗星人]