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

Question

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

Antwort

Verwandte Fragen

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 zeigt man in VB.NET 2003 in einer ListView die Icons versteckter Dateien halbtransparent an?

Warum erkennt VB.NET 2003 Date.TryParse nicht als Member von Date?

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

Wie kann ich in VB.NET 2003 an einen bestehenden String weitere Worte mit definiertem Abstand anhängen, ohne den String neu zu rendern?

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

Der Fehler tritt auf, weil die Methode `Date.TryParse` erst ab .NET Framework 2.0 eingeführt wurde. Visual Basic .NET 2003 basiert jedoch auf .NET Framework 1.1, in dem es die Methode `TryParse`... [mehr]

Accepted Answer

Der Fehler tritt auf, weil die Methode `Date.TryParse` erst ab .NET Framework 2.0 eingeführt wurde. Visual Basic .NET 2003 basiert jedoch auf .NET Framework 1.1, in dem es die Methode `TryParse` für Datumswerte noch nicht gibt. Stattdessen musst du in VB.NET 2003 die Methode `Date.Parse` (bzw. `DateTime.Parse`) verwenden und Fehlerbehandlung mit `Try...Catch` machen. Beispiel: ```vb.net Dim datum As Date Try datum = Date.Parse("2024-06-01") ' Erfolgreich geparst Catch ex As Exception ' Fehler beim Parsen End Try ``` Eine eigene TryParse-ähnliche Funktion könntest du so schreiben: ```vb.net Function MyDateTryParse(ByVal input As String, ByRef result As Date) As Boolean Try result = Date.Parse(input) Return True Catch result = Date.MinValue Return False End Try End Function ``` Verwendung: ```vb.net Dim d As Date If MyDateTryParse("2024-06-01", d) Then ' d enthält das Datum Else ' Ungültiges Datum End If ``` Weitere Infos zu .NET Framework-Versionen findest du z.B. bei [Microsoft](https://learn.microsoft.com/de-de/dotnet/standard/frameworks).

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

In VB.NET 2003 (also .NET Framework 1.1) sind Strings unveränderlich (immutable). Das bedeutet: Jedes Mal, wenn du einen String veränderst (z. B. durch Anhängen), wird intern ein neuer... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) sind Strings unveränderlich (immutable). Das bedeutet: Jedes Mal, wenn du einen String veränderst (z. B. durch Anhängen), wird intern ein neuer String erzeugt. Es ist technisch nicht möglich, einen bestehenden String im Speicher zu erweitern, ohne dass ein neuer String erzeugt wird. Wenn du viele Wörter in definiertem Abstand (z. B. mit Leerzeichen oder Tabs) an einen bestehenden Text anhängen möchtest, solltest du stattdessen die Klasse `System.Text.StringBuilder` verwenden. Diese ist für genau solche Szenarien optimiert und vermeidet unnötige Speicheroperationen. **Beispiel:** ```vb.net Dim sb As New System.Text.StringBuilder("Starttext") Dim abstand As String = " " ' z. B. 4 Leerzeichen sb.Append(abstand) sb.Append("Wort1") sb.Append(abstand) sb.Append("Wort2") Dim ergebnis As String = sb.ToString() ``` **Fazit:** Das direkte Anhängen an einen bestehenden String ohne Neurendern ist in VB.NET 2003 nicht möglich. Nutze stattdessen `StringBuilder` für effizientes String-Handling. Weitere Infos: [Microsoft Doku zu StringBuilder](https://learn.microsoft.com/de-de/dotnet/api/system.text.stringbuilder)