Hallo,

ich habe eine Frage zu DataGripView.
Vielleicht es es auch nur eine Einstellungssache im DGV, aber ich habe bis jetzt nichts gefunden. Auch im Internet findet man viel, aber eine Problemlösung für mein Problem war nicht dabei.
Ich habe ein leeres DGV in meine Form eingebunden und die Höhe (.size-Height) so eingestellt, dass man den Header (Überschrift) und eine leere Zeile sieht. Jede Zeile besteht aus zwei ComboBoxen und einer Textbox. Zur TextBox noch eine wichtige
Anmerkung, es können auch mehrzeilige Einträge erfolgen, also nicht über ScrollBars, ist so gewollt und funktioniert auch schon alles.

Ich lese nun eine CSV-Datei ein, und die DGV wird mit Daten gefüllt.
Nun meine Frage. Wie kann ich es realisieren, dass sich das DGV automatisch von der Höhe her, seinem Inhalt (Anzahl Zeilen und deren Höhe) anpasst? Natürlich soll dies auch geschehen, wenn ich manuell eine Zeile hinzufüge.
Mit Hilfe von ScrollBars wäre dies einfach umzusetzten, aber ich will immer die gesamte DGV sehen. Wahrscheinlich werden es nie mehr wie 10 Zeilen sein, so dass ich alle Daten auf einen Blick sehen kann

Ich bin für jegliche Hilfe dankbar

Gruß Hubert

Hallo RodFromGermany,

wenn ich jetzt aber nur eine oder zwei Daten-Zeile hätte (Daten verändern mit der Zeit), dann hätte ich ein grosses leeres DGV -Fenster. Genau dies will ich ja mit der autom. Größenanpassung verhindern.

Gruß
Hubert

Ich habe auch schon probiert, mit folgendem Event zu arbeiten.

Sub DGV1_RowsAdded(ByVal sender As Object, ByVal e As DataGridViewRowsAddedEventArgs) HandlesDGV1.RowsAdded
Dim NewPosi As Integer = 0
NewPosi = DGV1.Height + 23
DGV1.Height = NewPosi
End Sub

Dieses Event wird ausgelöst, immer wenn eine neune Zeile erstellt wird. Dann habe ich die Gesamthöhe vom DGV ausgelesen und um den Wert 23 (Höhe der neuen Zeile) erhöht. Dies funktioniert nur kurz, denn entweder wird das DGV immer größer als die erforderliche Größe, oder es schneidet mir unten an der letzten Zeile immer etwas mehr ab. Ich habe auch mir dem Wert 23 gespielt, aber das verschlimmert nur den Effekt.

Danke für den Hinweis, aber ich hatte diese Einstellung auch schon durchgeführt.
Nach noch mehreren Test habe ich nun die Lösung gefunden, hier meine Quellcode

Private Sub DGV1_RowsAdded(ByVal sender As Object, ByVal e As DataGridViewRowsAddedEventArgs) Handles DGV1.RowsAdded

Dim NewPosi As Integer = 0
NewPosi = DGV1.Height + 23.5
DGV1.Height = NewPosi

End Sub

@MichaHo
natürlich kannst du auch den neuen Wert gleich so übergeben. Während der Programmierung arbeite ich noch gerne mit Zwischenwerten, die ich eventuell später noch einmal brauchen könnte. Ist die Programmierung abgeschlossen, dann optimiere ich den Quellcode, wie in deinem Beispiel.
@RodFromGermany
Ich würde deinen Vorschlag umsetzten, aber es gibt zwei Gründe, die mich davon abhalten.
1. kein Scrollbar, sonst hätte ich mir den ganzen Aufwand sparen können.
2. Es werden tatsächlich nie mehr wie 10 Einträge geben. Dies ist durch die Bedingungen der beiden ComboBoxen im DGV gewährleitet.
Trotzdem Danke für deinen Vorschalg.

Hallo VB1963,

vielen Dank für die Funktion. Leider hat sie nicht so funktioniert, wie erwünscht, aber ich konnte daraus wichtige Information herausnehmen. Das Problem ist immer, dass ich zwar die Höhe der neuen Zeile feststellen kann, aber der kleine Zwischenraum zwischen den Zeilen wird nicht berücksichtigt. Deshalb wurde mir der äussere Rahmen immer zu groß angezeigt, was kein schönes Gesamtbild ergab.
Ich habe nun mit folgende Programmierung die automatische Höhenanpassung realisiert und durch die Änderung in der Einstellung: BorderStyle = None auch den Effekt des zu großen Rahmes entfernt.
Diese Programmierung ist unabhängig von den Anzahl der Zeilen.
Hier der Quellcode:

Private Sub DGV1_RowsAdded(ByVal sender As Object, ByVal e As DataGridViewRowsAddedEventArgs) Handles Dgv1.RowsAdded
Dim DgvHight = DGV1.Height
Dim Neu = DGV1.Rows.Count - 1
DGV1.Height = DgvHight + DGV1.Rows(Neu).Height() + 3
End Sub

Vielen Dank für eure Unterstützung

Gruß
Hubertus