Wie kann ich in VB.NET 2003 eine ListView per OpenFileDialog (Multiselect = true) mit Name und Fullname ausgewählter Dateien füllen?

Question

Wie kann ich in VB.NET 2003 eine ListView per OpenFileDialog (Multiselect = true) mit Name und Fullname ausgewählter Dateien füllen?

Antwort

Verwandte Fragen

Warum funktioniert die Änderung der Reihenfolge in einem ListView nach dem Sortieren in VB.NET 2003 nicht mehr?

Wie ermittele ich mit VB.NET 2003 den Ordnernamen mehrerer im OpenFileDialog markierter Dateien?

Warum funktioniert die InitialDirectory-Einstellung im OpenFileDialog unter VB.NET 2003 nicht?

Wie lautet in VB.NET 2003 der Filter-Eintrag für 'Ordner' im OpenFileDialog?

Wie zeigt man in VB.NET 2003 in einer ListView die Icons versteckter Dateien halbtransparent an?

Wie sortiert man in VB.NET 2003 Datums- oder Größendaten in einem ListView?

Wie nutze ich UseItemStyleForSubItems in VB.NET 2003?

Wie ändere ich in VB.NET 2003 die ForeColor von ListView-SubItems?

Gibt es eine Möglichkeit, in VB.NET 2003 die Farbe der SelectedItems eines ListViews zu beeinflussen?

Kann man mit VB.NET 2003 effizient Vorschaubilder für die Miniaturansicht eines ListView erstellen?

Accepted Answer

Um in VB.NET 2003 eine `ListView` mit dem Namen und dem vollständigen Pfad (FullName) der über einen `OpenFileDialog` (mit `Multiselect = True`) ausgewählten Dateien zu füllen, kannst du wie folgt vorgehen: 1. **OpenFileDialog konfigurieren** Setze die Eigenschaft `Multiselect` des `OpenFileDialog` auf `True`. 2. **ListView vorbereiten** Füge zwei Spalten zur `ListView` hinzu: eine für den Dateinamen, eine für den vollständigen Pfad. 3. **Dateien hinzufügen** Nach dem Auswählen der Dateien iteriere über die `FileNames`-Eigenschaft des Dialogs und füge die Daten zur `ListView` hinzu. Hier ein Beispielcode: ```vb ' ListView vorbereiten (z.B. im Form_Load) ListView1.View = View.Details ListView1.Columns.Add("Name", 150) ListView1.Columns.Add("FullName", 300) ' OpenFileDialog konfigurieren Dim ofd As New OpenFileDialog() ofd.Multiselect = True ofd.Filter = "Alle Dateien (*.*)|*.*" If ofd.ShowDialog() = DialogResult.OK Then ListView1.Items.Clear() For Each file As String In ofd.FileNames Dim item As New ListViewItem(System.IO.Path.GetFileName(file)) item.SubItems.Add(file) ListView1.Items.Add(item) Next End If ``` **Hinweise:** - `System.IO.Path.GetFileName(file)` extrahiert nur den Dateinamen. - `file` enthält den vollständigen Pfad. - Die Spaltenbreiten kannst du nach Bedarf anpassen. Weitere Infos zu den verwendeten Klassen findest du in der [Microsoft-Dokumentation zu OpenFileDialog](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.openfiledialog) und [ListView](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview).

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es beim `ListView`-Steuerelement einige Einschränkungen im Vergleich zu späteren Versionen. Das Problem, dass nach dem Sortieren die Änderu... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es beim `ListView`-Steuerelement einige Einschränkungen im Vergleich zu späteren Versionen. Das Problem, dass nach dem Sortieren die Änderung der Reihenfolge (z.B. per Drag & Drop oder durch manuelles Verschieben der Items) nicht mehr funktioniert, ist bekannt und hängt mit der Art und Weise zusammen, wie das `ListView`-Control intern arbeitet. **Hintergrund:** - Wenn du das `ListView` sortierst (z.B. durch Setzen der `ListViewItemSorter`-Eigenschaft oder durch Klicken auf eine Spaltenüberschrift), wird die Reihenfolge der Items durch den Sortieralgorithmus bestimmt. - Nach dem Sortieren kannst du die Reihenfolge der Items nicht mehr einfach durch Verschieben im Code ändern, weil der Sorter die Reihenfolge immer wieder überschreibt. **Lösungsvorschläge:** 1. **Sortierung deaktivieren:** Wenn du die Reihenfolge manuell ändern möchtest, musst du die Sortierung deaktivieren, indem du `ListViewItemSorter = Nothing` setzt. Danach kannst du die Items verschieben. ```vb.net ListView1.ListViewItemSorter = Nothing ' Jetzt Items verschieben ``` 2. **Sortierung nach Verschieben neu anwenden:** Wenn du nach dem Verschieben wieder sortieren möchtest, setze den Sorter erneut: ```vb.net ' Nach dem Verschieben ListView1.ListViewItemSorter = MeinComparer ListView1.Sort() ``` 3. **Eigene Verwaltung der Reihenfolge:** Wenn du eine benutzerdefinierte Reihenfolge benötigst (z.B. per Drag & Drop), solltest du die Sortierung komplett deaktivieren und die Reihenfolge der Items selbst verwalten. 4. **ListView neu befüllen:** Manchmal hilft es, die Items in eine temporäre Liste zu kopieren, das ListView zu leeren und dann die Items in der gewünschten Reihenfolge wieder hinzuzufügen. **Wichtiger Hinweis:** Das Verhalten ist in neueren .NET-Versionen ähnlich, aber dort gibt es mehr Möglichkeiten, z.B. mit DataBinding oder eigenen Sortiermechanismen. **Zusammenfassung:** Nach dem Sortieren mit einem `ListViewItemSorter` kannst du die Reihenfolge der Items nicht mehr direkt ändern, weil der Sorter die Reihenfolge bestimmt. Deaktiviere die Sortierung, ändere die Reihenfolge, und aktiviere sie ggf. wieder. Weitere Infos findest du z.B. in der [Microsoft-Dokumentation zum ListView.Sort-Methode](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.sort?view=netframework-1.1).

