Wie erhalte ich in VB.NET 2003 alle Laufwerksnamen?

Question

Wie erhalte ich in VB.NET 2003 alle Laufwerksnamen?

Antwort

Verwandte Fragen

Wie ermittle ich in VB.NET 2003 die vollständigen Namen der Laufwerke wie "Lokaler Datenträger (C:)", "DVD-RW-Laufwerk (F:)", "USB2 (G:)"?

Kann man in VB.NET 2003 in einer Klasse Handler hinzufügen?

Wie kann ein in eine PictureBox geladenes Icon mit VB.NET 2003 wieder als Icon gespeichert werden?

Wie lädt man in VB.NET 2003 ein Icon in eine PictureBox?

Können in VB.NET 2003 in einer ImageList neben Icons auch deren Namen gespeichert werden?

Ist es in VB.NET 2003 sinnvoll, globale Variablen in einem Modul für den Zugriff von überall aus vorzuhalten?

Gibt es einen relevanten Grund, warum in VB.NET 2003 'If...Then...' häufiger verwendet wird als 'Select...Case...', obwohl 'Select...Case...' übersichtlicher ist?

Warum zeigt die TreeView in VB.NET 2003 einen horizontalen Scrollbalken, obwohl alle Einträge mindestens 30 px Abstand vom rechten Rand haben?

Wie ändere ich in VB.NET 2003 nachträglich das Icon eines bestimmten TreeNode?

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

Accepted Answer

