Wie ermittele ich in VB.NET 2003 die Breite von Scrollbalken?

Question

Wie ermittele ich in VB.NET 2003 die Breite von Scrollbalken?

Antwort

Verwandte Fragen

Ist es in VB.NET 2003 möglich, die Länge der Scrollbalken unabhängig vom Verhältnis zwischen Container und Inhalt festzulegen?

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

Wie ermittelt man in VB.NET 2003 die benötigte Höhe einer TreeView, damit kein Scrollbalken angezeigt wird?

Warum erzeugt thumb.Dispose() in VB.NET 2003 nach Verwendung den Fehler 'ungültige Parameter verwendet'?

Wann und wie muss man in VB.NET 2003 ein erstelltes Thumbnail disposen?

Wie erstelle ich in VB.NET 2003 ein Thumbnail eines Bildes zur Weiterverwendung?

Was ist der Unterschied zwischen frm.Resize und frm.SizeChanged in VB.NET 2003?

Was ist das Gegenteil von Path.Combine(...) in VB.NET 2003?

Gibt es ‚Path.GetFileName‘ in VB.NET 2003?

Gibt es fertigen Code für einen selbstgebauten FileDialog in VB.NET 2003 und wie lautet dieser?

Accepted Answer

In VB.NET 2003 kannst du die Breite (vertikaler Scrollbalken) bzw. Höhe (horizontaler Scrollbalken) von Scrollbalken mit der Windows-API-Funktion `GetSystemMetrics` ermitteln. Die relevanten Konstanten sind: - `SM_CXVSCROLL` für die Breite des vertikalen Scrollbalkens - `SM_CYHSCROLL` für die Höhe des horizontalen Scrollbalkens Hier ein Beispiel, wie du das machen kannst: ```vb.net Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> _ Private Shared Function GetSystemMetrics(ByVal nIndex As Integer) As Integer End Function Private Const SM_CXVSCROLL As Integer = 2 ' Breite des vertikalen Scrollbalkens Private Const SM_CYHSCROLL As Integer = 3 ' Höhe des horizontalen Scrollbalkens Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim vertScrollWidth As Integer = GetSystemMetrics(SM_CXVSCROLL) Dim horzScrollHeight As Integer = GetSystemMetrics(SM_CYHSCROLL) MessageBox.Show("Vertikale Scrollbalken-Breite: " & vertScrollWidth.ToString() & vbCrLf & _ "Horizontale Scrollbalken-Höhe: " & horzScrollHeight.ToString()) End Sub End Class ``` Mit diesem Code erhältst du die Systemwerte für die Scrollbalken-Breite und -Höhe. Diese Werte sind systemweit gültig und ändern sich, wenn der Benutzer die Windows-Design-Einstellungen anpasst.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist die Länge der Scrollbalken in Standard-Steuerelementen wie `Panel`, `TextBox`, `ListBox` usw. grundsätzlich vom Verhältnis zwischen Containe... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist die Länge der Scrollbalken in Standard-Steuerelementen wie `Panel`, `TextBox`, `ListBox` usw. grundsätzlich vom Verhältnis zwischen Containergröße und Inhalt abhängig. Das Verhalten und die Darstellung der Scrollbalken werden vom Betriebssystem (Windows) und den nativen Steuerelementen bestimmt. Eine direkte Möglichkeit, die Länge der Scrollbalken unabhängig von diesem Verhältnis zu beeinflussen, gibt es in der Standardbibliothek nicht. Die Scrollbar-Größe ist systemweit über die Windows-Systemsteuerung einstellbar, aber nicht individuell pro Steuerelement. **Mögliche Workarounds:** 1. **Eigene Scrollbar-Steuerelemente programmieren:** Du könntest eigene Steuerelemente für Scrollbars erstellen und diese unabhängig vom Inhalt steuern. Das ist allerdings mit erheblichem Aufwand verbunden. 2. **Drittanbieter-Steuerelemente:** Es gibt (auch für ältere .NET-Versionen) Steuerelemente von Drittanbietern, die mehr Kontrolle über das Aussehen und Verhalten der Scrollbars bieten. Beispiele findest du z.B. bei [DevExpress](https://www.devexpress.com/) oder [ComponentOne](https://www.grapecity.com/componentone). 3. **Custom Drawing:** Mit OwnerDraw- oder CustomPaint-Techniken könntest du eigene Scrollbars zeichnen und deren Verhalten selbst bestimmen. Das ist aber in VB.NET 2003 recht aufwendig und erfordert gute Kenntnisse in GDI+. **Fazit:** Mit den Standardmitteln von VB.NET 2003 ist es nicht möglich, die Länge der Scrollbalken unabhängig vom Verhältnis Container/Content zu beeinflussen. Nur mit eigenen oder Drittanbieter-Lösungen kannst du dieses Verhalten erreichen.

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 zu bestimmen, wie viel Höhe eine `TreeView` benötigt, damit kein vertikaler Scrollbalken angezeigt wird, musst du die Höhe aller sichtbaren Knoten (Nodes) berechnen. D... [mehr]

Accepted Answer

Um in VB.NET 2003 zu bestimmen, wie viel Höhe eine `TreeView` benötigt, damit kein vertikaler Scrollbalken angezeigt wird, musst du die Höhe aller sichtbaren Knoten (Nodes) berechnen. Die TreeView zeigt einen vertikalen Scrollbalken an, wenn die Summe der Knoten-Höhen größer als die aktuelle Höhe des Steuerelements ist. **Vorgehen:** 1. **Ermittle die Anzahl der sichtbaren Knoten** Das sind alle Knoten, die nicht durch einen zugeklappten Elternknoten verborgen sind. 2. **Ermittle die Höhe eines Knotens** Die Eigenschaft `ItemHeight` gibt die Höhe eines Knotens in Pixel an. 3. **Berechne die benötigte Höhe** Multipliziere die Anzahl der sichtbaren Knoten mit der Knoten-Höhe. **Beispielcode:** ```vb ' Funktion, um die Anzahl der sichtbaren Knoten zu zählen Private Function CountVisibleNodes(node As TreeNode) As Integer Dim count As Integer = 1 ' Der aktuelle Knoten ist sichtbar If node.IsExpanded Then For Each child As TreeNode In node.Nodes count += CountVisibleNodes(child) Next End If Return count End Function ' Gesamte sichtbare Knoten im TreeView zählen Private Function GetVisibleNodeCount(tree As TreeView) As Integer Dim count As Integer = 0 For Each node As TreeNode In tree.Nodes count += CountVisibleNodes(node) Next Return count End Function ' Benötigte Höhe berechnen Dim visibleNodes As Integer = GetVisibleNodeCount(Me.TreeView1) Dim neededHeight As Integer = visibleNodes * Me.TreeView1.ItemHeight ' Optional: Padding für Rahmen oder Header hinzufügen neededHeight += 4 ' je nach Design ggf. anpassen ' TreeView auf die berechnete Höhe setzen Me.TreeView1.Height = neededHeight ``` **Hinweise:** - Die Methode berücksichtigt nur die sichtbaren Knoten (also auch, ob Elternknoten eingeklappt sind). - Je nach Windows-Theme und Rahmen kann ein kleiner zusätzlicher Wert (z.B. 2–4 Pixel) nötig sein, damit wirklich kein Scrollbalken erscheint. - Die Eigenschaft `ItemHeight` ist in .NET 1.1 (und damit in VB.NET 2003) verfügbar. **Weitere Infos zur TreeView-Klasse:** [Microsoft Docs: TreeView.ItemHeight Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treeview.itemheight)

Accepted Answer

Der Fehler „Ungültige Parameter verwendet“ beim Aufruf von `thumb.Dispose()` in VB.NET 2003 (bzw. .NET Framework 1.1) tritt häufig auf, wenn das `thumb`-Objekt (vermutlich ein `S... [mehr]

Accepted Answer

Der Fehler „Ungültige Parameter verwendet“ beim Aufruf von `thumb.Dispose()` in VB.NET 2003 (bzw. .NET Framework 1.1) tritt häufig auf, wenn das `thumb`-Objekt (vermutlich ein `System.Drawing.Image` oder `Bitmap`) noch von einer anderen Ressource verwendet wird oder bereits freigegeben wurde. **Typische Ursachen:** 1. **thumb ist bereits disposed:** Wenn du `Dispose()` mehrfach aufrufst oder das Objekt schon durch einen anderen Vorgang freigegeben wurde, kann dieser Fehler auftreten. 2. **thumb ist noch in Benutzung:** Wenn du das Bild-Objekt (`thumb`) z.B. noch in einem PictureBox, Graphics-Objekt oder Stream verwendest, kann das Dispose fehlschlagen. 3. **Fehlerhafte Erstellung des Objekts:** Wenn das `thumb`-Objekt nicht korrekt initialisiert wurde (z.B. durch einen fehlgeschlagenen Ladevorgang), ist es möglicherweise gar kein gültiges Image-Objekt. **Beispielproblem:** ```vb Dim thumb As Image = Image.FromFile("bild.jpg") thumb.Dispose() thumb.Dispose() ' <-- Fehler: Ungültige Parameter verwendet ``` **Lösungsvorschläge:** - **Nur einmal Dispose aufrufen:** Stelle sicher, dass `Dispose()` nur einmal aufgerufen wird. - **Verwendung prüfen:** Prüfe, ob das Objekt noch irgendwo verwendet wird (z.B. in einer PictureBox). Entferne es ggf. vorher: ```vb PictureBox1.Image = Nothing thumb.Dispose() ``` - **Try-Catch verwenden:** Um Fehler abzufangen: ```vb Try thumb.Dispose() Catch ex As Exception MessageBox.Show(ex.Message) End Try ``` - **Objekt-Status prüfen:** Prüfe, ob das Objekt gültig ist, bevor du `Dispose()` aufrufst. **Zusammenfassung:** Der Fehler „Ungültige Parameter verwendet“ beim Aufruf von `Dispose()` deutet meist darauf hin, dass das Objekt entweder schon disposed ist, noch verwendet wird oder nie korrekt initialisiert wurde. Überprüfe die Lebensdauer und Verwendung des Objekts im Code und stelle sicher, dass keine Mehrfachverwendung oder parallele Nutzung stattfindet. Weitere Infos zu `Image.Dispose()` findest du in der [Microsoft-Dokumentation](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.image.dispose).

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist das Ressourcenmanagement bei Objekten wie Bildern und Thumbnails besonders wichtig, da diese oft nicht verwaltete Ressourcen (z.B. GDI-Handles) verwenden.... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist das Ressourcenmanagement bei Objekten wie Bildern und Thumbnails besonders wichtig, da diese oft nicht verwaltete Ressourcen (z.B. GDI-Handles) verwenden. Das betrifft insbesondere Objekte vom Typ `Image`, `Bitmap` oder auch Thumbnails, die du mit Methoden wie `GetThumbnailImage` erzeugst. **Wann musst du ein Thumbnail disposen?** Du musst ein Thumbnail (also ein `Image`-Objekt), das du mit `GetThumbnailImage` oder ähnlichen Methoden erzeugt hast, **immer dann disposen, wenn du es nicht mehr benötigst**. Das gilt insbesondere, wenn du: - das Thumbnail nicht mehr anzeigen oder weiterverarbeiten willst, - das Programm beendest und vorher Ressourcen freigeben möchtest, - ein neues Thumbnail erzeugst und das alte nicht mehr brauchst. **Wie disposest du ein Thumbnail?** Du rufst die `Dispose`-Methode auf dem betreffenden Objekt auf, z.B.: ```vb.net Dim thumb As Image = originalImage.GetThumbnailImage(100, 100, Nothing, IntPtr.Zero) ' ... Verwendung des Thumbnails ... thumb.Dispose() ``` **Wichtige Hinweise:** - Wenn du das Thumbnail z.B. in einer PictureBox anzeigst, solltest du es erst disposen, wenn die PictureBox das Bild nicht mehr verwendet (z.B. nach dem Entfernen oder beim Schließen des Formulars). - Wenn du das Thumbnail mehrfach verwendest, dispose es erst ganz am Ende. - In VB.NET 2003 gibt es noch kein `Using`-Block wie in späteren Versionen, daher musst du das Dispose explizit aufrufen. **Zusammengefasst:** Du musst ein in VB.NET 2003 erstelltes und weiterverwendetes Thumbnail immer dann disposen, wenn du es nicht mehr benötigst, um Speicherlecks und GDI-Fehler zu vermeiden. Das geschieht durch den Aufruf von `Dispose()` auf dem betreffenden Objekt.

Accepted Answer

Um in VB.NET 2003 ein Thumbnail eines Bildes zu erstellen und zur Weiterverwendung bereitzustellen, kannst du die Methoden der `System.Drawing`-Bibliothek nutzen. Hier ein einfaches Beispiel, wie du e... [mehr]

Accepted Answer

Um in VB.NET 2003 ein Thumbnail eines Bildes zu erstellen und zur Weiterverwendung bereitzustellen, kannst du die Methoden der `System.Drawing`-Bibliothek nutzen. Hier ein einfaches Beispiel, wie du ein Thumbnail erzeugst und in einer Variablen speicherst: ```vb.net Imports System.Drawing ' Bild laden Dim originalImage As Image = Image.FromFile("C:\Pfad\zum\Bild.jpg") ' Thumbnail-Größe festlegen Dim thumbWidth As Integer = 100 Dim thumbHeight As Integer = 100 ' Thumbnail erzeugen Dim thumbnail As Image = originalImage.GetThumbnailImage(thumbWidth, thumbHeight, Nothing, IntPtr.Zero) ' Das Thumbnail steht jetzt in der Variable "thumbnail" zur Weiterverwendung bereit, ' z.B. zum Anzeigen in einer PictureBox: PictureBox1.Image = thumbnail ' Oder zum Speichern: thumbnail.Save("C:\Pfad\zum\Thumbnail.jpg") ``` **Hinweise:** - Die Methode `GetThumbnailImage` erstellt ein neues Bildobjekt mit den angegebenen Abmessungen. - Das Thumbnail kann wie jedes andere `Image`-Objekt weiterverwendet werden (z.B. anzeigen, speichern, weiterverarbeiten). - Vergiss nicht, die Ressourcen nach der Verwendung mit `Dispose()` freizugeben, um Speicherlecks zu vermeiden. Weitere Informationen findest du in der [Microsoft-Dokumentation zu System.Drawing.Image.GetThumbnailImage](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.image.getthumbnailimage).

Accepted Answer

In VB.NET 2003 gibt es einen wichtigen Unterschied zwischen den Ereignissen `Resize` und `SizeChanged` eines Formulars (`Form`): **1. Resize-Ereignis (`frm.Resize`):** - Dieses Ereignis wird ausgel&o... [mehr]

Accepted Answer

In VB.NET 2003 gibt es einen wichtigen Unterschied zwischen den Ereignissen `Resize` und `SizeChanged` eines Formulars (`Form`): **1. Resize-Ereignis (`frm.Resize`):** - Dieses Ereignis wird ausgelöst, **wenn sich die Größe des Formulars ändert**. - Es wird **bei jeder Größenänderung** ausgelöst, auch während der Benutzer das Formular mit der Maus zieht. - Es kann also **mehrfach während einer einzigen Größenänderung** ausgelöst werden. **2. SizeChanged-Ereignis (`frm.SizeChanged`):** - Dieses Ereignis wird ebenfalls ausgelöst, **wenn sich die Größe des Formulars ändert**. - Es wird jedoch **erst ausgelöst, nachdem die Größenänderung abgeschlossen ist**. - Es ist also **weniger häufig** als das `Resize`-Ereignis und wird typischerweise **nur einmal pro Größenänderung** ausgelöst. **Zusammengefasst:** - `Resize` = Wird bei jeder Änderung der Größe ausgelöst, auch während des Ziehens. - `SizeChanged` = Wird ausgelöst, wenn die Größenänderung abgeschlossen ist. **Quelle:** [Microsoft-Dokumentation zu Form.Resize](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.form.resize) [Microsoft-Dokumentation zu Form.SizeChanged](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.form.sizechanged) **Hinweis:** In der Praxis werden beide Ereignisse oft ähnlich verwendet, aber für aufwändige Berechnungen oder Layout-Updates empfiehlt sich meist `SizeChanged`, um unnötige Mehrfachausführungen zu vermeiden.

Accepted Answer

In VB.NET 2003 ist das Gegenteil von `Path.Combine(...)` das Zerlegen eines zusammengesetzten Dateipfads in seine Einzelteile (Verzeichnisse und Dateiname). Während `Path.Combine` mehrere Teile z... [mehr]

Accepted Answer

In VB.NET 2003 ist das Gegenteil von `Path.Combine(...)` das Zerlegen eines zusammengesetzten Dateipfads in seine Einzelteile (Verzeichnisse und Dateiname). Während `Path.Combine` mehrere Teile zu einem Pfad zusammenfügt, möchtest du beim "Gegenteil" die einzelnen Komponenten eines Pfads extrahieren. Dafür gibt es in .NET verschiedene Methoden in der Klasse [`System.IO.Path`](https://learn.microsoft.com/de-de/dotnet/api/system.io.path): - `Path.GetDirectoryName(pfad)` – Gibt das Verzeichnis eines Pfads zurück. - `Path.GetFileName(pfad)` – Gibt den Dateinamen zurück. - `Path.GetFileNameWithoutExtension(pfad)` – Gibt den Dateinamen ohne Erweiterung zurück. - `Path.GetExtension(pfad)` – Gibt die Dateierweiterung zurück. **Beispiel:** ```vb Dim pfad As String = "C:\Ordner\Unterordner\datei.txt" Dim verzeichnis As String = Path.GetDirectoryName(pfad) ' "C:\Ordner\Unterordner" Dim dateiname As String = Path.GetFileName(pfad) ' "datei.txt" ``` Wenn du alle Einzelteile (also auch die einzelnen Ordner) brauchst, kannst du das Verzeichnis mit `Split` weiter zerlegen: ```vb Dim ordner() As String = verzeichnis.Split("\"c) ' ordner = {"C:", "Ordner", "Unterordner"} ``` **Zusammengefasst:** Es gibt keine direkte "Uncombine"-Methode, aber mit den genannten Funktionen kannst du die Einzelteile eines Pfads extrahieren.

Accepted Answer

Richtig, in VB.NET 2003 (also .NET Framework 1.1) gibt es die Methode `Path.GetFileName` bereits, aber möglicherweise hast du einen Fehler im Code oder im Import der Namespaces. So funktioniert... [mehr]

Accepted Answer

Richtig, in VB.NET 2003 (also .NET Framework 1.1) gibt es die Methode `Path.GetFileName` bereits, aber möglicherweise hast du einen Fehler im Code oder im Import der Namespaces. So funktioniert es korrekt: ```vb.net Imports System.IO Dim filename As String = Path.GetFileName(dir) ``` **Wichtige Hinweise:** - Stelle sicher, dass du `Imports System.IO` am Anfang deiner Datei hast. - Die Methode heißt `GetFileName`, nicht `getfilename` (Groß- und Kleinschreibung beachten). - `dir` muss ein String sein, der einen Pfad enthält. **Beispiel:** ```vb.net Dim pfad As String = "C:\Ordner\datei.txt" Dim dateiname As String = Path.GetFileName(pfad) ' Ergibt "datei.txt" ``` **Dokumentation:** [Microsoft Docs: Path.GetFileName](https://learn.microsoft.com/de-de/dotnet/api/system.io.path.getfilename) Falls du eine Fehlermeldung bekommst, prüfe bitte: - Schreibweise der Methode - Ob `System.IO` importiert ist - Ob du wirklich .NET 1.1 verwendest (VB.NET 2003) Die Methode ist also schon in VB.NET 2003 verfügbar.

Accepted Answer

Für VB.NET 2003 gibt es keinen offiziellen, fertigen Code für einen komplett selbstgebauten FileDialog, da normalerweise der Standarddialog (`OpenFileDialog`, `SaveFileDialog`) verwendet wir... [mehr]

Accepted Answer

Für VB.NET 2003 gibt es keinen offiziellen, fertigen Code für einen komplett selbstgebauten FileDialog, da normalerweise der Standarddialog (`OpenFileDialog`, `SaveFileDialog`) verwendet wird. Möchtest du jedoch einen eigenen, einfachen FileDialog bauen, kannst du ein eigenes Formular mit Steuerelementen wie `ListBox`, `TextBox` und `Button` verwenden. Hier ein sehr einfaches Beispiel für einen selbstgebauten Open-File-Dialog in VB.NET 2003: **1. Neues Formular erstellen (z.B. "MyFileDialog")** Füge folgende Steuerelemente hinzu: - `ListBox` (Name: `lstFiles`) - `TextBox` (Name: `txtPath`) - `Button` (Name: `btnOpen`, Text: "Öffnen") - `Button` (Name: `btnCancel`, Text: "Abbrechen") **2. Code für das Formular:** ```vbnet Imports System.IO Public Class MyFileDialog Public SelectedFile As String = "" Private Sub MyFileDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtPath.Text = "C:\" LoadFiles(txtPath.Text) End Sub Private Sub LoadFiles(ByVal path As String) Try lstFiles.Items.Clear() For Each dir As String In Directory.GetDirectories(path) lstFiles.Items.Add("<DIR> " & Path.GetFileName(dir)) Next For Each file As String In Directory.GetFiles(path) lstFiles.Items.Add(Path.GetFileName(file)) Next Catch ex As Exception MessageBox.Show("Fehler: " & ex.Message) End Try End Sub Private Sub lstFiles_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstFiles.DoubleClick If lstFiles.SelectedItem Is Nothing Then Exit Sub Dim item As String = lstFiles.SelectedItem.ToString() If item.StartsWith("<DIR> ") Then txtPath.Text = Path.Combine(txtPath.Text, item.Substring(6)) LoadFiles(txtPath.Text) Else SelectedFile = Path.Combine(txtPath.Text, item) Me.DialogResult = DialogResult.OK Me.Close() End If End Sub Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click If lstFiles.SelectedItem Is Nothing Then Exit Sub Dim item As String = lstFiles.SelectedItem.ToString() If Not item.StartsWith("<DIR> ") Then SelectedFile = Path.Combine(txtPath.Text, item) Me.DialogResult = DialogResult.OK Me.Close() End If End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.DialogResult = DialogResult.Cancel Me.Close() End Sub End Class ``` **3. Verwendung im Hauptformular:** ```vbnet Dim dlg As New MyFileDialog() If dlg.ShowDialog() = DialogResult.OK Then MessageBox.Show("Ausgewählte Datei: " & dlg.SelectedFile) End If ``` **Hinweis:** Dies ist ein sehr einfaches Beispiel und bietet keine Filter, keine Navigation nach oben, keine Dateityp-Filter usw. Für produktive Anwendungen empfiehlt sich die Nutzung des Standarddialogs oder eine umfangreichere Eigenentwicklung. Weitere Informationen zu VB.NET findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/dotnet/visual-basic/).