13 Fragen zu Listview

Um in Visual Studio in einem ListView eine Checkbox in einer Spalte einzufügen, kannst du die `CheckBoxes`-Eigenschaft des ListView-Steuerelements verwenden. Hier sind die Schritte, um dies zu erreichen: 1. **ListView hinzufügen**: Füge ein ListView-Steuerelement zu deinem Formular hinzu. 2. **CheckBoxes aktivieren**: Setze die `CheckBoxes`-Eigenschaft des ListView auf `true`. Dies kannst du im Eigenschaftenfenster tun oder im Code: ```vb ListView1.CheckBoxes = True ``` 3. **Spalten hinzufügen**: Füge die gewünschten Spalten zu deinem ListView hinzu. Dies kannst du im Designer tun oder im Code: ```vb ListView1.Columns.Add("Spalte 1", 100, HorizontalAlignment.Left) ListView1.Columns.Add("Spalte 2", 100, HorizontalAlignment.Left) ``` 4. **Elemente hinzufügen**: Füge Elemente zum ListView hinzu. Jedes Element kann eine Checkbox haben: ```vb Dim item1 As New ListViewItem("Element 1") item1.Checked = True ' Checkbox aktivieren ListView1.Items.Add(item1) Dim item2 As New ListViewItem("Element 2") item2.Checked = False ' Checkbox deaktivieren ListView1.Items.Add(item2) ``` 5. **Ereignisse behandeln**: Du kannst auch Ereignisse wie `ItemCheck` verwenden, um auf Änderungen des Checkbox-Status zu reagieren. Hier ist ein einfaches Beispiel, das alle Schritte zusammenfasst: ```vb Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ListView1.CheckBoxes = True ListView1.Columns.Add("Spalte 1", 100, HorizontalAlignment.Left) ListView1.Columns.Add("Spalte 2", 100, HorizontalAlignment.Left) Dim item1 As New ListViewItem("Element 1") item1.Checked = True ListView1.Items.Add(item1) Dim item2 As New ListViewItem("Element 2") item2.Checked = False ListView1.Items.Add(item2) End Sub End Class ``` Mit diesen Schritten kannst du Checkboxen in einem ListView in Visual Studio implementieren.

In Visual Basic Studio kannst du eine Zeile in einer ListView nicht direkt ausblenden, da die ListView keine eingebaute Funktion zum Ausblenden von Zeilen bietet. Du kannst jedoch die Sichtbarkeit einer Zeile simulieren, indem du die Zeile aus der ListView entfernst oder die Zeile so formatierst, dass sie nicht mehr sichtbar ist. Hier sind zwei Ansätze: 1. **Entfernen der Zeile**: Du kannst die Zeile einfach aus der ListView entfernen, wenn du sie nicht mehr anzeigen möchtest. ```vb ListView1.Items.RemoveAt(index) ' index ist der Index der zu entfernenden Zeile ``` 2. **Ändern der Sichtbarkeit durch Formatierung**: Eine andere Möglichkeit besteht darin, die Textfarbe der Zeile auf die Hintergrundfarbe zu setzen, sodass sie unsichtbar wird. ```vb ListView1.Items(index).ForeColor = Color.Transparent ' index ist der Index der zu ändernden Zeile ``` Beachte, dass die zweite Methode nicht wirklich die Zeile ausblendet, sondern nur die Sichtbarkeit verändert. Wenn du die Zeile später wieder anzeigen möchtest, musst du die ursprüngliche Farbe wiederherstellen oder die Zeile erneut hinzufügen.

