Vb6 SSTab和每个选项卡';s子控件

Vb6 SSTab和每个选项卡';s子控件,vb6,Vb6,SSTab通过将子控件移到负值或从负值移到负值来隐藏/显示子控件。基本上,所有子控件都将SSTab控件实例作为父HWND 除了循环SSTab.tab属性外,还有其他方法可以确定子控件的选项卡索引吗?SSTab实例如何管理子控件与选项卡的关联 我没见过。最好的方法是将每个选项卡的控件移动到专用的图片框或框架中。 这允许您知道控件的父控件是什么,并最终从有bug的SSTab控件中移出 我写了一篇文章,解释了SSTab控件的这一点和其他各种缺陷: sstab控件将不在活动选项卡上的控件移动-75000

SSTab通过将子控件移到负值或从负值移到负值来隐藏/显示子控件。基本上,所有子控件都将SSTab控件实例作为父HWND


除了循环SSTab.tab属性外,还有其他方法可以确定子控件的选项卡索引吗?SSTab实例如何管理子控件与选项卡的关联

我没见过。最好的方法是将每个选项卡的控件移动到专用的图片框或框架中。 这允许您知道控件的父控件是什么,并最终从有bug的SSTab控件中移出

我写了一篇文章,解释了SSTab控件的这一点和其他各种缺陷:
sstab控件将不在活动选项卡上的控件移动-75000。如果您只想知道活动选项卡上的控件与非活动选项卡上的所有其他控件相比,您可以检查left属性和container属性

以下代码将在用户单击选项卡时切换控件的可见性,以便保留选项卡顺序

Private Sub SSTab1_Click(PreviousTab As Integer)

    Dim o As Object

    For Each o In Me.Controls
        If TypeOf o.Container Is SSTab Then
            If o.Left < -40000 Then
                'control is not on the current tab
                o.Visible = False
            Else
                'control is on the current tab
                o.Visible = True
            End If
        End If
    Next

End Sub
Private子选项卡1\u单击(以前的选项卡为整数)
作为对象的dimo
对于我身上的每个o。控件
如果o.容器的类型为SSTab,则
如果o.左<-40000,则
'控件不在当前选项卡上
o、 可见=假
其他的
'控件位于当前选项卡上
o、 可见=真
如果结束
如果结束
下一个
端接头

如果您需要知道哪些控件位于特定选项卡上,您可以通过代码调用click事件,并创建一个lefts>0的控件列表

能否澄清您的问题?您到底想实现什么?请参阅我的答案,了解克服选项卡问题的简单方法