Accepted Answer

Um in VB.NET 2003 den Ordnernamen mehrerer mit dem `OpenFileDialog` ausgewählter Dateien zu ermitteln, gehst du wie folgt vor: 1. Setze die Eigenschaft `Multiselect des `OpenFileDialog` auf `Tru... [mehr]

Accepted Answer

Um in VB.NET 2003 den Ordnernamen mehrerer mit dem `OpenFileDialog` ausgewählter Dateien zu ermitteln, gehst du wie folgt vor: 1. Setze die Eigenschaft `Multiselect des `OpenFileDialog` auf `True`, damit mehrere Dateien ausgewählt werden können. 2. Nach dem Öffnen des Dialogs kannst du über die Eigenschaft `FileNames` auf die vollständigen Pfade aller ausgewählten Dateien zugreifen. 3. Mit der Funktion `System.IO.Path.GetDirectoryName` kannst du aus jedem Dateipfad den Ordnernamen extrahieren. Hier ein Beispielcode: ```vb.net Dim ofd As New OpenFileDialog() ofd.Multiselect = True If ofd.ShowDialog() = DialogResult.OK Then For Each filePath As String In ofd.FileNames Dim folderPath As String = System.IO.Path.GetDirectoryName(filePath) MessageBox.Show("Ordner: " & folderPath) ' Hier kannst du den Ordnernamen weiterverarbeiten Next End If ``` **Hinweise:** - Wenn alle Dateien aus demselben Ordner stammen, reicht es, den Ordnernamen der ersten Datei zu nehmen. - Wenn Dateien aus verschiedenen Ordnern ausgewählt werden können, musst du für jede Datei den Ordnernamen einzeln ermitteln. Weitere Infos zur Klasse findest du in der [Microsoft-Dokumentation zu OpenFileDialog](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.openfiledialog).

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es beim `OpenFileDialog`-Steuerelement tatsächlich einige bekannte Einschränkungen und Eigenheiten bezüglich der `InitialDirectory`-Eigensc... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es beim `OpenFileDialog`-Steuerelement tatsächlich einige bekannte Einschränkungen und Eigenheiten bezüglich der `InitialDirectory`-Eigenschaft: **Mögliche Ursachen, warum `InitialDirectory` nicht wie erwartet funktioniert:** 1. **Ungültiger Pfad:** Der Wert von `InitialDirectory` muss ein existierender und gültiger Verzeichnispfad sein. Wenn der Pfad nicht existiert oder falsch geschrieben ist, ignoriert der Dialog die Vorgabe und öffnet stattdessen das zuletzt verwendete Verzeichnis. 2. **Sonderzeichen oder Umgebungsvariablen:** In .NET 1.1 werden Umgebungsvariablen wie `%USERPROFILE%` oder Platzhalter wie `~` nicht automatisch aufgelöst. Der Pfad muss absolut und vollständig angegeben werden (z.B. `C:\MeineDateien`). 3. **Letztes Verzeichnis wird gemerkt:** Der `OpenFileDialog` merkt sich das zuletzt verwendete Verzeichnis während der Laufzeit der Anwendung. Wenn der Dialog bereits einmal geöffnet wurde, wird beim nächsten Öffnen dieses Verzeichnis verwendet, unabhängig von der Einstellung von `InitialDirectory`. 4. **Falscher Zeitpunkt der Zuweisung:** Die Eigenschaft `InitialDirectory` sollte **vor** dem Aufruf von `ShowDialog()` gesetzt werden. Wird sie danach oder zu spät gesetzt, hat das keinen Effekt. **Beispiel für die korrekte Verwendung:** ```vb.net Dim ofd As New OpenFileDialog() ofd.InitialDirectory = "C:\MeineDateien" ofd.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*" If ofd.ShowDialog() = DialogResult.OK Then ' Datei wurde ausgewählt End If ``` **Zusätzlicher Hinweis:** In älteren Windows-Versionen oder bei bestimmten Systemkonfigurationen kann das Verhalten des Dialogs auch durch die Windows-Registry beeinflusst werden. **Fazit:** Stelle sicher, dass der Pfad existiert, korrekt geschrieben ist und dass `InitialDirectory` vor dem Anzeigen des Dialogs gesetzt wird. Beachte, dass das Verhalten in .NET 1.1 nicht immer konsistent ist und spätere .NET-Versionen dies verbessert haben. Weitere Infos findest du auch in der [Microsoft-Dokumentation zu OpenFileDialog.InitialDirectory](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.filedialog.initialdirectory).

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) unterstützt der `OpenFileDialog` keine Auswahl von Ordnern, sondern ausschließlich von Dateien. Der `Filter`-Eigenschaft des `OpenFileDialog` dient... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) unterstützt der `OpenFileDialog` keine Auswahl von Ordnern, sondern ausschließlich von Dateien. Der `Filter`-Eigenschaft des `OpenFileDialog` dient dazu, Dateitypen zu filtern, nicht Ordner. Ein typischer Filter-Eintrag sieht zum Beispiel so aus: ```vb.net OpenFileDialog1.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*" ``` **Für Ordnerauswahl:** Wenn du möchtest, dass der Benutzer einen Ordner auswählt, musst du stattdessen einen `FolderBrowserDialog` verwenden. Dieser Dialog ist speziell für die Auswahl von Ordnern gedacht und benötigt keinen Filter. Beispiel für die Verwendung des `FolderBrowserDialog`: ```vb.net Dim fbd As New FolderBrowserDialog() If fbd.ShowDialog() = DialogResult.OK Then Dim selectedPath As String = fbd.SelectedPath ' Hier kannst du mit dem ausgewählten Ordner weiterarbeiten End If ``` **Fazit:** Im `OpenFileDialog` gibt es keinen Filter-Eintrag für Ordner, da dieser Dialog keine Ordnerauswahl unterstützt. Verwende stattdessen den `FolderBrowserDialog` für die Auswahl von Ordnern. Weitere Infos findest du in der [Microsoft-Dokumentation zum FolderBrowserDialog](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.folderbrowserdialog).

Accepted Answer

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 ni... [mehr]

Accepted Answer

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

Accepted Answer

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 Tex... [mehr]

Accepted Answer

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).

Accepted Answer

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... [mehr]

Accepted Answer

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)

Accepted Answer

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... [mehr]

Accepted Answer

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)

Accepted Answer

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 Repor... [mehr]

Accepted Answer

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.

Accepted Answer

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 grun... [mehr]

Accepted Answer

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.