Um in Visual Basic Studio zu erkennen, ob der Scrollbalken eines ListView-Steuerelements sichtbar ist, kannst du die `GetScrollPos`-Funktion aus der Windows-API verwenden. Hier ist ein Beispiel, wie du dies umsetzen kannst: 1. Füge die notwendigen Imports hinzu: ```vb Imports System.Runtime.InteropServices ``` 2. Deklariere die API-Funktion: ```vb <DllImport("user32.dll", CharSet:=CharSet.Auto)> Private Shared Function GetScrollPos(hWnd As IntPtr, nBar As Integer) As Integer End Function Private Const SB_VERT As Integer = 1 ``` 3. Erstelle eine Funktion, um zu überprüfen, ob der Scrollbalken sichtbar ist: ```vb Private Function IsVerticalScrollBarVisible(listView As ListView) As Boolean Dim scrollPos As Integer = GetScrollPos(listView.Handle, SB_VERT) Return scrollPos > 0 End Function ``` 4. Rufe diese Funktion auf, wenn du überprüfen möchtest, ob der Scrollbalken sichtbar ist: ```vb If IsVerticalScrollBarVisible(myListView) Then ' Scrollbalken ist sichtbar Else ' Scrollbalken ist nicht sichtbar End If ``` Mit dieser Methode kannst du feststellen, ob der vertikale Scrollbalken im ListView angezeigt wird.

Um in Visual Basic Studio zu überprüfen, ob der Scrollbalken eines ListView-Steuerelements sichtbar ist, kannst du die `GetScrollInfo`-Funktion aus der Windows-API verwenden. Hier ist ein Beispiel, wie du dies umsetzen kannst: 1. Füge die notwendigen Imports hinzu: ```vb Imports System.Runtime.InteropServices ``` 2. Definiere die benötigten Strukturen und Funktionen: ```vb <StructLayout(LayoutKind.Sequential)> Public Structure SCROLLINFO Public cbSize As Integer Public fMask As Integer Public nMin As Integer Public nMax As Integer Public nPage As Integer Public nPos As Integer Public nTrackPos As Integer End Structure Public Const SIF_RANGE As Integer = &H1 Public Const SIF_PAGE As Integer = &H2 Public Const SIF_POS As Integer = &H4 Public Const SIF_TRACKPOS As Integer = &H8 Public Const SIF_ALL As Integer = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS) <DllImport("user32.dll", CharSet:=CharSet.Auto)> Public Shared Function GetScrollInfo(hWnd As IntPtr, nBar As Integer, ByRef lpScrollInfo As SCROLLINFO) As Integer End Function Public Const SB_VERT As Integer = 1 ``` 3. Erstelle eine Funktion, um zu überprüfen, ob der Scrollbalken sichtbar ist: ```vb Public Function IsVerticalScrollBarVisible(listView As ListView) As Boolean Dim si As New SCROLLINFO() si.cbSize = Marshal.SizeOf(si) si.fMask = SIF_ALL GetScrollInfo(listView.Handle, SB_VERT, si) ' Wenn der Maximalwert größer als der Seitenwert, ist der Scrollbalken sichtbar Return (si.nMax > si.nPage) End Function ``` 4. Rufe die Funktion auf, um zu überprüfen, ob der Scrollbalken sichtbar ist: ```vb Dim scrollBarVisible As Boolean = IsVerticalScrollBarVisible(myListView) If scrollBarVisible Then MessageBox.Show("Der Scrollbalken ist sichtbar.") Else MessageBox.Show("Der Scrollbalken ist nicht sichtbar.") End If ``` Mit dieser Methode kannst du feststellen, ob der vertikale Scrollbalken in deinem ListView sichtbar ist.

Um in VB.NET 2003 eine oder mehrere Zeilen (Items) aus einer `ListView` in die Zwischenablage (Clipboard) zu kopieren, gehst du wie folgt vor: 1. **Ausgewählte Zeilen ermitteln:** Über die Eigenschaft `SelectedItems` der ListView erhältst du die aktuell markierten Zeilen. 2. **Text zusammenstellen:** Die Daten der Zeilen (und ggf. deren SubItems) werden zu einem String zusammengefügt, z.B. tabulatorgetrennt für Spalten und zeilengetrennt für Zeilen. 3. **In die Zwischenablage kopieren:** Mit `Clipboard.SetDataObject` wird der Text in die Zwischenablage gelegt. **Beispielcode:** ```vb ' Angenommen, ListView1 ist deine ListView Dim sb As New System.Text.StringBuilder() For Each item As ListViewItem In ListView1.SelectedItems ' Haupttext sb.Append(item.Text) ' SubItems (Spalten) For i As Integer = 1 To item.SubItems.Count - 1 sb.Append(vbTab) sb.Append(item.SubItems(i).Text) Next sb.AppendLine() Next If sb.Length > 0 Then Clipboard.SetDataObject(sb.ToString()) End If ``` **Hinweise:** - Der Code kopiert alle ausgewählten Zeilen, jede Spalte wird durch einen Tabulator getrennt, jede Zeile durch einen Zeilenumbruch. - In VB.NET 2003 musst du ggf. einen Verweis auf `System.Windows.Forms` und `System.Text` setzen. - Das Einfügen in z.B. Excel oder Notepad funktioniert dann wie gewohnt mit Strg+V. **Weitere Infos zur ListView:** [Microsoft Dokumentation zu ListView](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview?view=netframework-1.1) [Clipboard-Klasse](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.clipboard?view=netframework-1.1)

Um in VB.NET 2003 die Reihenfolge der Zeilen (Items) eines ListView-Steuerelements umzukehren, kannst du die Items in eine Liste kopieren, diese umkehren und dann das ListView neu befüllen. Hier ein Beispiel: ```vb.net ' Annahme: Dein ListView heißt ListView1 ' 1. Items in eine Liste kopieren Dim items As New ArrayList() For Each item As ListViewItem In ListView1.Items items.Add(item.Clone()) Next ' 2. ListView leeren ListView1.Items.Clear() ' 3. Items in umgekehrter Reihenfolge wieder hinzufügen For i As Integer = items.Count - 1 To 0 Step -1 ListView1.Items.Add(CType(items(i), ListViewItem)) Next ``` **Hinweise:** - Die Methode `Clone()` sorgt dafür, dass die Items kopiert werden und nicht versehentlich aus dem Original entfernt werden. - Das Beispiel funktioniert für die .NET Framework Version, die mit Visual Studio .NET 2003 ausgeliefert wurde. Weitere Informationen zum [ListView](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview?view=netframework-1.1) findest du in der Microsoft-Dokumentation.

Um in VB.NET 2003 ein **ListViewItem** von einer ListView in eine andere zu kop, kannst du die `Clone()`Methode verwenden. Dabei wird ein, identisches ListViewItem erzeug, das du dann der zweiten ListView hinzufügen kannst. **Wichtig:** Ein ListViewItem kann immer nur in einer ListView enthalten sein. Wenn du also ein Item von einer ListView in eine andere einfügen möchtest, musst du es klonen. **Beispiel:** ```vbnet ' Angenommen, du hast zwei ListViews: ListView1 und ListView2 ' Und du möchtest ein Item von ListView1 nach ListView2 kopieren ' Nehmen wir an, du hast ein ListViewItem aus ListView1 ausgewählt: Dim selectedItem As ListViewItem = ListView1.SelectedItems(0) ' Klone das Item Dim clonedItem As ListViewItem = CType(selectedItem.Clone(), ListViewItem) ' Füge das geklonte Item in ListView2 ein ListView2.Items.Add(clonedItem) ``` **Hinweis:** - Das geklonte Item ist unabhängig vom Original. - Wenn du das Item nicht nur hinzufügen, sondern ein bestehendes Item in ListView2 **ersetzen** möchtest, musst du das entsprechende Item in ListView2 suchen und ersetzen: ```vbnet ' Beispiel: Ersetze das erste Item in ListView2 durch das geklonte Item If ListView2.Items.Count > 0 Then ListView2.Items(0) = clonedItem Else ListView2.Items.Add(clonedItem) End If ``` **Zusammenfassung:** - Mit `Clone()` erstellst du eine Kopie des ListViewItems. - Das geklonte Item kannst du dann in die zweite ListView einfügen oder ein bestehendes Item ersetzen. Weitere Infos findest du in der [Microsoft-Dokumentation zu ListViewItem.Clone()](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listviewitem.clone).

