Fenster mit SplitContainer mittig teilen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Fenster mit SplitContainer mittig teilen

    Und gleich das nächte :o)
    Ich habe eine einfache Form mit einem SplitContainer drauf.
    Kann ich im Designer so einstellen, dass der SplitContainer das Fenster in der Mitte teilt, egal wie groß die Form ist?
    Also so als würde ich eine Table mit zwei Spalten, die auf 50% stehen, auf meine Form schmeiße.

    Soweit ich weiß, nein. Aber wenn Du SplitterDistance anfangs auf den korrekten Wert stellst, dann IsSplitterFixed = True machst und FixedPanel bei None belässt, wird die Teilung bei Fromgrößenveränderung bei 50% beibehalten.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @All Jou.
    @DerSmurf Was genau soll mit den Breiten passieren, wenn das Fenster gestreckt/gestaucht wird?
    Sollen beide Sub-Panels mit dem Splitter in ihrer Größe verändert werden können?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    hmm.
    Den Gedanken ein TLP zu verwenden hatte ich auch.
    Jedoch hatte ich hier das Problem, dass ich ja pro Tabellenzelle nur ein Control einfügen kann.
    Ich müsste also auf meiner TabPage ein TLP mit zwei Spalten erstellen und dann in jede der beiden Tabellenzellen wieder einen SplitContainer, oder ein anderes Control, damit ich mehrere Label anzeigen kann.
    Was spricht gegen die Lösung von @VaporiZed ?
    Das funktioniert auch.

    Edit:
    Ein TLP zum teilen. In jeder der beiden Zelle eine weitere TLP mit 1 Spalte und 2 Zeilen.
    Zeile 1 stellt die Überschrift dar ("13 offene Lieferungen"). In Zeile 2 hau ich ein Panel drauf.
    Hier kann ich dann per Code für jede offene LIeferung ein Label raufmalen und das ganze gescheit mit einer Schleife löschen, weil ich ja nur die Controls auf Panel1 durchgehen kann.
    Aber das geht ja ebenso mit einem SplitContainer in erster Ebene (also statt des TLP mit 2 50% Spalten).
    Was macht denn nu mehr Sinn?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DerSmurf“ ()

    DerSmurf schrieb:

    Jedoch hatte ich hier das Problem, dass ich ja pro Tabellenzelle nur ein Control einfügen kann.
    Pack da ein normales Panel rein und Du kannst das befüllen womit immer Du willst. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich denke ein TLP im TLP ist schon OK.
    So habe ich die Überschrift separat, und kann mit:

    VB.NET-Quellcode

    1. For i = Me.PanelOpenOrders.Controls.Count - 1 To 0 Step -1

    Alle erstellten Labels löschen, bevor ich neue reinschreibe.
    Wenn ich die Überschrift mit ins Panel schmeiße, müsste ich diese ja nach obigem Code auch per Code erzeugen. So kann ichs im Designer.
    Den Text muss ich noch zentrieren, damits gescheit zu den (zentrierten) Überschriften passt.
    Da ich die unteren Label aber Per Code erzeuge, tue ich mich hier schwer. Wenn das Programm nicht in Vollbild läuft, siehts gut aus. Im Vollbild passt alles nicht.
    Aber ich muss ja beim Erzeugen der Labels feste Punkte angeben (wo das Label anfängt) diese sind ja anders in Vollbild und im Fenstermodus :(

    Edit: auf der linken Seite habe ich 3 einzelne Labels, auf der rechten Seite sind es 2.
    Bilder

    • Unbenannt.jpg

      104,19 kB, 1.920×1.080, 135 mal angesehen

    • soll.jpg

      321,01 kB, 1.920×1.080, 121 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DerSmurf“ ()

    DerSmurf schrieb:

    Was macht denn nu mehr Sinn?
    Mir ist das wichtigste, dass dir das Instrumentarium bekannt ist, und du die Features verstanden hast: Layout in Windows.Forms
    Ab da musste selbst entscheiden, Entscheidungen revidieren, neu entscheiden.
    Mit TLP kann man auch so lustige Sachen machen, dass man ein 2-Teiliges TLP mit Label und Textbox fertig vorbereitet, und dann an verschiedene Stellen hinkopiert, wie mans braucht.
    Ansonsten: Ich nehme TLP wenn die Layout-Aufteilung zur Designzeit gemacht wird.
    SplitContainer nehme ich, wenn der User den Splitterbalken schieben können soll.
    (Weiters hab ich mir noch 2 ganz schnucklige ContainerControls selbst gebastelt: ein SizerPanel, das ist ein SplitContainer für mehr als zwei Spalten, und ein CaptionPanel, das ist ein Panel mit Beschriftung (oben oder links).
    Daher verwende ich SplitContainer eiglich garnimmer.)


    PS: Was ich immer sage: Controls erstellen zur Laufzeit ist Mist.
    Macht viele Umstände und Probleme, was man mit einem ListenControl (DGV, Listbox) nicht hätte.
    Was du da anzeigst würde ich in 2 datengebundenen DGVs anzeigen.
    Mag sein, sähe nicht so dolle aus, aber dafür wärs knapp und v.a. vom Datenfluss her sauber programmiert ("skalierbar").
    Sodass ich auch 50 offene Lieferungen von 20 Firmen anzeigen könnte, inklusive Bestellnummern, und sowas.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Huhu. Mit deinem P.S. hast du vollkommen recht.
    Allerdings ist mir hier die Optik schon recht wichtig (was ja sonst bei mir nicht unbedingt der Fall ist).
    Also ein gebundenes DGV kommt nicht in Frage.

    Ich habe mir mal Gedanken gemacht, wie ich das ganze mit Labels mittig auf die Form bekomme.
    In der Theorie finde ich meinen Ansatz gut, praktisch klappts aber einfach nicht.
    Es geht um die Bestellungen. Also linke Seite.

    VB.NET-Quellcode

    1. ​xPosition = CInt((Me.Width / 2 - 205 - 177 - 160) / 2)

    Me.width / 2 = halbe Formbreite
    -205 = Abstand von Label1 zu Label2
    -177 = Abstand von Label2 zu Label3
    -160 = Breite des Labels3 (rechtsbündige Textdarstellung)
    das ganze / 2 = damits dann mittig ist.

    Edit: Ja klar. Der Code funktioniert. Aber wenn ich die Größe der Form ändere, wird ja meine Sub garnicht gefeuert.
    Wenn ich von Fenstermodus in Vollbild wechsel und die Startseite neu zeichne (also die Sub manuell starte) stimmt die Darstellung.

    So klappt alles. Deine Videos zum Layouting habe ich mir angesehen. Allerdings habe ich diese bereits öfters zu gemüte geführt (und ich denke mittlerweile auch verinnerlicht)
    Btw. an dieser Stelle vielen Dank für deinen Youtube Channel! (Weiß nicht, ob ich das schon mal gesagt habe)
    Gerade beim Thema DataSet warst du viele Abende meine "Einschlaflektüre"!

    Ich habe die Sub zum erstellen der Labels jetzt auch im Form Resize Event. So ist mein Text immer schön zentriert.
    Ich poste mal den Code. Könntest du mir @ErfinderDesRades erklären, wo hier das Problem, mit den zur Laufzeit erstellten Controls ist?
    Denn ich finde meinen Code OK - allerdings bin ich ja echt der falsche um das zu beurteilen.
    Das einzige was ich negativ finde ist die Codemasse, im Vergleich zu zwei gebundenen DGVs zur Anzeige.

    Eins noch vorweg. Den Fall, dass es keine Bestellung / fehlende Rechnung gibt, habe ich beim Erstellen meines Codes vergessen.
    Das baue ich natürlich noch ein:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Sub zum anzeigen der Informationen auf Startseite
    2. Private Sub DrawHomeScreen()
    3. Dim OrderAmountTotal As Integer
    4. Dim OpenOrders As New List(Of String)
    5. Dim MissingInvoiceCountTotal As Integer
    6. Dim OpenInvoices As New List(Of String)
    8. 'Labels auf Homeseite löschen
    9. ClearHome()
    11. 'Bestellungen und Rechnungen zur Anzeige laden
    12. GetDataForHomeScreen(OpenOrders, OrderAmountTotal, OpenInvoices, MissingInvoiceCountTotal)
    14. 'Ausgabe der Daten für Lieferungen
    15. WriteDataToHomeScreen(OpenOrders, OrderAmountTotal, OpenInvoices, MissingInvoiceCountTotal)
    17. End Sub


    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Sub zum löschen der Labels auf Startseite
    2. Private Sub ClearHome()
    3. 'Bestellungen
    4. For i = Me.PanelOpenOrders.Controls.Count - 1 To 0 Step -1
    5. If TypeOf Me.PanelOpenOrders.Controls(i) Is Label Then
    6. Me.PanelOpenOrders.Controls.RemoveAt(i)
    7. End If
    8. Next
    9. 'Rechnungen
    10. For i = Me.PanelMissingInvoices.Controls.Count - 1 To 0 Step -1
    11. If TypeOf Me.PanelMissingInvoices.Controls(i) Is Label Then
    12. Me.PanelMissingInvoices.Controls.RemoveAt(i)
    13. End If
    14. Next
    15. End Sub


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub GetDataForHomeScreen(ByRef OpenOrders As List(Of String), ByRef OrderAmountTotal As Integer,
    2. ByRef OpenInvoices As List(Of String), ByRef MissingInvoiceCountTotal As Integer)
    3. Dim Orderfound As Boolean
    4. Dim DateofReceive As String
    5. Dim DaysTillArrival As Integer
    6. Dim SupplierName As String
    7. Dim MissingInvoiceCount As Integer
    8. Dim InvoiceDates As New List(Of String)
    10. 'Schleife druch jeden Lieferanten
    11. For Each Supplier In DtsSettings.Supplier
    12. Orderfound = False
    13. MissingInvoiceCount = 0
    14. DateofReceive = ""
    15. 'Bestellungen für den Lieferanten laden
    16. Dim Orders = Supplier.GetOrderRows()
    17. 'Schleife durch jede Bestellung
    18. For Each Order In Orders
    19. 'Prüfen ob Lieferdatum leer ist
    20. If Order.IsDeliveryDateNull Then
    21. If Orderfound Then
    22. SupplierName = ""
    23. Else
    24. SupplierName = Supplier.Name
    25. End If
    26. Orderfound = True
    27. OrderAmountTotal += 1
    28. 'Lieferdatum ausrechnen
    29. If Supplier.IsDeliverDurationAverageNull Then
    30. DateofReceive = "erste Lieferung"
    31. Else
    32. DateofReceive = (Microsoft.VisualBasic.DateAdd("d", CInt(Supplier.DeliverDurationAverage), Order.OrderDate)).ToShortDateString
    33. End If
    34. 'ausrechnen, wann Lieferung kommt
    35. If DateofReceive = "erste Lieferung" Then
    36. DaysTillArrival = 10000
    37. Else
    38. DaysTillArrival = CInt(Date.Parse(DateofReceive).Subtract(System.DateTime.Now).TotalDays + 1)
    39. End If
    40. 'Werte in List of string speichern
    41. OpenOrders.Add(SupplierName & "|" & DaysTillArrival & "|" & DateofReceive)
    42. Else
    43. 'wenn Lieferdatum existiert, prüfen ob Rechnung erhalten
    44. If Order.IsInvoiceReceiveNull Then
    45. MissingInvoiceCountTotal += 1
    46. MissingInvoiceCount += 1
    47. 'Datum der fehlenden Rechnungen in List of String speichern
    48. If MissingInvoiceCount > 0 Then
    49. InvoiceDates.Add(Order.OrderDate.ToShortDateString)
    50. End If
    51. End If
    52. End If
    54. Next
    56. 'fehlende Rechnungen in List of String speichern
    57. For j = 0 To MissingInvoiceCount - 1
    58. If j = 0 Then
    59. OpenInvoices.Add(Supplier.Name & "|" & MissingInvoiceCount & " vom " & InvoiceDates(j))
    60. Else
    61. OpenInvoices.Add(" " & "|vom " & InvoiceDates(j))
    62. End If
    63. Next
    64. Next
    65. End Sub


    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Sub zum schreiben der Daten auf Homescreen
    2. Private Sub WriteDataToHomeScreen(OpenOrders As List(Of String), OrderAmountTotal As Integer,
    3. OpenInvoices As List(Of String), MissingInvoiceCountTotal As Integer)
    5. 'offene Bestellungen schreiben
    6. Dim xPosition As Integer
    7. Dim yPosition = 20
    8. 'Schleife durch alle offenen Bestellungen
    9. For i = 0 To OpenOrders.Count - 1
    10. xPosition = CInt((Me.Width / 2 - 205 - 177 - 160) / 2)
    11. 'Order Info in Array speichern | Name=0, Lieferzeit=1, Ankunftsdatum=2
    12. Dim OrderInfo() As String = Split(OpenOrders(i), "|")
    13. 'Label Firmaname erstellen
    14. Dim NewLBLSupplierName As New System.Windows.Forms.Label
    15. With NewLBLSupplierName
    16. .Location = New System.Drawing.Point(xPosition, yPosition)
    17. .Font = New Font("Microsoft Sans Serif", 16)
    18. .Name = "LBL" & OrderInfo(0)
    19. .TextAlign = ContentAlignment.MiddleLeft
    20. .Size = New System.Drawing.Size(199, 26)
    21. .Text = OrderInfo(0)
    22. .Visible = True
    23. End With
    24. 'Label Menge offener Bestellungen erstellen
    25. xPosition += 205
    26. Dim NewLBLDeliverDuration As New System.Windows.Forms.Label
    27. Dim DeliverDurationText As String
    28. 'Text zur Ausgabe, wann Lieferung eintrifft erstellen
    29. Select Case Integer.Parse(OrderInfo(1).ToString)
    30. Case > 1
    31. If Integer.Parse(OrderInfo(1)) = 10000 Then
    32. DeliverDurationText = ""
    33. Else
    34. DeliverDurationText = "in " & OrderInfo(1) & " Tagen"
    35. End If
    36. Case = 1
    37. DeliverDurationText = "morgen"
    38. Case = 0
    39. DeliverDurationText = "heute"
    40. Case = -1
    41. DeliverDurationText = "gestern"
    42. Case < -1
    43. DeliverDurationText = "vor " & CInt(OrderInfo(1)) * -1 & " Tagen"
    44. End Select
    45. With NewLBLDeliverDuration
    46. .Location = New System.Drawing.Point(xPosition, yPosition)
    47. .Font = New Font("Microsoft Sans Serif", 16)
    48. .Name = "LBLDeliverDuration"
    49. .TextAlign = ContentAlignment.MiddleLeft
    50. .Size = New System.Drawing.Size(171, 26)
    51. .Text = DeliverDurationText
    52. .Visible = True
    53. End With
    54. 'Label Menge offener Bestellungen erstellen
    55. xPosition += 177
    56. Dim NewLBLArrivalDate As New System.Windows.Forms.Label
    57. With NewLBLArrivalDate
    58. .Location = New System.Drawing.Point(xPosition, yPosition)
    59. .Font = New Font("Microsoft Sans Serif", 16)
    60. .Name = "LBLArrivalDate"
    61. .TextAlign = ContentAlignment.MiddleRight
    62. .Size = New System.Drawing.Size(160, 26)
    63. .Text = OrderInfo(2)
    64. .Visible = True
    65. End With
    66. yPosition += 36
    68. 'Label auf die Form malen
    69. PanelOpenOrders.Controls.Add(NewLBLSupplierName)
    70. PanelOpenOrders.Controls.Add(NewLBLDeliverDuration)
    71. PanelOpenOrders.Controls.Add(NewLBLArrivalDate)
    72. Next
    74. 'Überschriften für Bestellungen beschreiben
    75. LBLOpenOrders.Text = OrderAmountTotal.ToString & " offene Lieferungen"
    77. 'Ausgabe der Daten für Rechnungen
    78. yPosition = 20
    79. 'Rechnungsinfo in Array speichern | Name=0, Bestelldatum=1
    80. For i = 0 To OpenInvoices.Count - 1
    81. xPosition = CInt((Me.Width / 2 - 205 - 190) / 2)
    82. Dim InvoiceInfo() As String = Split(OpenInvoices(i), "|")
    83. 'Label erstellen
    84. Dim NEWLBLInvoice As New System.Windows.Forms.Label
    85. With NEWLBLInvoice
    86. .Location = New System.Drawing.Point(xPosition, yPosition)
    87. .Font = New Font("Microsoft Sans Serif", 16)
    88. .Name = "LBLInvoice"
    89. .TextAlign = ContentAlignment.MiddleLeft
    90. .Size = New System.Drawing.Size(199, 26)
    91. .Text = InvoiceInfo(0)
    92. .Visible = True
    93. End With
    94. xPosition += 205
    96. Dim NEWLBLInvoiceDate As New System.Windows.Forms.Label
    97. With NEWLBLInvoiceDate
    98. .Location = New System.Drawing.Point(xPosition, yPosition)
    99. .Font = New Font("Microsoft Sans Serif", 16)
    100. .Name = "LBLInvoice"
    101. .TextAlign = ContentAlignment.MiddleRight
    102. .Size = New System.Drawing.Size(190, 26)
    103. .Text = InvoiceInfo(1)
    104. .Visible = True
    105. End With
    106. yPosition += 36
    107. 'Label auf die Form malen
    108. PanelMissingInvoices.Controls.Add(NEWLBLInvoice)
    109. PanelMissingInvoices.Controls.Add(NEWLBLInvoiceDate)
    110. Next
    112. 'Überschriften für Rechnungen beschreiben
    113. LBLMissingInvoices.Text = MissingInvoiceCountTotal.ToString & " fehlende Rechnungen"
    115. End Sub
    Bilder

    • dataset.jpg

      343,01 kB, 1.920×1.080, 130 mal angesehen

    DerSmurf schrieb:

    Allerdings ist mir hier die Optik schon recht wichtig.
    Also ein gebundenes DGV kommt nicht in Frage.

    Na, vlt. unterschätzst du die Gestaltungsmöglichkeiten von DGV.
    Mit bischen Hexerei kriegt man auch so gruppierten Ansichten hin, vergleichbar deiner "fehlendeRechnung"-Darstellung.

    Aber genau so wie bei dir wirds natürlich nicht (dafür annere Möglichkeiten).

    ErfinderDesRades schrieb:

    Daher verwende ich SplitContainer eiglich garnimmer.
    Ich hab iwie gemerkt, dass auf abgeleiteten Forms mit n Haufen Layout in der BaseForm nur ein SplitContainer erlaubt, weitere Unter-Panels zu gruppieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @DerSmurf

    Ich stand vor einem Jahr auch vor dieser Frage.
    RodFromGermany empfiehlt gernde das DGV ;-). Ich war auch Deiner Meinung, dass das optisch "kacke" aussieht. Aber es hatte damals auch jemand ein Beispiel gepsostet, dass man das auch wirklich optisch ansprechend gestalten kann. Aber natürlich mit nicht gerade wenig Aufwand ;-).

    Ich habe mich dazu entschieden meine Oberflächen ausschließlich mit Panels zu gestalten. Im Resize und Resize-End Event der Form passe ich alle Panels manuell der Fenstergröße an. Ist zwar auch sehr viel Aufwand, aber man hat da sogar mehr Kontrolle bei der Ausgabe und kann so gut wie alles machen. Ich ging sogar so weit, dass ich nur die nötigesten Forms verwende und auch hier nur auf Panels zurückgreife die ich sichtbar oder unsichtbar mache - das ist ein erheblicher Performancegewinn bei der Anzeige.

    In der Anlage ein Screenshot von meiner ERP-Software in der IDE (ja ich weiß, da wirds manchem schwindlig ;) ).
    Bilder

    • Unbenannt-1.jpg

      2,25 MB, 3.440×1.408, 119 mal angesehen
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    @dive26 DGV und Panels sind aber zwei sehr verschiedene Paar Schuhe.
    DGV für Tabellen, klar.
    Panels für eine Gesamt-GUI, ich präferiere da ein TableLayoutPanel, höchst selten ein FlowLayoutPanel.
    SplitContainer kann allerdings erforderlich sein, wenn Du Forms ableitest, siehe Post #12.
    Und irgendwo da in eine oder mehrere Zellen kommt dann das DGV (RowSpan, ColumnSpan und Dock = Fill).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende