NAVIGATION PAR ONGLET ENTIEREMENT PARAMETRABLE

Public Class onglet
    Public Function MakeOnglet(ByVal MesOnglet As String, ByVal ParamOnglet As String, ByVal CurrentParam As Integer)
        Dim MonSplit() As String
        Dim MesParam() As String

        Dim Redirect As String

        Dim CssCels As String


        Dim TabDeb As String = "<table " & HTMLTitleTab & HTMLTitleID & BackgroundColorTab & SpacingTab & PaddingTab & BorderTab & TabStyle & "><tr>"
        Dim TabFin As String = "</tr></table>"
        Dim TabContenu As String = ""

        Dim i As Integer


        MonSplit = Split(MesOnglet, ";")
        MesParam = Split(ParamOnglet, ";")

        'MsgBox(MonSplit.Length)
        For i = 0 To MonSplit.Length - 1
            If CurrentParam = i Then
                CssCels = "class='" & OverStyle & "'"
                Redirect = MonSplit(i)
            Else
                CssCels = RollOverCss
                Redirect = "<a href='" & MaPage & "?" & MesParam(i) & "'>" & MonSplit(i) & "</a>"
            End If

            TabContenu = TabContenu & "<td " & BorderStyle & AlignLink & CssCels & HeightCel & ">" & Redirect & "</td>"
        Next

        Return TabDeb & TabContenu & TabFin

    End Function


'Quelque exemple de methode à utiliser

'A mettre avant la déclaration des methode dans la classe onglet ;)
Dim MaPage As String = ""
Dim TabStyle As String = ""
Dim OutStyle As String = ""

    Public Function Page(ByVal Redirect As String)
        MaPage = Redirect
        Return MaPage
    End Function

    Public Function CssTab(ByVal StyleTab As String)
        TabStyle = "class='" & StyleTab & "'"
        Return TabStyle
    End Function

    Public Function CssOut(ByVal StyleOut As String)
        OutStyle = StyleOut
        Return OutStyle
    End Function

end class

'Cette classe renvoi une chaine que l'on peut aisement associer à un label ou un literal (Cette chaine contient un tableau HTML)

'Pour appeller cet objet, 
Espace de nom : onglet
...
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim MesOnglet As onglet
    MesOnglet = New onglet

    MesOnglet.Page("default.aspx")
    MesOnglet.CssOut("CelOngletOut")
    MesOnglet.CssOver("CelOngletOver")
    MesOnglet.CssRollOver("CelOngletOver")

    'MesOnglet.MakeOnglet(MesOnglet As String,MesParam as string, CurrentParam as integer)

    'Afin d'avoir l'onglet en cours, il suffit de faire : 
        Dim ParamOnglet As Integer
        Select Case Request.QueryString("codrub")
            Case "1"
                ParamOnglet = 0
            Case "2"
                ParamOnglet = 1
            Case "3"
                ParamOnglet = 2
            Case "4"
                ParamOnglet = 3
            Case "5"
                ParamOnglet = 4
            Case Else
                ParamOnglet = -1

        End Select


    Onglet.Text = MesOnglet.MakeOnglet("Onglet 1;Onglet 2;Onglet 3;Onglet 4;Onglet 5", "codrub=1;codrub=2;codrub=3;codrub=4;codrub=5", ParamOnglet)
End Sub




'Ensuite, il y a juste a faire un petit code comme celui - ci pour afficher un texte ou autre selon l'inglet en cours. 

        Dim MaListe As String = ""
        Select Case Request.QueryString("codrub")
            Case "1"
                MaListe = "<h1>Vous avez cliquez sur l'onglet 1</h1>"
            Case "2"
                MaListe = "<h1>Vous avez cliquez sur l'onglet 2</h1>"
            Case "3"
                MaListe = "<h1>Vous avez cliquez sur l'onglet 3</h1>"
            Case "4"
                MaListe = "<h1>Vous avez cliquez sur l'onglet 4</h1>"
            Case "5"
                MaListe = "<h1>Vous avez cliquez sur l'onglet 5</h1>"
        End Select

MaTable.Text = MaListe