Um in VB.NET 2003 alle Laufwerksnamen (z.B. "C:\", "D:\") zu erhalten, kannst du die Klasse `System.IO.DriveInfo` **nicht** verwenden, da sie erst ab .NET Framework 2.0 verfügbar ist. In .NET 1.1 (wie in VB.NET 2003 üblich) nutzt du stattdessen die Methode `System.IO.Directory.GetLogicalDrives()`. Hier ein Beispiel: ```vb Dim laufwerke() As String laufwerke = System.IO.Directory.GetLogicalDrives() For Each laufwerk As String In laufwerke Console.WriteLine(laufwerk) Next ``` Das Array `laufwerke` enthält dann alle verfügbaren Laufwerksbuchstaben, z.B. `"C:\"`, `"D:\"` usw.

Accepted Answer

In VB.NET 2003 kannst du die vollständigen Namen der Laufwerke (wie „Lokaler Datenträger (C:)“, „DVD-RW-Laufwerk (F:)“, „USB2 (G:)“ usw.) mit Hilfe des `S... [mehr]

Accepted Answer

In VB.NET 2003 kannst du die vollständigen Namen der Laufwerke (wie „Lokaler Datenträger (C:)“, „DVD-RW-Laufwerk (F:)“, „USB2 (G:)“ usw.) mit Hilfe des `System.IO.DriveInfo`-Objekts **nicht** direkt ermitteln, da dieses erst ab .NET Framework 2.0 verfügbar ist. In .NET 1.1 (wie in VB.NET 2003 üblich) musst du auf die Windows-API zurückgreifen, um den „vollständigen Namen“ (also die Bezeichnung aus dem Explorer) zu bekommen. Hier ein Beispiel, wie du das mit der Windows-API-Funktion `GetVolumeInformation` und `GetLogicalDriveStrings` machen kannst: ```vbnet Imports System.Runtime.InteropServices Imports System.Text Module Module1 <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _ Private Function GetVolumeInformation( _ ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As StringBuilder, _ ByVal nVolumeNameSize As Integer, _ ByRef lpVolumeSerialNumber As Integer, _ ByRef lpMaximumComponentLength As Integer, _ ByRef lpFileSystemFlags As Integer, _ ByVal lpFileSystemNameBuffer As StringBuilder, _ ByVal nFileSystemNameSize As Integer) As Boolean End Function <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _ Private Function GetLogicalDriveStrings( _ ByVal nBufferLength As Integer, _ ByVal lpBuffer As StringBuilder) As Integer End Function Sub Main() Dim buffer As New StringBuilder(256) Dim drives As New StringBuilder(256) GetLogicalDriveStrings(drives.Capacity, drives) Dim allDrives() As String = drives.ToString().Split(Chr(0)) For Each drive As String In allDrives If drive.Length > 0 Then Dim volName As New StringBuilder(256) Dim fsName As New StringBuilder(256) Dim serialNum, maxCompLen, fsFlags As Integer If GetVolumeInformation(drive, volName, volName.Capacity, serialNum, maxCompLen, fsFlags, fsName, fsName.Capacity) Then Dim label As String = volName.ToString() If label = "" Then label = "Lokaler Datenträger" Console.WriteLine(label & " (" & drive.TrimEnd("\"c) & ")") End If End If Next End Sub End Module ``` **Hinweise:** - Das Laufwerkslabel (z.B. „USB2“) wird mit `GetVolumeInformation` ausgelesen. - Wenn kein Label vergeben ist, wird „Lokaler Datenträger“ angezeigt. - Die genaue Bezeichnung wie „DVD-RW-Laufwerk“ bekommst du so nicht, da das Windows-Explorer-spezifisch ist. Du kannst aber anhand des Laufwerkstyps (z.B. mit `GetDriveType`) unterscheiden, ob es sich um ein CD/DVD-Laufwerk handelt. **Weitere Infos:** - [Microsoft Doku zu GetVolumeInformation](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getvolumeinformationa) - [Microsoft Doku zu GetLogicalDriveStrings](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getlogicaldrivestringsa) Für eine noch genauere Anzeige wie im Explorer müsstest du auf WMI oder Shell-APIs zurückgreifen, was in VB.NET 2003 aber recht aufwändig ist.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) kannst du in einer Klasse Event-Handler hinzufügen, allerdings gibt es einige Einschränkungen im Vergleich zu neueren .NET-Versionen. **So funktioni... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) kannst du in einer Klasse Event-Handler hinzufügen, allerdings gibt es einige Einschränkungen im Vergleich zu neueren .NET-Versionen. **So funktioniert es:** Du kannst in einer Klasse ein Event deklarieren und dann mit `AddHandler` und `RemoveHandler` Methoden dynamisch Handler zuweisen oder entfernen. Das funktioniert auch in VB.NET 2003. **Beispiel:** ```vb.net Public Class MeineKlasse Public Event MeinEreignis As EventHandler Public Sub NeuesEreignisAuslösen() RaiseEvent MeinEreignis(Me, EventArgs.Empty) End Sub End Class ' Verwendung: Dim obj As New MeineKlasse() AddHandler obj.MeinEreignis, AddressOf MeinHandler Sub MeinHandler(sender As Object, e As EventArgs) MessageBox.Show("Ereignis ausgelöst!") End Sub ``` **Wichtige Hinweise:** - `AddHandler` und `RemoveHandler` sind ab VB.NET 2002 verfügbar, also auch in 2003. - Die Handler müssen eine passende Signatur haben. - In einer Klasse kannst du auch innerhalb der Klasse selbst Handler hinzufügen, z.B. im Konstruktor oder in einer Methode. **Fazit:** Ja, du kannst in einer Klasse in VB.NET 2003 Handler mit `AddHandler` hinzufügen. Die Syntax und Möglichkeiten sind allerdings etwas eingeschränkter als in neueren Versionen. Weitere Infos findest du z.B. in der [Microsoft-Dokumentation zu AddHandler](https://learn.microsoft.com/de-de/dotnet/visual-basic/language-reference/statements/addhandler-statement).

Accepted Answer

Um ein in eine `PictureBox` geladene Icon-Datei in VB.NET 2003 wieder als `.ico`-Datei zu speichern, musst du beachten, dass die `PictureBox.Image`-Eigenschaft ein `Image`-Objekt ist. Das direkte Spei... [mehr]

Accepted Answer

Um ein in eine `PictureBox` geladene Icon-Datei in VB.NET 2003 wieder als `.ico`-Datei zu speichern, musst du beachten, dass die `PictureBox.Image`-Eigenschaft ein `Image`-Objekt ist. Das direkte Speichern als Icon ist nicht ohne Weiteres möglich, da das .NET Framework 1.1 (VB.NET 2003) keine direkte Unterstützung für das Speichern von `Image`-Objekten als `.ico` bietet. Hier ist ein möglicher Weg, wie du das machen kannst: 1. **Icon laden und in PictureBox anzeigen:** ```vb.net Dim icon As New Icon("deinicon.ico") PictureBox1.Image = icon.ToBitmap() ``` 2. **Icon aus PictureBox speichern:** Da `PictureBox1.Image` ein `Bitmap` ist, kannst du es nicht direkt als `.ico` speichern. Du musst das Bitmap wieder in ein Icon umwandeln. Das geht nur über einen Umweg: ```vb.net ' Bitmap aus PictureBox holen Dim bmp As Bitmap = CType(PictureBox1.Image, Bitmap) ' Bitmap in einen Stream speichern Dim ms As New System.IO.MemoryStream() bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Png) ms.Position = 0 ' Aus dem Stream ein Icon erzeugen (Achtung: Das Icon ist dann 32x32 und ohne Transparenz) Dim iconHandle As IntPtr = bmp.GetHicon() Dim newIcon As Icon = Icon.FromHandle(iconHandle) ' Icon speichern Using fs As New System.IO.FileStream("neu.ico", System.IO.FileMode.Create) newIcon.Save(fs) End Using ``` **Wichtige Hinweise:** - Die Methode `GetHicon()` erzeugt ein Icon aus einem Bitmap, aber Transparenz und Farbtiefe können verloren gehen. - Das Ergebnis ist nicht immer ein vollwertiges Windows-Icon mit mehreren Auflösungen und Farbtiefen. - Für komplexere Icon-Bearbeitung empfiehlt sich eine externe Bibliothek oder ein Tool. **Weitere Informationen:** - [Microsoft Doku zu Icon-Klasse](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.icon) - [Microsoft Doku zu Bitmap.GetHicon](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.bitmap.gethicon) Das Vorgehen ist in VB.NET 2003 etwas eingeschränkt, da viele moderne Features fehlen.

Accepted Answer

In VB.NET 2003 kannst du ein Icon in eine PictureBox laden, indem du das Icon zuerst in ein Bitmap-Objekt umwandelst, da die PictureBox kein Icon-Objekt direkt anzeigen kann. Hier ein Beispiel: ```vb... [mehr]

Accepted Answer

In VB.NET 2003 kannst du ein Icon in eine PictureBox laden, indem du das Icon zuerst in ein Bitmap-Objekt umwandelst, da die PictureBox kein Icon-Objekt direkt anzeigen kann. Hier ein Beispiel: ```vb.net ' Icon laden (z.B. aus einer Datei) Dim myIcon As New Icon("C:\Pfad\zu\deinem\icon.ico") ' Icon in ein Bitmap umwandeln Dim bmp As Bitmap = myIcon.ToBitmap() ' Bitmap in die PictureBox laden PictureBox1.Image = bmp ``` **Wichtige Hinweise:** - Ersetze `"C:\Pfad\zu\deinem\icon.ico"` durch den tatsächlichen Pfad zu deiner Icon-Datei. - Die PictureBox muss im Designer bereits auf dem Formular vorhanden sein (z.B. PictureBox1). So wird das Icon korrekt in der PictureBox angezeigt.

Accepted Answer

In **VB.NET 2003** (Visual Studio .NET 2003) bietet die **ImageList**-Komponente keine Möglichkeit, neben den Bildern (Icons) auch deren Namen oder andere Metadaten direkt zu speichern. Die **Ima... [mehr]

Accepted Answer

In **VB.NET 2003** (Visual Studio .NET 2003) bietet die **ImageList**-Komponente keine Möglichkeit, neben den Bildern (Icons) auch deren Namen oder andere Metadaten direkt zu speichern. Die **ImageList** speichert lediglich eine Sammlung von Bildern, die über einen numerischen Index oder einen optionalen Schlüssel (String-Key) angesprochen werden können. Du kannst beim Hinzufügen eines Bildes zur ImageList einen **Key** (also einen Namen als String) angeben, aber es gibt kein separates Feld für einen "Namen" des Bildes. Der Key ist der einzige Weg, einen Namen zuzuordnen. **Beispiel:** ```vb.net ImageList1.Images.Add("MeinIcon", Image.FromFile("icon.ico")) ``` Hier ist `"MeinIcon"` der Name (Key), unter dem das Bild gespeichert wird. **Zusammenfassung:** - **Icons/Bilder:** Ja, werden gespeichert. - **Namen:** Nur als Key (String) möglich, nicht als separates Namensfeld. - **Weitere Metadaten:** Nicht direkt in der ImageList möglich. **Weitere Infos zur ImageList:** [Microsoft Dokumentation zu ImageList (englisch)](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.imagelist) Wenn du zusätzliche Informationen zu jedem Bild speichern möchtest, müsstest du eine eigene Datenstruktur (z.B. Dictionary oder Klasse) verwenden, die Bild und Metadaten gemeinsam verwaltet.

Accepted Answer

Das Vorhalten von Variablen in einem Modul in VB.NET 2003 ist technisch möglich und wird häufig genutzt, um sogenannte „globale Variablen“ bereitzustellen. Allerdings ist dies au... [mehr]

Accepted Answer

Das Vorhalten von Variablen in einem Modul in VB.NET 2003 ist technisch möglich und wird häufig genutzt, um sogenannte „globale Variablen“ bereitzustellen. Allerdings ist dies aus heutiger Sicht nur in bestimmten Fällen eine gute Idee. **Vorteile:** - Einfacher Zugriff von überall im Projekt. - Schnelle Implementierung für kleine oder sehr einfache Anwendungen. **Nachteile:** - Globale Variablen erschweren das Testen und die Wartung des Codes. - Sie können zu unerwarteten Seiteneffekten führen, wenn verschiedene Teile des Programms dieselben Variablen verändern. - Die Übersichtlichkeit und Nachvollziehbarkeit des Codes leidet, besonders bei größeren Projekten. **Empfehlung:** - Für Konstanten oder wirklich globale Einstellungen (z.B. Konfigurationswerte, die sich nicht ändern) kann ein Modul sinnvoll sein. - Für veränderliche Daten ist es besser, diese in Klassen zu kapseln und gezielt zu übergeben (z.B. per Konstruktor oder Eigenschaften). - Nutze Module mit Bedacht und dokumentiere die Verwendung globaler Variablen gut. **Fazit:** Für kleine, überschaubare Projekte kann das Vorhalten von Variablen in einem Modul praktikabel sein. In größeren oder langfristig gepflegten Anwendungen solltest du jedoch auf eine strukturierte Kapselung und Übergabe von Daten setzen, um Wartbarkeit und Fehlerfreiheit zu gewährleisten.

Accepted Answer

In VB.NET 2003 (und auch in anderen Versionen) gibt es keinen technischen Grund, warum „If...Then...Else“ grundsätzlich dem „Select...Case“ vorgezogen werden sollte. Beide... [mehr]

Accepted Answer

In VB.NET 2003 (und auch in anderen Versionen) gibt es keinen technischen Grund, warum „If...Then...Else“ grundsätzlich dem „Select...Case“ vorgezogen werden sollte. Beide Kontrollstrukturen haben ihre spezifischen Anwendungsfälle: **If...Then...Else** wird oft verwendet, wenn: - Bedingungen komplex oder voneinander abhängig sind. - Vergleiche nicht nur Gleichheit, sondern auch auf Ungleichheit, Bereichsprüfungen oder komplexe logische Ausdrücke abzielen. - Es nur wenige Fälle gibt. **Select...Case** ist besonders übersichtlich, wenn: - Eine Variable auf verschiedene Werte geprüft werden soll (meist auf Gleichheit oder Wertebereiche). - Viele verschiedene Fälle unterschieden werden müssen. **Mögliche Gründe, warum „If...Then...Else“ häufiger verwendet wird:** 1. **Gewohnheit und Bekanntheit:** Viele Entwickler sind mit „If...Then...Else“ vertrauter, da es in fast allen Programmiersprachen existiert. 2. **Flexibilität:** „If...Then...Else“ ist flexibler bei komplexen Bedingungen, die mit „Select...Case“ nicht oder nur umständlich abbildbar sind. 3. **Historische Gründe:** In älteren BASIC-Versionen war „Select...Case“ nicht immer verfügbar, daher wurde „If...Then...Else“ häufiger genutzt. 4. **Kleine Fallunterscheidungen:** Bei wenigen Fällen ist „If...Then...Else“ oft schneller geschrieben. **Fazit:** Es gibt keinen zwingenden Grund, „If...Then...Else“ dem „Select...Case“ vorzuziehen. Die Wahl hängt vom jeweiligen Anwendungsfall, der Komplexität der Bedingungen und den Vorlieben des Entwicklers ab. Für viele Fälle ist „Select...Case“ tatsächlich übersichtlicher und besser wartbar. Weitere Infos: - [Microsoft Docs: If...Then...Else-Anweisung](https://learn.microsoft.com/de-de/dotnet/visual-basic/language-reference/statements/if-then-else-statement) - [Microsoft Docs: Select...Case-Anweisung](https://learn.microsoft.com/de-de/dotnet/visual-basic/language-reference/statements/select-case-statement)

Accepted Answer

Das Verhalten, dass in einer `TreeView`-Steuerung unter VB.NET 2003 ein horizontaler Scrollbalken angezeigt wird, obwohl alle Einträge ausreichend Abstand zum rechten Rand haben, kann mehrere Urs... [mehr]

Accepted Answer

Das Verhalten, dass in einer `TreeView`-Steuerung unter VB.NET 2003 ein horizontaler Scrollbalken angezeigt wird, obwohl alle Einträge ausreichend Abstand zum rechten Rand haben, kann mehrere Ursachen haben: 1. **Versteckte oder unsichtbare Knoten**: Auch unsichtbare oder ausgeblendete Knoten (z.B. durch `Node.Collapse()`) können intern noch als breiter berechnet werden, wenn sie einmal angezeigt wurden. 2. **Breitenberechnung der TreeView**: Die TreeView-Steuerung berechnet die notwendige Breite für den Scrollbalken anhand der längsten Zeile, die jemals angezeigt wurde, nicht nur der aktuell sichtbaren. Wenn also ein Knoten mit sehr langem Text hinzugefügt und später entfernt oder gekürzt wurde, kann der Scrollbalken trotzdem bleiben, bis die TreeView neu gezeichnet oder refreshed wird. 3. **Bilder oder Icons**: Wenn du ImageLists verwendest, kann die Breite der Icons zur Gesamtlänge addiert werden, auch wenn der Text selbst kurz ist. 4. **Padding und Margin**: Interne Abstände (Padding/Margin) der TreeView oder der einzelnen Nodes können dazu führen, dass die berechnete Breite größer ist als der sichtbare Inhalt. 5. **Fehler in .NET 1.1**: In älteren .NET-Versionen (wie 1.1, die in VB.NET 2003 verwendet wird) gibt es bekannte Bugs im Zusammenhang mit der TreeView-Steuerung und der Berechnung der Scrollbalken. **Lösungsansätze:** - **TreeView neu zeichnen lassen**: Ein Aufruf von `TreeView1.Refresh()` oder das kurzzeitige Entfernen und erneute Hinzufügen der Nodes kann helfen. - **AutoResize**: Es gibt keinen eingebauten Auto-Resize, aber du kannst die Breite der längsten Zeile selbst berechnen und ggf. die TreeView anpassen. - **Scrollbalken erzwingen/entfernen**: Es gibt keine direkte Eigenschaft, um den horizontalen Scrollbalken zu deaktivieren, aber du kannst mit Win32-API-Aufrufen experimentieren, um das Verhalten zu beeinflussen. **Beispiel für Refresh:** ```vb.net TreeView1.BeginUpdate() TreeView1.EndUpdate() ``` Das erzwingt ein Neuzeichnen und kann das Problem manchmal beheben. **Weitere Infos:** - [Microsoft Docs: TreeView Class](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treeview) - [Stack Overflow: TreeView horizontal scrollbar issue](https://stackoverflow.com/questions/1097857/treeview-horizontal-scrollbar-issue) Das Verhalten ist also meist ein Nebeneffekt der internen Breitenberechnung und kein Fehler in deinem Code. Ein Neuzeichnen oder das Entfernen und erneute Hinzufügen der Nodes kann oft helfen.

Accepted Answer

Um in VB.NET 2003 nachträglich das Icon (genauer: das Image) eines bestimmten TreeNode in einem TreeView zu ändern, gehst du wie folgt vor: 1. **Stelle sicher, dass dein TreeView eine Image... [mehr]

Accepted Answer

Um in VB.NET 2003 nachträglich das Icon (genauer: das Image) eines bestimmten TreeNode in einem TreeView zu ändern, gehst du wie folgt vor: 1. **Stelle sicher, dass dein TreeView eine ImageList verwendet:** Weise die `ImageList`-Eigenschaft deines TreeView-Steuerelements einer ImageList zu, die die gewünschten Icons enthält. 2. **Setze das ImageIndex- oder ImageKey-Attribut des TreeNode:** Jeder TreeNode hat die Eigenschaften `ImageIndex` (für das normale Icon) und `SelectedImageIndex` (für das Icon, wenn der Knoten ausgewählt ist). **Beispiel:** ```vb.net ' Angenommen, du hast einen TreeView namens treeView1 und eine ImageList namens imageList1 treeView1.ImageList = imageList1 ' Zugriff auf einen bestimmten TreeNode, z.B. den ersten Knoten Dim node As TreeNode = treeView1.Nodes(0) ' Setze das Icon (Index in der ImageList) node.ImageIndex = 2 ' Index des gewünschten Icons in der ImageList node.SelectedImageIndex = 2 ' Optional: Icon, wenn der Knoten ausgewählt ist ``` **Hinweis:** - In VB.NET 2003 gibt es noch keine Unterstützung für `ImageKey`, sondern nur für `ImageIndex`. - Die Änderung wird sofort im TreeView sichtbar. **Weitere Infos:** - [Microsoft Dokumentation zu TreeNode.ImageIndex (englisch)](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treenode.imageindex?view=netframework-1.1) - [TreeView.ImageList Property (englisch)](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treeview.imagelist?view=netframework-1.1) Falls du einen bestimmten Knoten suchst, kannst du ihn z.B. über eine Schleife oder per Name finden und dann wie oben beschrieben das Icon ändern.

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