Ja, mit VB.NET 2003 kannst du Vorschaubilder (Thumbnails) für die Miniaturansicht eines ListView zeitsparend erstellen. Dazu nutzt du die Klassen aus dem Namespace `System.Drawing`. Hier ein grundlegender Ansatz: 1. **Bild laden** 2. **Thumbnail erzeugen** 3. **Thumbnail in eine ImageList einfügen** 4. **ImageList dem ListView zuweisen** Ein Beispielcode: ```vb.net ' ImageList für Thumbnails anlegen Dim imageList As New ImageList() imageList.ImageSize = New Size(64, 64) ' Größe der Thumbnails ' Beispiel: Bild laden und Thumbnail erzeugen Dim originalImage As Image = Image.FromFile("C:\Pfad\zum\Bild.jpg") Dim thumbnail As Image = originalImage.GetThumbnailImage(64, 64, Nothing, IntPtr.Zero) ' Thumbnail zur ImageList hinzufügen imageList.Images.Add(thumbnail) ' ListView mit ImageList verbinden ListView1.LargeImageList = imageList ' ListViewItem mit Bild hinzufügen Dim item As New ListViewItem("Bildname", 0) ' 0 = Index des Bildes in der ImageList ListView1.Items.Add(item) ``` **Hinweise:** - Die Methode `GetThumbnailImage` ist sehr schnell und für einfache Thumbnails geeignet. - Für viele Bilder empfiehlt sich, die Thumbnails asynchron zu erstellen, um die Oberfläche nicht zu blockieren. - Die Größe der Thumbnails kannst du anpassen, indem du `imageList.ImageSize` und die Parameter von `GetThumbnailImage` änderst. **Weitere Infos:** - [Microsoft-Dokumentation zu Image.GetThumbnailImage](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.image.getthumbnailimage) - [ListView.ImageList-Eigenschaft](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.imagelist) Mit diesem Ansatz kannst du zeitsparend und effizient Miniaturansichten für einen ListView in VB.NET 2003 erstellen.

