row Größe ändern wärend der Laufzeit vom tablelayoutpanel

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Icemo.

    row Größe ändern wärend der Laufzeit vom tablelayoutpanel

    Hallo,

    hab noch nen kleines Problem den rest denke bekomm ich dann hin.

    Erst mal habe ich es mit den Bildlaufleisten vorerst hinbekommen.
    Aber da ich ein tlp = tablelayoutpanel nutze habe ich da ne kleine Frage zu.
    Ich möchte je nach sichtbarkeit von Elementen die Zeilenhöhe einzelner Rows ändern zur Laufzeit.

    Habe den Befehl " tlpWochenansicht.RowStyles(5).Height = 164" benutzt, aber leider passiert garnichts.
    Das er die Zeile abbarbeitet ist sichergestellt. Ist hier noch ein kleiner Klammer oder Punktfehler drin?

    Habe schon vieles ausprobiert nur bis jetzt ohne Erfolg.

    Glaub du hast mich leicht missverstanden.
    Im datagridview ist klar da sind die rows Schriftgrösse gebunden bzw alle gleich hoch.
    Ich aber meinte das Tablelayoutpanel.
    Da gibt es auch Zweilen und spalten.
    Da ich in bestimmten spalten einige elemente auf visible d= false setze und in diesem falle gerne die Zeile verkleinern würde,
    Wäre es eben schön wenn ich die Zeilenhöhe direkt ändern könnte. Dann werden zwar einige elemente ausserhalb der Zeile sein, was aber egal ist da sie eh nicht sichtbar sind.
    Aber ich werde drotzdem mal in den link schauen evtl gibt dies mir die lösung.

    und ob ich mich vertan habe.
    es gibt bei msdn zwei Beispiele, die habe ich dir mal zusammen in ein TabelLayoutPanel gepackt.
    Damit kannst du die Spaltenbreite und die Zeilenhöhe verändern.
    Mach mal Form1, TabelLayoutPanel1 und zwei Button:

    Und dann Packst du diesen Code da rain:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim styles As TableLayoutColumnStyleCollection = Me.TableLayoutPanel1.ColumnStyles
    5. For Each style As ColumnStyle In styles
    6. If style.SizeType = SizeType.Absolute Then
    7. style.SizeType = SizeType.AutoSize
    8. ElseIf style.SizeType = SizeType.AutoSize Then
    9. style.SizeType = SizeType.Percent
    10. ' Set the column width to be a percentage
    11. ' of the TableLayoutPanel control's width.
    12. style.Width = 33
    13. Else
    14. ' Set the column width to 50 pixels.
    15. style.SizeType = SizeType.Absolute
    16. style.Width = 50
    17. End If
    18. Next
    19. End Sub
    20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    21. Dim styles As TableLayoutRowStyleCollection = Me.TableLayoutPanel1.RowStyles
    22. For Each style As RowStyle In styles
    23. If style.SizeType = SizeType.Absolute Then
    24. style.SizeType = SizeType.AutoSize
    25. ElseIf style.SizeType = SizeType.AutoSize Then
    26. style.SizeType = SizeType.Percent
    27. ' Set the row height to be a percentage
    28. ' of the TableLayoutPanel control's height.
    29. style.Height = 33
    30. Else
    31. ' Set the row height to 50 pixels.
    32. style.SizeType = SizeType.Absolute
    33. style.Height = 50
    34. End If
    35. Next
    36. End Sub
    37. End Class


    Nun müsstest du einen ansatz haben wie du an die Row und Colum Werte ran kommst.

    msdn: Rows
    msdn: Colums

    So und wenn ich mich jetzt wieder vertan habe, darfst du schimpfen

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

    Ok, das hört sich richtig an, habe es zwar noch nicht getestet, aber wenn ich den Code mal so überlesen habe
    weis ich wo der Ansatz bei mir falsch ist.
    Ne kleine Frage habe ich noch dazu, die If Schleife für Absolut und percent etc, die kann ich doch auch weglassen oder?
    Weil ich ja im vorraus weis ob sie Absolut sind, zu mindest in meinem Fall.
    Und um eine Bestimmte Zeile zu ändern geh ich von aus das ich dann nur bei

    Dim styles As TableLayoutRowStyleCollection = Me.TableLayoutPanel1.RowStyles hir am ende in Klammern gesezt den Zeilenindex setzen muss. Werde ich zur Not halt testen.

    Aber danke für den Ansatz.

    ChaosBernd schrieb:

    ' Set the row height to 50 pixels.
    style.SizeType = SizeType.Absolute
    style.Height = 50
    End If

    Wenn du das erstemal auf einen Button klickst dann setzt er nach %. beim zweitenmal klicken (siehe ausschnitt) setzt er zurück auf die alte größe.
    Das Beispiel ist sehr schön. schau es dir an und propbier aus. es wird schon gehen.

    Ok soweit so gut verstehe den code schnipsel auch, nun bin ich zwar schon recht nahe, drotzdem fehlt mir noch ne kleine info die ich irgendwie nicht hinbekomme.

    Wie greife ich auf eine Bestimmte Zeile zu? mit deiner variante greife ich ja auf alle Zeilen/Spalten zu ist ja auch nicht schlecht.

    Ich könnte es mit einer Caseanweisung lösen, indem ich abfrage bei welcher row er gerade ist. nur denke ist nicht die schöne art.

    Zumal ich ja pro Spalte/Zeile ein control abfrage (welche unterschiedliche namen haben) ob es sichtbar ist oder nicht.

    Dann wäre es natürlich besser wenn mann direkt auf eine spalte/zeile zu greifen kann.

    werde ich machen sobald ich auch eine laufzeitfreundliche lösung besitze.
    Weil denke es macht sinn gleich saubere codes zu nutzen und sich sowas anzueignen, auch wenn es manchmal schwerfällig und mühselig ist.
    Ich spreche da aus erfahrung.

    So hier meine Lösung, ist basierend auf Rowstyle = Absolute

    VB.NET-Quellcode

    1. Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Dim styles As TableLayoutRowStyleCollection = Me.TableLayoutPanel1.RowStyles
    4. Dim Wert As Int16 ' Eingabewert für die Zeilenhöhe
    5. Dim Zeile As Byte ' Eingabewert welche Zeile bearbeitet wird
    6. Dim Zähler As Byte = TableLayoutPanel1.RowCount ' Zähler, um festzustellen in welcher Zeile er sich befindet
    8. ' Eingaben der Höhenwerte und Zeilenposition über Inpuboxen
    10. Wert = InputBox("Wert eingeben!")
    11. zeile = InputBox("Zeile eingeben!")
    13. For Each style As RowStyle In styles
    15. Zähler -= 1
    17. If Zeile = TableLayoutPanel1.RowCount - Zähler Then
    18. style.SizeType = SizeType.Absolute ' Nicht getestet aber glaube diese Position kann man weglassen, wenn die Zeile eh auf Absolut steht
    19. If Wert < TableLayoutPanel1.RowStyles.Item(TableLayoutPanel1.RowCount - Zähler - 1).Height Then Vergleich ob Neue Höhenangabe kleiner ist wie die Alte
    20. TableLayoutPanel1.Height -= Wert ' Wenn ja, wird das ganze Tablelayoutpanel um den wert verkleinert
    21. ElseIf Wert > TableLayoutPanel1.RowStyles.Item(TableLayoutPanel1.RowCount - Zähler - 1).Height Then ' Überprüfen ob der neue Wert größer ist als der Alte
    22. TableLayoutPanel1.Height += Wert - TableLayoutPanel1.RowStyles.Item(TableLayoutPanel1.RowCount - Zähler - 1).Height ' Wenn ja wird das Layoutpanel um diesen Wert vergrössert
    23. Else
    24. End If
    25. style.Height = Wert ' Stellt die eigentliche Zeilenhöhe ein
    27. End If
    29. Next
    31. End Sub


    Dieser Code ist noch mit kleinen Fehler beinhaltet, möchte den Copy-Paste Effect vermeiden.
    Aber im ganzen functioniert dies so.

    Einziger Nachteil hierbei ist, das er auch bei xxx-Zeilen jede zeile durchläuft und nachschaut ob er sie bearbeiten soll.
    Wenn da noch jemand einen Tip zu hat wie ich dieses verbessern kann Danke ich für.

    Hab das ganze noch mal überarbeitet und für Spalten und Zeilen erstellt.
    Wer interesse hat kann ja reinschauen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btnSpaltenbreite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpaltenbreite.Click
    3. Dim styles As TableLayoutColumnStyleCollection = Me.TableLayoutPanel1.ColumnStyles
    4. Dim Gesamtgroesse, Altgroesse, Neugroesse As Integer
    5. Dim Spalte As Byte
    6. Dim Zähler As Byte = TableLayoutPanel1.ColumnCount
    8. Spalte = InputBox("Spalte eingeben!")
    9. Gesamtgroesse = TableLayoutPanel1.Width
    10. Altgroesse = TableLayoutPanel1.ColumnStyles.Item(Spalte - 1).Width
    11. Neugroesse = InputBox("Spalte eingeben!")
    13. For Each style As ColumnStyle In styles
    14. Zähler -= 1
    15. If Spalte = TableLayoutPanel1.ColumnCount - Zähler Then
    16. style.SizeType = SizeType.Absolute
    17. style.Width = Neugroesse
    18. TableLayoutPanel1.Width = HoeheRechnen(Gesamtgroesse, Altgroesse, Neugroesse)
    19. End If
    20. Next
    21. End Sub
    23. Private Sub btnZeilenhoehe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZeilenhoehe.Click
    25. Dim styles As TableLayoutRowStyleCollection = Me.TableLayoutPanel1.RowStyles
    26. Dim Gesamtgroesse, Altgroesse, Neugroesse As Integer
    27. Dim Zeile As Byte
    28. Dim Zähler As Byte = TableLayoutPanel1.RowCount
    30. Zeile = InputBox("Zeile eingeben!")
    31. Gesamtgroesse = TableLayoutPanel1.Height
    32. Altgroesse = TableLayoutPanel1.RowStyles.Item(Zeile - 1).Height
    33. Neugroesse = InputBox("Wert eingeben!")
    35. For Each style As RowStyle In styles
    36. Zähler -= 1
    37. If Zeile = TableLayoutPanel1.RowCount - Zähler Then
    38. style.SizeType = SizeType.Absolute
    39. style.Height = Neugroesse
    40. TableLayoutPanel1.Height = HoeheRechnen(Gesamtgroesse, Altgroesse, Neugroesse)
    41. End If
    42. Next
    43. End Sub
    45. Public Function HoeheRechnen(ByVal Gesamtgroesse As Integer, ByVal Altgroesse As Integer, ByVal Neugroesse As Integer) As Integer
    47. If Neugroesse < Altgroesse Then
    48. HoeheRechnen = Gesamtgroesse - (Altgroesse - Neugroesse)
    49. ElseIf Neugroesse > Altgroesse Then
    50. HoeheRechnen = Gesamtgroesse + (Neugroesse - Altgroesse)
    51. Else : End If
    53. End Function

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

Facebook
Telefonspende