[RESOLVED] Beloved SSTabs

Hi there,

Due to me working on an application wich only has ONE Form with SSTabs it get rather crowded with the code. Now I would like to branch out with some of that SSTab code to one of my modules. Maybe somebody could help ???

VB Code:

Private Sub SSTab1_Click(PreviousTab As Integer)
'---
    Select Case SSTab1.Tab
        Case 0: '--- TAB ONE (0).
            code ............
            code ............
            [COLOR=Red]This would be the section I like to Call from a module ???[/COLOR]
            SSTab1.TabEnabled(1) = True
            SSTab1.TabEnabled(2) = False
            SSTab1.TabEnabled(4) = False
            SSTab1.TabEnabled(6) = False
            SSTab1.TabEnabled(7) = False
            [COLOR=Red]...................[/COLOR]
            code ............
            code ............
 
        Case 1: '--- TAB TWO (1).
            code ............
            code ............
            [COLOR=Red]This would be the section I like to Call from a module ???[/COLOR]
            SSTab1.TabEnabled(0) = True 
            SSTab1.TabEnabled(2) = True 
            SSTab1.TabEnabled(3) = True 
            SSTab1.TabEnabled(4) = False 
            SSTab1.TabEnabled(5) = True 
            SSTab1.TabEnabled(6) = False
            SSTab1.TabEnabled(7) = False
            [COLOR=Red]...................[/COLOR]
            code ............
            code ............
            etc. etc.
        End Select

Thanks aktell

How about this ?

VB Code:

Private Sub SSTab1_Click(PreviousTab As Integer)
    'in your case statements
    'format is controlName,TabEnabled state of tab1,State of tab2 ...
    EnableTabs SSTab1, True, False, True, True, True, True, True
End Sub
 
'in a module
Public Sub EnableTabs(SStab As SStab, Tab1 As Boolean, Tab2 As Boolean, _
Tab3 As Boolean, Tab4 As Boolean, Tab5 As Boolean, Tab6 As Boolean, _
Tab7 As Boolean)
    
    SStab.TabEnabled(0) = Tab1
    SStab.TabEnabled(1) = Tab2
    SStab.TabEnabled(2) = Tab3
    SStab.TabEnabled(3) = Tab4
    SStab.TabEnabled(4) = Tab5
    SStab.TabEnabled(5) = Tab6
    SStab.TabEnabled(6) = Tab7
End Sub

you could also do the EnableTab sub like this - a bit more dynamic

VB Code:

Public Sub EnableTabs(ByVal oSSTab As SSTab, ParamArray blnTab() As Variant)
    Dim N As Long
    For N = LBound(blnTab) To UBound(blnTab)
        oSSTab.TabEnabled(N) = blnTab(N)
    Next N
End Sub

Hey bushmobile,

I knew someone would suggest this. I actually tried that version but I like the auto-complete type feature when using named variables and booleans.

There's always a ton of different ways to do things.

See the picture below. It speeds up the coding.

Hi there,

Thanks alot, but both seem not to work at all I receive only "syntex" and "Argument not optinal" errors.

Any other ideas ???

Thanks aktell

Both examples should work. What lines are causing the errors and what are the exact messages.

Also, what version of VB are you using ?

In my example, you would have to fill in a true or false for each tab. In bushmoble's you would only need one.

Hi there,

I have used the code as per your copy I maybe do not understand the meaning of your comment "'format is controlName" but otherwise it should be OK.
I get the Error Msg. Compile error: Argument not optional and it highlights the SSTab1_Click Sub. I use VB 6.0 Enterprise Edition with (SP5).

With regards to the True/False input I have use it this way for the first Tab, and it should be different on every other Tab:

VB Code:

EnableTabs SSTab1, , True, False, , False, , False, False

Thanks aktell

Quote:

---

With regards to the True/False input I have use it this way for the first Tab, and it should be different on every other Tab:

visual basic code:
EnableTabs SSTab1, , True, False, , False, , False, False

---

Ok, using my code. I see the problem. As the code is, aguments are not optional. You need to supply a True or False for each tab.

Here's an exaple using optional args.

VB Code:

'in a module
Public Sub EnableTabs(SStab As SStab, Tab1 As Boolean, Optional Tab2 As Boolean, _
Optional Tab3 As Boolean, Optional Tab4 As Boolean, Optional Tab5 As Boolean, _
Optional Tab6 As Boolean, Optional Tab7 As Boolean)
    
    SStab.TabEnabled(0) = Tab1
    If Not IsMissing(Tab2) Then SStab.TabEnabled(1) = Tab2
    If Not IsMissing(Tab3) Then SStab.TabEnabled(2) = Tab3
    If Not IsMissing(Tab4) Then SStab.TabEnabled(3) = Tab4
    If Not IsMissing(Tab5) Then SStab.TabEnabled(4) = Tab5
    If Not IsMissing(Tab6) Then SStab.TabEnabled(5) = Tab6
    If Not IsMissing(Tab7) Then SStab.TabEnabled(6) = Tab7
End Sub

same principle for the ParamArray version:

VB Code:

Public Sub EnableTabs(ByVal oSSTab As SStab, ParamArray blnTab() As Variant)
    Dim N As Long
    For N = LBound(blnTab) To UBound(blnTab)
        If Not IsMissing(blnTab(N)) Then oSSTab.TabEnabled(N) = blnTab(N)
    Next N
End Sub

Hi there,

Well, finaly I had some time to test this code you guy's send here, and I found the mistake I made also.
!!! Each Tab has to be address with True or False. I had before:

This is the wrong way.

VB Code:

EnableTabs SSTab1, , True, True

This is the right way.

VB Code:

EnableTabs SSTab1, True, True, True

Attached a Zip File if somebody looks for something similar.
Thanks alot again.

aktell