遍历sstab控件元素时Container.Name出错

[tang688]

在网上查了一遍历sstab控件元素的代码：
Dim a
For Each a In Controls
If a.Container.Name = "SSTab1 " Then '提示这一行出错。
msgbox a.name
End If
Next
但在我的VB里无法运行，提示：a.Container.Name 对象不支持该属性或方法。
请问，这个Container是要用到什么部件或是引用吗？还是别的什么原因？还是我的VB6版本不对？

[threenewbee]

If a.Container Is SSTab Then

[kktxiaolong]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[tang688]

[Quote=引用 1 楼 caozhy 的回复:]
If a.Container Is SSTab Then
[/Quote]
提示要求是对象。
改成：If a.Container Is SSTab1 Then
提示：对象不支持该属性或方法。

[cqq_chen]

先确认有
SSTab1 这个控件

[啊的发哦]

[Quote=引用 3 楼 tang688 的回复:]

引用 1 楼 caozhy 的回复:
If a.Container Is SSTab Then

提示要求是对象。
改成：If a.Container Is SSTab1 Then
提示：对象不支持该属性或方法。
[/Quote]

container '是设置所属容器
用 TypeName(a)

[孤独剑_LPZ]

If a.Container.Name = "SSTab1 " Then '多了个空格,手误吧
我本机测试没有问题,看你拖的控件是否叫SSTab1

[booksoon]

Dim a  
For Each a In Me.Controls  
  If a.Container.Name = "SSTab1" Then 
      msgbox a.name
  End If  
Next  

[tang688]

我的电脑什么样都是提示这个Container错误，估计是什么部分什么的没有引用到。