Hallo, ich möchte eigentlich nur das wenn ich auf eine Zeile im Listview klicke das sich die markierte Zeile die Farbe LightSlateGray bekommt.
Das Funktioniert auch mit meiner . Jetzt zu meinem Problem. egal was ich in schreibe die Subitems verschwinden wenn ich mit der Maus darüberfahre und bleiben erst sichtbar wenn ich sie einmal angeklickt habe.
Was mache ich falsch?
Hier mal mein Code. Derzeit befindet sich in beiden der fast gleiche Code.
Das Funktioniert auch mit meiner . Jetzt zu meinem Problem. egal was ich in schreibe die Subitems verschwinden wenn ich mit der Maus darüberfahre und bleiben erst sichtbar wenn ich sie einmal angeklickt habe.
Was mache ich falsch?
Hier mal mein Code. Derzeit befindet sich in beiden der fast gleiche Code.
VB.NET-Quellcode
- Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
- Dim strFormat As New StringFormat()
- Dim headerFont As New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
- e.DrawBackground()
- If e.Item.Selected Then
- e.Graphics.FillRectangle(Brushes.LightSlateGray, e.Bounds)
- e.Graphics.DrawString(e.Item.Text, headerFont, Brushes.Black, e.Bounds, strFormat)
- Else
- e.Graphics.DrawString(e.Item.Text, headerFont, Brushes.Black, e.Bounds, strFormat)
- End If
- End Sub
- Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
- Dim strFormat As New StringFormat()
- Dim headerFont As New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
- e.DrawBackground()
- If e.Item.Selected Then
- e.Graphics.FillRectangle(Brushes.LightSlateGray, e.Bounds)
- e.Graphics.DrawString(e.SubItem.Text, headerFont, Brushes.Black, e.Bounds, strFormat)
- Else
- e.Graphics.DrawString(e.SubItem.Text, headerFont, Brushes.Black, e.Bounds, strFormat)
- End If
- End Sub