[RESOLVED] Beloved SSTabs

[aktell]

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 ???

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

[Keith_VB6]

How about this ?

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

[bushmobile]

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

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

[Keith_VB6]

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.

[aktell]

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

[Keith_VB6]

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.

[aktell]

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:

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

Thanks aktell

[Keith_VB6]

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.

'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

[bushmobile]

same principle for the ParamArray version:

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

[aktell]

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.

EnableTabs SSTab1, , True, True

This is the right way.

EnableTabs SSTab1, True, True, True

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

aktell