1.VB里TypeOf语句或TypeName函数的用法。2.使得自定义的控件不能被加载到非窗体的容器中。
If TypeOf Extender.Parent.Name Is UserControl Then
MsgBox "本控件不能放到除窗体外的其他容器中", vbCritical
End If
如果有其他更好的办法，也欢迎写上，感谢。
4 个解决方案
#1
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()"。
#2
#3
二楼的阿根廷巫师，谢谢你的帮助，我明白TypeName函数的用法了，其实在这个帖子发布不足两分钟后我就解决了我的这两个问题，当然，散散分嘛。
#4
智能推荐
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。