Kann man in VB.NET 2003 das Aussehen des SelectedNode eines TreeView steuern?

Question

Kann man in VB.NET 2003 das Aussehen des SelectedNode eines TreeView steuern?

Antwort

Verwandte Fragen

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

Wie kann ich in VB.NET 2003 im TreeView nur Unterknoten 1 und dessen Unterknoten öffnen?

Wie kann ich in VB.NET 2003 in einem TreeView nur den ersten Unterknoten und dessen Unterknoten anzeigen?

Wie zeigt man in VB.NET 2003 den ersten Unterknoten des ersten Unterknotens eines TreeView an?

Wie prüfe ich in VB.NET 2003, ob ein TreeView gefüllt ist?

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

Wie selektiere ich in VB.NET 2003 einen TreeViewNode mit der rechten Maustaste?

Wie finde und selektiere ich in VB.NET 2003 bestimmte Einträge in einer TreeView?

Wie klappe ich in VB.NET 2003 per Code ein bestimmtes Untermenü eines ContextMenus auf?

Wie kann ich in VB.NET 2003 markierten Text in einer RTF-Box per Maus verschieben?

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist die Möglichkeit, das Aussehen des `SelectedNode` eines `TreeView`-Steuerelements direkt zu beeinflussen, sehr eingeschränkt. Die TreeView-Kontrolle unterstützt in dieser Version keine OwnerDraw- oder erweiterte Styling-Optionen, wie sie in späteren .NET-Versionen eingeführt wurden. **Standardmöglichkeiten:** - Du kannst die Farben für alle Nodes über die Eigenschaften `BackColor`, `ForeColor`, `LineColor` und `HideSelection` des TreeView steuern. - Für die ausgewählte Node gibt es die Eigenschaften `SelectedImageIndex` und `SelectedImageKey`, um ein anderes Icon anzuzeigen. **Beispiel:** ```vb.net TreeView1.SelectedImageIndex = 1 ``` Das ändert das Bild der ausgewählten Node, aber nicht die Hintergrund- oder Textfarbe nur für die ausgewählte Node. **Individuelle Gestaltung (Workarounds):** - **Keine direkte Unterstützung:** Es gibt keine eingebaute Möglichkeit, nur das Aussehen der ausgewählten Node (z.B. Hintergrundfarbe, Schriftart) zu ändern. - **Möglicher Workaround:** Du könntest versuchen, die TreeView-API mit Subclassing und OwnerDraw über Windows-API zu erweitern, aber das ist sehr aufwändig und fehleranfällig, besonders in .NET 1.1. **Ab .NET 2.0:** Ab .NET 2.0 gibt es die Eigenschaft `DrawMode` und das Ereignis `DrawNode`, mit denen du das Aussehen jeder Node individuell gestalten kannst. In .NET 1.1 (VB.NET 2003) steht das aber **nicht** zur Verfügung. **Fazit:** In VB.NET 2003 kannst du das Aussehen der `SelectedNode` im TreeView nur sehr eingeschränkt beeinflussen (hauptsächlich das Icon). Für weitergehende Anpassungen wäre ein Upgrade auf eine neuere .NET-Version notwendig. **Weitere Infos:** - [TreeView-Klasse (Microsoft Docs)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treeview?view=netframework-1.1) - [TreeView.DrawNode-Ereignis (ab .NET 2.0)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treeview.drawnode?view=netframework-4.8.1)

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 im TreeView-Steuerelement nur den ersten Unterknoten (z.B. `Node1`) und dessen Unterknoten zu öffnen (expandieren), während alle anderen Knoten geschlossen bleiben, kannst... [mehr]

Accepted Answer

Um in VB.NET 2003 im TreeView-Steuerelement nur den ersten Unterknoten (z.B. `Node1`) und dessen Unterknoten zu öffnen (expandieren), während alle anderen Knoten geschlossen bleiben, kannst du wie folgt vorgehen: Angenommen, dein TreeView heißt `TreeView1` und hat folgende Struktur: - Root - Node1 - SubNode1 - SubNode2 - Node2 - SubNode3 - Node3 - SubNode4 **Vorgehen:** 1. Zuerst alle Knoten einklappen (`Collapse`). 2. Dann nur den gewünschten Knoten und dessen Unterknoten ausklappen (`Expand`). **Beispielcode:** ```vb ' Alle Knoten einklappen TreeView1.CollapseAll() ' Nur den ersten Unterknoten und dessen Unterknoten ausklappen If TreeView1.Nodes.Count > 0 Then Dim firstNode As TreeNode = TreeView1.Nodes(0) firstNode.Expand() ' Optional: Auch alle Unterknoten von firstNode expandieren For Each childNode As TreeNode In firstNode.Nodes childNode.Expand() Next End If ``` **Hinweise:** - `TreeView1.Nodes(0)` ist der erste Knoten auf der obersten Ebene. - Mit `.Expand()` wird der Knoten geöffnet. - Mit `.CollapseAll()` werden alle Knoten geschlossen. **Weitere Informationen:** - [TreeView-Klasse (Microsoft-Dokumentation)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treeview) Falls die Knoten anders benannt oder verschachtelt sind, passe den Zugriff entsprechend an.

Accepted Answer

Um in VB.NET 2003 im TreeView-Steuerelement nur den ersten Unterknoten (z.B. `Node1`) und dessen Unterknoten anzeigen, kannst die anderen Hauptknoten (z.B. `Node2`, `Node3`) entweder entfernen oder au... [mehr]

Accepted Answer

Um in VB.NET 2003 im TreeView-Steuerelement nur den ersten Unterknoten (z.B. `Node1`) und dessen Unterknoten anzeigen, kannst die anderen Hauptknoten (z.B. `Node2`, `Node3`) entweder entfernen oder ausblenden. Da das TreeView-Steuerelement kein direktes "Ausblenden" unterstützt, entfernst du am besten die nicht gewünschten Knoten. Angenommen, dein TreeView heißt `TreeView1` und die Hauptknoten sind bereits hinzugefügt, könntest du so vorgehen: ```vb.net ' Entfernt alle Knoten außer dem ersten Dim i As Integer For i = TreeView1.Nodes.Count - 1 To 1 Step -1 TreeView1.Nodes.RemoveAt(i) Next ``` **Erklärung:** - Die Schleife läuft rückwärts durch die Hauptknoten (außer dem ersten, Index 0). - Alle Knoten mit Index > 0 werden entfernt. - Übrig bleibt nur der erste Hauptknoten und dessen Unterknoten. **Hinweis:** Wenn du die anderen Knoten später wieder anzeigen möchtest, solltest du sie vorher sichern (z.B. in einer Variablen oder einer eigenen TreeNodeCollection), da sie durch `RemoveAt` gelöscht werden. **Weitere Infos:** - [TreeView-Klasse (Microsoft-Dokumentation)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treeview) - [TreeNodeCollection.RemoveAt-Methode](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treenodecollection.removeat) Falls du die Knoten dynamisch wieder einfügen möchtest, musst du sie vorher zwischenspeichern.

Accepted Answer

In VB.NET 2003 kannst du den ersten Unterknoten des ersten Unterknotens eines TreeView wie folgt anzeigen (zum Beispiel in einer MessageBox): ```vb ' Angenommen, dein TreeView heißt "... [mehr]

Accepted Answer

In VB.NET 2003 kannst du den ersten Unterknoten des ersten Unterknotens eines TreeView wie folgt anzeigen (zum Beispiel in einer MessageBox): ```vb ' Angenommen, dein TreeView heißt "TreeView1" Dim ersterKnoten As TreeNode = TreeView1.Nodes(0) If ersterKnoten.Nodes.Count > 0 Then Dim ersterUnterknoten As TreeNode = ersterKnoten.Nodes(0) If ersterUnterknoten.Nodes.Count > 0 Then Dim ersterUnterUnterknoten As TreeNode = ersterUnterknoten.Nodes(0) MessageBox.Show(ersterUnterUnterknoten.Text) Else MessageBox.Show("Der erste Unterknoten hat keine Unterknoten.") End If Else MessageBox.Show("Der erste Knoten hat keine Unterknoten.") End If ``` Dieser Code prüft, ob die jeweiligen Knoten existieren, bevor auf sie zugegriffen wird, um Fehler zu vermeiden.

Accepted Answer

Um in VB.NET 2003 festzustellen, ob ein `TreeView`-Steuerelement gefüllt ist, prüfst du, ob das `Nodes`-Eigenschaft des TreeViews mindestens einen Knoten enthält. Das machst du so: ```... [mehr]

Accepted Answer

Um in VB.NET 2003 festzustellen, ob ein `TreeView`-Steuerelement gefüllt ist, prüfst du, ob das `Nodes`-Eigenschaft des TreeViews mindestens einen Knoten enthält. Das machst du so: ```vb.net If TreeView1.Nodes.Count > 0 Then ' TreeView ist gefüllt Else ' TreeView ist leer End If ``` `TreeView1` ist dabei der Name deines TreeView-Steuerelements. Die Eigenschaft `Nodes.Count` gibt die Anzahl der obersten Knoten zurück. Wenn du auch prüfen möchtest, ob untergeordnete Knoten vorhanden sind, musst du ggf. rekursiv durch die Knoten gehen, aber in den meisten Fällen reicht die Prüfung auf `Nodes.Count`.

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

Um in VB.NET 2003 einen TreeNode im TreeView mit der rechten Maustaste auszuwählen, musst du das MouseDown-Event des TreeView-Steuerelements verwenden. Dort prüfst du, ob die rechte Maustast... [mehr]

Accepted Answer

Um in VB.NET 2003 einen TreeNode im TreeView mit der rechten Maustaste auszuwählen, musst du das MouseDown-Event des TreeView-Steuerelements verwenden. Dort prüfst du, ob die rechte Maustaste gedrückt wurde, und selektierst dann den Knoten unter dem Mauszeiger. Hier ein Beispiel: ```vb.net Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown If e.Button = MouseButtons.Right Then Dim node As TreeNode = TreeView1.GetNodeAt(e.X, e.Y) If Not node Is Nothing Then TreeView1.SelectedNode = node End If End If End Sub ``` **Erklärung:** - `TreeView1.GetNodeAt(e.X, e.Y)` gibt den Knoten an der Position des Mausklicks zurück. - Wenn ein Knoten gefunden wurde, wird er mit `TreeView1.SelectedNode = node` ausgewählt. So wird beim Rechtsklick der entsprechende Knoten selektiert.

Accepted Answer

Um in VB.NET 2003 bestimmte Einträge (Nodes) in einer TreeView zu finden und zu selektieren, gehst du typischerweise so vor: 1. **Durchlaufen der TreeView-Nodes** Da die TreeView eine hiera... [mehr]

Accepted Answer

Um in VB.NET 2003 bestimmte Einträge (Nodes) in einer TreeView zu finden und zu selektieren, gehst du typischerweise so vor: 1. **Durchlaufen der TreeView-Nodes** Da die TreeView eine hierarchische Struktur hat, musst du die Nodes rekursiv durchsuchen. 2. **Vergleichen des gewünschten Kriteriums** Zum Beispiel: Vergleich des Textes (`Node.Text`) oder eines anderen Wertes. 3. **Selektieren des gefundenen Nodes** Mit `TreeView.SelectedNode = gefundenerNode`. **Beispiel: Suche nach einem Node mit bestimmtem Text und selektiere ihn** ```vb ' Rekursive Funktion zum Suchen eines Nodes mit bestimmtem Text Private Function FindNodeByText(ByVal nodes As TreeNodeCollection, ByVal searchText As String) As TreeNode For Each node As TreeNode In nodes If node.Text = searchText Then Return node End If Dim found As TreeNode = FindNodeByText(node.Nodes, searchText) If Not found Is Nothing Then Return found End If Next Return Nothing End Function ' Anwendung der Funktion, z.B. beim Klick auf einen Button Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim searchText As String = "GesuchterText" Dim foundNode As TreeNode = FindNodeByText(TreeView1.Nodes, searchText) If Not foundNode Is Nothing Then TreeView1.SelectedNode = foundNode foundNode.EnsureVisible() ' Scrollt zum Node Else MessageBox.Show("Eintrag nicht gefunden.") End If End Sub ``` **Hinweise:** - Ersetze `"GesuchterText"` durch den Text, nach dem du suchen möchtest. - Die Funktion durchsucht alle Ebenen der TreeView. - Für andere Kriterien (z.B. nach Tag oder Name) passe die Vergleichszeile entsprechend an. **Weitere Infos zur TreeView-Klasse:** [Microsoft Docs: TreeView-Klasse](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.treeview) Falls du nach mehreren Einträgen suchst, kannst du die Funktion anpassen, um eine Liste aller passenden Nodes zurückzugeben.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es keine direkte Möglichkeit, ein Untermenü (Submenu) eines ContextMenus per Code aufzuklappen. Das liegt daran, dass das klassische `ContextMen... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es keine direkte Möglichkeit, ein Untermenü (Submenu) eines ContextMenus per Code aufzuklappen. Das liegt daran, dass das klassische `ContextMenu`-Steuerelement (nicht `ContextMenuStrip`, das erst ab .NET 2.0 verfügbar ist) keine Methode oder Eigenschaft bietet, um ein Untermenü programmatisch zu öffnen. **Hintergrund:** Das Öffnen eines Untermenüs geschieht ausschließlich durch Benutzerinteraktion (Maus oder Tastatur). Die API bietet keine Funktion, um dies per Code zu erzwingen. **Mögliche Workarounds:** 1. **SendKeys verwenden:** Du könntest versuchen, mit `SendKeys` Tastendrücke zu simulieren, um das gewünschte Menü zu öffnen. Das ist aber sehr unzuverlässig und nicht empfehlenswert. 2. **Upgrade auf .NET 2.0 oder höher:** Ab .NET 2.0 gibt es das `ContextMenuStrip`-Steuerelement, das mehr Kontrolle bietet, aber auch dort gibt es keine direkte Methode, ein Submenü per Code zu öffnen. 3. **Eigene Menü-Logik:** Wenn du unbedingt ein Menü per Code öffnen musst, könntest du ein eigenes Menüsystem mit Panels oder anderen Steuerelementen bauen, das du per Code steuern kannst. **Fazit:** Mit den Bordmitteln von VB.NET 2003 und dem klassischen `ContextMenu` ist das gewünschte Verhalten nicht möglich. **Weitere Infos:** - [Microsoft Docs: ContextMenu-Klasse (.NET 1.1)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.contextmenu?view=netframework-1.1) - [StackOverflow: Programmatically open context menu submenu](https://stackoverflow.com/questions/1102346/programmatically-open-context-menu-submenu) Falls du ein konkretes Szenario hast, kann eventuell ein anderer Ansatz empfohlen werden.

Accepted Answer

Um in VB.NET 2003 markierten Text innerhalb einer RichTextBox per Drag & Drop mit der Maus zu verschieben, musst du einige Ereignisse und Einstellungen nutzen, da die Standard-RichTextBox dieses V... [mehr]

Accepted Answer

Um in VB.NET 2003 markierten Text innerhalb einer RichTextBox per Drag & Drop mit der Maus zu verschieben, musst du einige Ereignisse und Einstellungen nutzen, da die Standard-RichTextBox dieses Verhalten nicht automatisch unterstützt. Hier ist eine Schritt-für-Schritt-Anleitung: **1. RichTextBox-Eigenschaften setzen:** - `AllowDrop` auf `True` setzen. **2. Ereignisse programmieren:** Du benötigst mindestens die folgenden Ereignisse: - `MouseDown` - `MouseMove` - `DragEnter` - `DragDrop` **3. Beispielcode:** ```vb.net ' Modul-Variablen Private isDragging As Boolean = False Private dragStart As Integer ' MouseDown: Startpunkt merken Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseDown If e.Button = MouseButtons.Left AndAlso RichTextBox1.SelectionLength > 0 Then dragStart = RichTextBox1.GetCharIndexFromPosition(New Point(e.X, e.Y)) isDragging = True Else isDragging = False End If End Sub ' MouseMove: Drag starten Private Sub RichTextBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseMove If isDragging AndAlso e.Button = MouseButtons.Left Then If RichTextBox1.SelectionLength > 0 Then RichTextBox1.DoDragDrop(RichTextBox1.SelectedRtf, DragDropEffects.Move) isDragging = False End If End If End Sub ' DragEnter: Effekt anzeigen Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) Handles RichTextBox1.DragEnter If e.Data.GetDataPresent(DataFormats.Rtf) Then e.Effect = DragDropEffects.Move Else e.Effect = DragDropEffects.None End If End Sub ' DragDrop: Text verschieben Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles RichTextBox1.DragDrop Dim dropPoint As Point = RichTextBox1.PointToClient(New Point(e.X, e.Y)) Dim dropIndex As Integer = RichTextBox1.GetCharIndexFromPosition(dropPoint) ' Text entfernen und an neuer Stelle einfügen Dim selectedRtf As String = RichTextBox1.SelectedRtf Dim selectionStart As Integer = RichTextBox1.SelectionStart Dim selectionLength As Integer = RichTextBox1.SelectionLength ' Nur verschieben, wenn nicht in sich selbst gezogen If dropIndex < selectionStart OrElse dropIndex > selectionStart + selectionLength Then RichTextBox1.SelectedRtf = "" RichTextBox1.SelectionStart = dropIndex RichTextBox1.SelectedRtf = selectedRtf End If End Sub ``` **Hinweise:** - Der Code verschiebt den markierten Text an die neue Position. - Es wird geprüft, dass der Text nicht in sich selbst verschoben wird. - Die Formatierung bleibt erhalten, da mit `SelectedRtf` gearbeitet wird. **Weitere Infos:** - [Microsoft Dokumentation zu RichTextBox](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.richtextbox?view=netframework-1.1) Damit kannst du markierten Text per Drag & Drop innerhalb einer RichTextBox verschieben.