اريد شرح tabbed dialog من فضلكم

السلام عليكم...

اكتب الإجراء التالي في القسم العام لكود النافذة الموجود بها الـ Tab control (إذا كنت ستستعمله في أكثر من نافذة فإنه يمكنك وضعه في Module و تغيير Private إلى Public حتى يصبح إجراءً عاماً):

Private Sub ShowOneTab(ATabControl As Control, ATabIndex As Integer)
    Dim Idx As Long

    If TypeOf ATabControl Is SSTab Then
        For Idx = 0 To ATabControl.Tabs - 1
            ATabControl.TabVisible(Idx) = False
        Next Idx
        ATabControl.TabVisible(ATabIndex) = True
        ATabControl.Tab = ATabIndex
    End If
End Sub

ثم قم باستدعاء هذا الإجراء مع تمرير اسم الـ Tab control و رقم الـ Tab الذي تريد إظهاره (أرقام الـ Tabs تبدأ بالصفر و ليس بـ 1)، مثلاً الكود التالي يخفي كافة الـ Tabs و يظهر فقط الـ Tab الثالث (رقم 2):

Private Sub Command1_Click()
    ShowOneTab SSTab1, 2
End Sub

نرجو الاستفادة و السلام.