TabControl anders anordnen und auslagern

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Schamash.

    TabControl anders anordnen und auslagern

    Salut Com,

    ist es möglich das TabControl so anzuordnen wie im Internet Explorer 10 und darunter auslagern/anzeigen zu lassen,wenn ja wie und gibt es vielleicht dazu eine Eigenschaft ? Unten dazu ein Bild.

    Gruß iEi
    Bilder

    • AnordnenundAsulagern.PNG

      45,67 kB, 792×360, 153 mal angesehen

    Ist deine Entscheidung, ob du von "TabControl" erbst oder von "UserControl". Ich rate "UserControl". Musste halt dann alle Properties etc selber implementieren, aber du kannst dafür die Effekte besser steuern.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ich hab da letztens mal was gebastelt.

    Das geht bestimmt auch schöner aber es kann dir ja als Grundgerüst dienen.

    Das TBC kann Drag & Drop und hat einen "Schließen" Button

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class odcFormatiert : Inherits System.Windows.Forms.TabControl
    2. 'Drag and Drop & Neu Anordnen
    4. Private tbp_Ausgewählt As System.Windows.Forms.TabPage = Nothing
    5. Private tbp_Ziel As System.Windows.Forms.TabPage
    6. Private rec_Hintergrund As Rectangle
    7. Private rec_SchliessenSchaltfläche As Rectangle
    8. Public Shared int_ChildFormNumber As Integer = 0 'Zählvariable für die bereits geöffneten Tabs
    10. Private Sub Tc_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    11. Dim brushHintergrund As Brush = New SolidBrush(Color.GhostWhite) 'Legt den "Pinsel" fest mit dem die Rechtecke gemahlt werden sollen
    12. rec_Hintergrund = e.Bounds
    14. 'Hier wird ein Rechteck über den aktuellen TabHeader gelegt
    15. rec_Hintergrund.X = rec_Hintergrund.X + rec_Hintergrund.Width
    16. rec_Hintergrund.Width = Me.Width
    17. If e.Index = Me.TabCount - 1 Then 'Wenn die letzte TabPage erreicht ist wird der restliche Hintergrund gefärbt.
    18. e.Graphics.FillRectangle(brushHintergrund, rec_Hintergrund.X, 0, rec_Hintergrund.Width, 22)
    19. End If
    21. 'Hier wird ein Rechteck über den aktuellen Tab gelegt.
    22. e.Graphics.FillRectangle(brushHintergrund, e.Bounds.X, 0, e.Bounds.Width, 22)
    23. 'festlegen der größe des zuzeichnenden Buttons
    24. Dim coordX As Integer = e.Bounds.Left + e.Bounds.Width - 18 'linke obere Ecke + Breite des Tabs - 18wegen einrücken
    25. Dim coordY As Integer = e.Bounds.Top + 2 'Y-Koord der oberen Kante + 2 wegen einrücken
    26. rec_SchliessenSchaltfläche = New Rectangle(coordX, coordY, 16, 16) 'Coordinaten des Buttons festlegen
    27. 'Formatierung der Schrift des Tabs
    28. 'notwendige Prüfung da es beim Verschieben von Tab2 auf Tab1 , bei nur 2 existierenden Tabs zu einem Fehler kommt
    29. If Not e.Index > Me.TabCount - 1 Then
    30. e.Graphics.DrawString(Me.TabPages(e.Index).Text, Font, Brushes.Black, 2 + e.Bounds.Left, 4)
    31. End If
    32. 'Einstellungen das Buttons
    33. ControlPaint.DrawCaptionButton(e.Graphics, rec_SchliessenSchaltfläche, CaptionButton.Close, ButtonState.Flat)
    34. End Sub
    36. #Region "Überlagerung der Standart Events des TabControls"
    38. Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
    39. 'Es werden 2 Unterschiedliche Events ausgelöst.
    40. '1. Entfernung der gewählten TabPage wenn der "Close"-Button gewählt wurde
    41. '2. Begin des Verschiebevorganges
    43. 'Entfernt die ausgewählte Tabpage
    44. If rec_SchliessenSchaltfläche.Contains(e.Location) Then
    45. If Not Me.SelectedTab.Text.Contains("Aktuell - ") Then
    46. Me.TabPages.RemoveAt(Me.SelectedIndex)
    47. int_ChildFormNumber -= 1
    48. Exit Sub 'wenn die TabPage geschlossenwurde darf ein Verschieben nicht mehr ausgelöst werden
    49. End If
    50. End If
    51. 'Startet das Verschieben der TabPage
    52. If (e.Button = Windows.Forms.MouseButtons.Left) AndAlso (MyBase.SelectedTab IsNot Nothing) AndAlso (Not MyBase.GetTabRect(MyBase.SelectedIndex).IsEmpty) Then
    53. Me.tbp_Ausgewählt = MyBase.SelectedTab
    54. End If
    55. MyBase.OnMouseDown(e)
    56. End Sub
    58. Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
    59. With MyBase.TabPages
    60. If (e.Button = Windows.Forms.MouseButtons.Left) AndAlso (Me.tbp_Ausgewählt IsNot Nothing) Then
    61. tbp_Ziel = TabErmitteln(e.X, e.Y)
    62. If (tbp_Ziel IsNot Nothing) Then
    63. Dim currRect As Drawing.Rectangle = MyBase.GetTabRect(.IndexOf(tbp_Ziel))
    64. 'Die TabPage wird immer auf den Index des PabPages geschrieben über dem sich die Maus befindet.
    66. 'Hier wird geprüft wo sich der MouseCursor im verhältniss zum zuverschiebenden TabPage befindent.
    67. 'Entsprechend seiner Position wird dann ein Pfeil nach Links oder Rechts angezeit.
    68. If (.IndexOf(tbp_Ziel) < .IndexOf(Me.tbp_Ausgewählt)) Then
    69. MyBase.Cursor = Cursors.PanWest
    70. ElseIf (.IndexOf(tbp_Ziel) > .IndexOf(Me.tbp_Ausgewählt)) Then
    71. MyBase.Cursor = Cursors.PanEast
    72. Else 'Die TabPage unterhalb des Cursors ist der Aktuelle (zu verschiebende) Tab -> Cursor wird Default
    73. MyBase.Cursor = Cursors.Default
    74. End If
    75. Else 'Es befindet sich keine TabPage unterhalb des Cursors -> Ein Verschieben ist hierher nicht möglich.
    76. Me.Cursor = Cursors.No
    77. End If
    78. Else 'Wenn keine TabPage ausgewählt wurde
    79. Me.Cursor = Cursors.Default
    80. End If
    81. MyBase.OnMouseMove(e)
    82. End With
    83. End Sub
    85. Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    86. With MyBase.TabPages
    87. If (e.Button = Windows.Forms.MouseButtons.Left) AndAlso (Me.tbp_Ausgewählt IsNot Nothing) Then
    88. tbp_Ziel = TabErmitteln(e.X, e.Y)
    89. If (tbp_Ziel IsNot Nothing) AndAlso (Not tbp_Ziel.Equals(Me.tbp_Ausgewählt)) Then
    90. Dim currRect As Drawing.Rectangle = MyBase.GetTabRect(.IndexOf(tbp_Ziel))
    91. If (.IndexOf(tbp_Ziel) < .IndexOf(Me.tbp_Ausgewählt)) Then
    92. .Remove(Me.tbp_Ausgewählt)
    93. .Insert(.IndexOf(tbp_Ziel), Me.tbp_Ausgewählt)
    94. MyBase.SelectedTab = Me.tbp_Ausgewählt
    95. ElseIf (.IndexOf(tbp_Ziel) > .IndexOf(Me.tbp_Ausgewählt)) Then
    96. .Remove(Me.tbp_Ausgewählt)
    97. .Insert(.IndexOf(tbp_Ziel) + 1, Me.tbp_Ausgewählt)
    98. MyBase.SelectedTab = Me.tbp_Ausgewählt
    99. End If
    100. End If
    101. End If
    102. Me.tbp_Ausgewählt = Nothing
    103. MyBase.Cursor = Cursors.Default
    104. MyBase.OnMouseUp(e)
    105. End With
    107. End Sub
    109. Private Function TabErmitteln(ByVal x As Integer, ByVal y As Integer) As TabPage
    110. For i As Integer = 0 To MyBase.TabPages.Count - 1
    111. If MyBase.GetTabRect(i).Contains(x, y) Then
    112. Return MyBase.TabPages(i)
    113. End If
    114. Next
    115. Return Nothing
    116. End Function
    118. #End Region
    120. End Class



    Ich würde mich freuen wenn du mir deine überarbeitete Version zeigen würdest.
    Ich bin noch am üben mit den UserControls. Hoffe davon dann auch lernen zu können.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    @iEi

    konntest du mein Control verbessern?
    Wenn ja würde ich das gerne sehen damit ich daraus was lernen kann. Danke!
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

Facebook
Telefonspende