In VB.NET 2003 (also .NET Framework 1.1) ist es leider nicht direkt möglich, die `ForeColor` (Textfarbe) einzelner SubItems in einem `ListView`-Steuerelement zu ändern. Die Standard-ListView unterstützt nur das Setzen der Farbe für das gesamte Item, nicht für einzelne SubItems. **Mögliche Ansätze:** 1. **OwnerDraw verwenden:** Du kannst das `ListView`-Steuerelement auf `OwnerDraw` setzen und das Zeichnen der SubItems selbst übernehmen. Das ist allerdings recht aufwändig, da du das komplette Zeichnen (Text, Hintergrund, Auswahl, etc.) selbst programmieren musst. Beispiel (nur als Ansatz, nicht vollständig): ```vb ListView1.OwnerDraw = True ' Im DrawSubItem-Event: Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem If e.ColumnIndex = 1 Then e.Graphics.DrawString(e.SubItem.Text, ListView1.Font, Brushes.Red, e.Bounds) Else e.DrawDefault = True End If End Sub ``` **Achtung:** Das `DrawSubItem`-Event gibt es erst ab .NET 2.0! In .NET 1.1 (VB.NET 2003) gibt es nur das `DrawItem`-Event, was das Ganze noch komplizierter macht. 2. **Drittanbieter-Komponenten:** Es gibt ListView-Alternativen von Drittanbietern, die das Setzen der Farbe für SubItems unterstützen. Beispiele sind [ObjectListView](http://objectlistview.sourceforge.net/cs/) oder kommerzielle Controls. 3. **Workaround:** Wenn du nur die Farbe für das gesamte Item ändern möchtest, kannst du das so machen: ```vb ListView1.Items(0).ForeColor = Color.Red ``` **Fazit:** In VB.NET 2003 ist das direkte Ändern der `ForeColor` einzelner SubItems im Standard-ListView nicht möglich. Du müsstest entweder auf OwnerDraw zurückgreifen (mit erheblichem Aufwand) oder ein anderes Control verwenden. Weitere Infos findest du z.B. hier: - [Microsoft Docs: ListView.OwnerDraw Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.listview.ownerdraw) - [StackOverflow: Change color of subitem in ListView](https://stackoverflow.com/questions/1040470/change-color-of-subitem-in-listview)

Um in VB.NET 2003 die Einträge eines `ListView` nach Datum oder Größe zu sortieren, musst du einen benutzerdefinierten Sortierer implementieren, da die Standard-Sortierung nur nach Text erfolgt. Das erreichst du mit der `IComparer`-Schnittstelle und der Zuweisung eines eigenen Sortierers an die `ListView.ListViewItemSorter`-Eigenschaft. **Beispiel für Datumssortierung:** ```vb.net Imports System.Collections Public Class ListViewDateComparer Implements IComparer Private col As Integer Private order As SortOrder Public Sub New(column As Integer, sortOrder As SortOrder) col = column order = sortOrder End Sub Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare Dim itemX As ListViewItem = CType(x, ListViewItem) Dim itemY As ListViewItem = CType(y, ListViewItem) Dim dateX As Date Dim dateY As Date Date.TryParse(itemX.SubItems(col).Text, dateX) Date.TryParse(itemY.SubItems(col).Text, dateY) Dim result As Integer = DateTime.Compare(dateX, dateY) If order = SortOrder.Descending Then result = -result Return result End Function End Class ``` **Beispiel für Größen-Sortierung (numerisch):** ```vb.net Imports System.Collections Public Class ListViewSizeComparer Implements IComparer Private col As Integer Private order As SortOrder Public Sub New(column As Integer, sortOrder As SortOrder) col = column order = sortOrder End Sub Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare Dim itemX As ListViewItem = CType(x, ListViewItem) Dim itemY As ListViewItem = CType(y, ListViewItem) Dim sizeX As Long Dim sizeY As Long Long.TryParse(itemX.SubItems(col).Text, sizeX) Long.TryParse(itemY.SubItems(col).Text, sizeY) Dim result As Integer = sizeX.CompareTo(sizeY) If order = SortOrder.Descending Then result = -result Return result End Function End Class ``` **Verwendung im Code:** ```vb.net ' Beispiel: Sortiere nach Datum in Spalte 1 aufsteigend ListView1.ListViewItemSorter = New ListViewDateComparer(1, SortOrder.Ascending) ListView1.Sort() ' Beispiel: Sortiere nach Größe in Spalte 2 absteigend ListView1.ListViewItemSorter = New ListViewSizeComparer(2, SortOrder.Descending) ListView1.Sort() ``` **Hinweise:** - Die Spaltenindizes beginnen bei 0. - Die Daten in den jeweiligen Spalten müssen korrekt formatiert sein (Datum bzw. Zahl). - Für weitere Sortierarten kannst du die Vergleiche im `Compare`-Methoden entsprechend anpassen. Weitere Infos findest du auch in der [Microsoft-Dokumentation zu ListView.Sort](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.sort?view=netframework-1.1).

Um in VB.NET 2003 in einer `ListView` die Icons versteckter Dateien halbtransparent (wie im Windows Explorer) darzustellen, sind mehrere Schritte nötig, da die Standard-ListView-Steuerung dies nicht direkt unterstützt. Die halbtransparente Darstellung (Alpha-Blending) muss manuell umgesetzt werden. **Vorgehensweise:** 1. **Dateiattribute prüfen:** Überprüfe, ob eine Datei das Attribut "Hidden" (`FileAttributes.Hidden`) besitzt. 2. **Icon extrahieren:** Hole das Standard-Icon der Datei (z.B. mit `SHGetFileInfo` aus der Windows-API). 3. **Icon halbtransparent machen:** Wandle das Icon in ein Bitmap um und setze die Transparenz (Alpha-Wert) auf z.B. 128 (halbtransparent). 4. **ImageList befüllen:** Füge das (ggf. modifizierte) Icon in die ImageList ein, die der ListView zugewiesen ist. **Beispielcode (stark vereinfacht):** ```vb.net Imports System.IO Imports System.Drawing Imports System.Drawing.Imaging Imports System.Runtime.InteropServices ' API für Icon holen <DllImport("shell32.dll")> _ Private Shared Function SHGetFileInfo( _ ByVal pszPath As String, _ ByVal dwFileAttributes As Integer, _ ByRef psfi As SHFILEINFO, _ ByVal cbFileInfo As Integer, _ ByVal uFlags As Integer) As IntPtr End Function Private Const SHGFI_ICON = &H100 Private Const SHGFI_SMALLICON = &H1 <StructLayout(LayoutKind.Sequential)> _ Private Structure SHFILEINFO Public hIcon As IntPtr Public iIcon As Integer Public dwAttributes As Integer <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public szDisplayName As String <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> Public szTypeName As String End Structure ' Icon extrahieren Private Function GetFileIcon(ByVal filePath As String) As Icon Dim shinfo As New SHFILEINFO() SHGetFileInfo(filePath, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON) Return Icon.FromHandle(shinfo.hIcon) End Function ' Icon halbtransparent machen Private Function MakeIconSemiTransparent(ByVal icon As Icon) As Bitmap Dim bmp As New Bitmap(icon.Width, icon.Height) Using g As Graphics = Graphics.FromImage(bmp) g.DrawIcon(icon, 0, 0) End Using Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height) Dim data As BitmapData = bmp.LockBits(rect, ImageLockMode.ReadWrite, bmp.PixelFormat) Dim bytesPerPixel As Integer = Image.GetPixelFormatSize(bmp.PixelFormat) \ 8 Dim ptr As IntPtr = data.Scan0 Dim numBytes As Integer = Math.Abs(data.Stride) * bmp.Height Dim rgbValues(numBytes - 1) As Byte Marshal.Copy(ptr, rgbValues, 0, numBytes) For i As Integer = 0 To rgbValues.Length - 1 Step bytesPerPixel If bytesPerPixel >= 4 Then rgbValues(i + 3) = CByte(rgbValues(i + 3) \ 2) ' Alpha halbieren End If Next Marshal.Copy(rgbValues, 0, ptr, numBytes) bmp.UnlockBits(data) Return bmp End Function ' Anwendung auf ListView Private Sub AddFileToListView(ByVal filePath As String, ByVal lv As ListView, ByVal imgList As ImageList) Dim fi As New FileInfo(filePath) Dim icon As Icon = GetFileIcon(filePath) Dim bmp As Bitmap If (fi.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then bmp = MakeIconSemiTransparent(icon) Else bmp = icon.ToBitmap() End If imgList.Images.Add(filePath, bmp) Dim lvi As New ListViewItem(fi.Name) lvi.ImageKey = filePath lv.Items.Add(lvi) End Sub ``` **Hinweise:** - Die halbtransparente Darstellung funktioniert nur, wenn die ImageList auf `ColorDepth` 32 Bit steht. - Die Windows-ListView unterstützt keine echte Alpha-Transparenz unter Windows XP/2003, aber mit Bitmaps mit Alpha-Kanal kann man einen ähnlichen Effekt erzielen. - Für viele Dateien kann das Extrahieren und Bearbeiten der Icons langsam

In VB.NET 2003 (also .NET Framework 1.1) gibt es leider keine direkte Möglichkeit, die Farbe der ausgewählten Elemente (`SelectedItems`) eines `ListView`-Steuerelements im Detail- oder Report-View zu ändern. Die Farbe für die Markierung wird vom Betriebssystem (Windows) vorgegeben und kann nicht einfach über Eigenschaften des Controls angepasst werden. **Mögliche Ansätze:** 1. **OwnerDraw verwenden:** Das `ListView`-Control in .NET 1.1 unterstützt das OwnerDraw-Feature **nur im View "List" und "SmallIcon"**, nicht aber im "Details"-Modus. Im "Details"-Modus ist OwnerDraw erst ab .NET 2.0 verfügbar. 2. **SubClassing und API-Hacks:** Mit erheblichem Aufwand und unter Verwendung von Windows-API-Funktionen (z.B. durch Subclassing und das Abfangen von WM_DRAWITEM-Nachrichten) kann man das Zeichnen beeinflussen. Das ist jedoch sehr komplex, fehleranfällig und wird nicht empfohlen, insbesondere in .NET 1.1. 3. **Alternative Controls:** Es gibt Drittanbieter-Controls, die mehr Flexibilität bieten, z.B. von [ComponentOne](https://www.grapecity.com/componentone), [DevExpress](https://www.devexpress.com/) oder [Infragistics](https://www.infragistics.com/). **Fazit:** Im Standard-`ListView` von VB.NET 2003 kannst du die Farbe der ausgewählten Items nicht direkt ändern. Ein Umstieg auf eine neuere .NET-Version (ab 2.0) oder die Verwendung eines Drittanbieter-Controls wäre notwendig, wenn du diese Funktionalität benötigst. **Weitere Infos:** - [Microsoft-Dokumentation zu ListView.OwnerDraw](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.ownerdraw) - [StackOverflow: Change ListView selected item color](https://stackoverflow.com/questions/1105046/change-listview-selected-item-color) Falls du eine bestimmte Ansicht oder einen bestimmten Anwendungsfall hast, kann eventuell ein Workaround gefunden werden, aber eine direkte Lösung gibt es in .NET 1.1 nicht.

Die Eigenschaft `UseItemStyleForSubItems` ist Teil des `ListViewItem`-Objekts in Windows Forms (WinForms) in VB.NET. Sie steuert, ob die Unterelemente (SubItems) eines ListView-Elements (`ListViewItem`) den gleichen Stil (z.B. Schriftart, Farbe) wie das Hauptelement verwenden oder ob sie individuell gestaltet werden können. **Standardverhalten:** - `UseItemStyleForSubItems = True` (Standard): Alle SubItems übernehmen die Stil-Eigenschaften (z.B. `ForeColor`, `BackColor`, `Font`) des ListViewItems. - `UseItemStyleForSubItems = False`: Du kannst für jedes SubItem eigene Stil-Eigenschaften setzen. **Beispiel:** ```vb.net ' ListView und Spalten anlegen Dim lv As New ListView lv.View = View.Details lv.Columns.Add("Name") lv.Columns.Add("Status") ' ListViewItem anlegen Dim item As New ListViewItem("Max Mustermann") item.SubItems.Add("Aktiv") ' Standard: SubItems übernehmen Stil vom Item item.ForeColor = Color.Red item.UseItemStyleForSubItems = True lv.Items.Add(item) ' Beispiel für individuelle SubItem-Stile: Dim item2 As New ListViewItem("Erika Musterfrau") item2.SubItems.Add("Inaktiv") ' Jetzt individuelle Stile für SubItems erlauben item2.UseItemStyleForSubItems = False item2.SubItems(1).ForeColor = Color.Gray item2.SubItems(1).BackColor = Color.Yellow lv.Items.Add(item2) ``` **Zusammengefasst:** - Setze `UseItemStyleForSubItems = False`, wenn du einzelne SubItems individuell gestalten möchtest. - Setze die gewünschten Eigenschaften (`ForeColor`, `BackColor`, `Font`) direkt am jeweiligen SubItem. **Weitere Infos:** - [Microsoft-Dokumentation zu ListViewItem.UseItemStyleForSubItems](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listviewitem.useitemstyleforsubitems)