Hallo,
ich habe ein Problem mit der Darstellung des Inhaltes eines dgv:
Mein dgv enthält 30 Zeilen (ermittelt mit
Durch die Kopie sollten (hoffentlich) alle Eigenschaften die gleichen sein, aber dann dürten sich die beiden Inhalte doch nicht unterscheiden?????? Gibt es noch "andere" Einstellungen die ich kontrollieren sollte/müsste/könnte?
Hier meine Routine:
Hier der Output:
Ein Screenshot als Anhang.
ich habe ein Problem mit der Darstellung des Inhaltes eines dgv:
Mein dgv enthält 30 Zeilen (ermittelt mit
dgv.RowCount
, wovon jedoch nur einge (je nach Größe des dgv-Objektes) angezeigt werden. Ich bekomme auch einen Scrollbalken angezeigt, wenn die eine komplette Zeile nicht mehr in die Größe des dgv passt, aber nur um bis zum Ende der Zeile zu scrollen und nicht bis zum Ende des 30. Eintrages. Ich habe dann eine Kopie des dgv in ein anderes Formular gemacht und dort das dgv mit 30 Zeilen gefüllt und es erscheint ein Scrollbalken, welcher mich durch alle 30 Einträge scrollen lässt.Durch die Kopie sollten (hoffentlich) alle Eigenschaften die gleichen sein, aber dann dürten sich die beiden Inhalte doch nicht unterscheiden?????? Gibt es noch "andere" Einstellungen die ich kontrollieren sollte/müsste/könnte?
Hier meine Routine:
VB.NET-Quellcode
- Public Sub dgvFill()
- ' Füllen des DataGridView
- Dim ListOfDgvHeader As String() = {"Ranking", "PerformanceClass", "Lastname", "Firstname", "Club", "Discipline"} ' diese keys in dgv füllen
- Dim y As Integer = 0
- dgvSpielerdatenAnmeldung.Rows.Clear() ' dgv löschen
- ' dgv aufbauen
- For Each pair In dicParticipant
- If dgvSpielerdatenAnmeldung.Top + dgvSpielerdatenAnmeldung.Height + 95 <= Height Then ' maximale Grösse des DataGridViews auf Fentergrösse beschränken
- dgvSpielerdatenAnmeldung.Height = dgvSpielerdatenAnmeldung.Height + dgvSpielerdatenAnmeldung.RowTemplate.Height
- End If
- Dim subpair As KeyValuePair(Of String, String)
- dgvSpielerdatenAnmeldung.Rows.Add("", "", "", "", "", "", "") ' leere Zeile hinzufügen
- For Each subpair In pair.Value
- If ListOfDgvHeader.Contains(subpair.Key) Then
- dgvSpielerdatenAnmeldung.Item(0, y).Value = y + 1 ' Wert in Zelle setzen
- Select Case subpair.Key
- Case ListOfDgvHeader(0)
- dgvSpielerdatenAnmeldung.Item(1, y).Value = subpair.Value ' Wert in Zelle setzen
- Case ListOfDgvHeader(1)
- dgvSpielerdatenAnmeldung.Item(2, y).Value = subpair.Value ' Wert in Zelle setzen
- Case ListOfDgvHeader(2)
- dgvSpielerdatenAnmeldung.Item(3, y).Value = subpair.Value ' Wert in Zelle setzen
- Case ListOfDgvHeader(3)
- dgvSpielerdatenAnmeldung.Item(4, y).Value = subpair.Value ' Wert in Zelle setzen
- Case ListOfDgvHeader(4)
- dgvSpielerdatenAnmeldung.Item(5, y).Value = subpair.Value ' Wert in Zelle setzen
- Case ListOfDgvHeader(5)
- dgvSpielerdatenAnmeldung.Item(6, y).Value = subpair.Value ' Wert in Zelle setzen
- End Select
- End If
- Next
- y += 1
- Next
- Logging("dgv rowcount: " & dgvSpielerdatenAnmeldung.RowCount)
- End Sub
Hier der Output:
15.05.2015 13:09:49 dgv rowcount: 30
Ein Screenshot als Anhang.