Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class frmOhneReiter

   Private Sub frmOhneReiter_Load(ByVal sender As Object, ByVal e As EventArgs) _
         Handles Me.Load
      tabControl1.SuspendLayout()
      'um Reiter zu verbergen benötigt man die 3 folgenden Einstellungen
      'ich empfehle das codeseitig zu machen, weil im Designer hat man sonst
      '   Probleme, die TabPages zum designen auszuwählen
      tabControl1.SizeMode = TabSizeMode.Fixed
      tabControl1.ItemSize = New Size(0, 1)
      tabControl1.Appearance = TabAppearance.Buttons
      tabControl1.ResumeLayout()
      'list-/Combo-Box konfigurieren
      Dim pages = tabControl1.TabPages
      Me.listBox1.DisplayMember = "Text"
      Me.ComboBox1.DisplayMember = "Text"
      listBox1.DataSource = pages
      ComboBox1.DataSource = pages
      'MenuItems erzeugen und konfigurieren
      Dim tabMenuItems = TabPageToolStripMenuItem.DropDownItems
      For Each tp As TabPage In pages
         Dim itm = DirectCast(tabMenuItems.Add(tp.Text), ToolStripMenuItem)
         AddHandler itm.Click, AddressOf MenuItem_Click
      Next
      DirectCast(tabMenuItems(0), ToolStripMenuItem).Checked = True
   End Sub

   Private Sub listControl_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
         Handles listBox1.SelectedIndexChanged, ComboBox1.SelectedIndexChanged
      tabControl1.SelectedIndex = listBox1.SelectedIndex
      'TabControl ist bisserl doof - es nimmt den Focus, auch wenn nur per Code selektiert wurde
      listBox1.Focus()             'Focus zurück zur Listbox
   End Sub

   Private Sub MenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
      Dim tabMenuItems = TabPageToolStripMenuItem.DropDownItems
      For i = 0 To tabMenuItems.Count - 1
         Dim itm = DirectCast(tabMenuItems(i), ToolStripMenuItem)
         Dim isSelected = itm Is sender
         itm.Checked = isSelected
         If isSelected Then tabControl1.SelectedIndex = i
      Next
   End Sub

End Class

Visual Basic Quellcode

Public Class frmOhneReiter

   Private Sub frmOhneReiter_Load(ByVal sender As Object, ByVal e As EventArgs) _
         Handles MyBase.Load
      lstFramesetNavi.DataSource = TabControl2.TabPages.Cast(Of TabPage)().ToList
      lstFramesetNavi.DisplayMember = "Text"
      For Each tc In {TabControl2, TabControl3}
         With tc
            .SuspendLayout()
            'diese 3 Einstellungen verstecken die Reiter erst zur Laufzeit
            'bei Design-Arbeiten am Form sind die Reiter ja sehr nützlich 
            .SizeMode = TabSizeMode.Fixed
            .ItemSize = New Size(0, 1)
            .Appearance = TabAppearance.Buttons
            .ResumeLayout()
         End With
      Next
   End Sub

   Private Sub WizzardNaviButton_Click(ByVal sender As Object, ByVal e As EventArgs) _
         Handles btNext6.Click, btPrev7.Click, btNext7.Click, btPrev8.Click
      Select Case True
         Case sender Is btNext6, sender Is btNext7
            TabControl3.SelectedIndex += 1
         Case sender Is btPrev7, sender Is btPrev8
            TabControl3.SelectedIndex -= 1
      End Select
   End Sub

   Private Sub lstFramesetNavi_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
         Handles lstFramesetNavi.SelectedIndexChanged
      TabControl2.SelectedIndex = lstFramesetNavi.SelectedIndex
   End Sub

End Class