Reihenfolge der Register im Tabcontrol anpassen

[Visual Basic]
Private Sub Order_Tabcontrol()

Quellcode

[Visual Basic]
    Private Sub Order_Tabcontrol() 
        Try 
            If Me.Profil.sV_Register.Value = "" Then Exit Sub 
            Dim tabs() As String 
            Dim i As Integer = 0 
            tabs = Me.Profil.sV_Register.Value.Split(";") 
            For Each tb As String In tabs 
                If tb = "" Then Exit For 
                For Each tbp As TabPage In Me.TabControlDiverse.TabPages 
                    If tbp.Text = tb Then 
                        Try 
                            Me.TabControlDiverse.TabPages.Remove(tbp) 
                        Catch 
                        End Try 
                        Try 
                            Me.TabControlDiverse.TabPages.Insert(i, tbp) 
                        Catch 
                        End Try 
                        i = i + 1 
                    End If 
                Next 
            Next 
        Catch 
        End Try 
    End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmVertragsuebersicht