1 Frage zu Richtextbox

Um in VB.NET 2003 das Markieren und Verschieben von Textblöcken innerhalb derselben `RichTextBox` zu ermöglichen, kannst du folgende grundlegende Vorgehensweise nutzen: 1. **Text markieren:** Das Markieren von Text ist in der `RichTextBox` bereits integriert. Der Benutzer kann mit der Maus oder Tastatur Text markieren. 2. **Text verschieben:** Das Verschieben (Drag & Drop) von markiertem Text innerhalb derselben `RichTextBox` ist nicht standardmäßig aktiviert, kann aber mit ein wenig Code nachgerüstet werden. Hier ein Beispiel, wie du Drag & Drop für Text innerhalb einer `RichTextBox` in VB.NET 2003 implementieren kannst: ```vb ' Im Form-Designer: RichTextBox1.AllowDrop = True setzen Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown If RichTextBox1.SelectionLength > 0 Then ' Starte Drag & Drop mit dem markierten Text RichTextBox1.DoDragDrop(RichTextBox1.SelectedText, DragDropEffects.Move) End If End Sub Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter If e.Data.GetDataPresent(DataFormats.Text) Then e.Effect = DragDropEffects.Move Else e.Effect = DragDropEffects.None End If End Sub Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop Dim point As Point = RichTextBox1.PointToClient(New Point(e.X, e.Y)) Dim index As Integer = RichTextBox1.GetCharIndexFromPosition(point) Dim draggedText As String = e.Data.GetData(DataFormats.Text).ToString() ' Lösche den alten Text (nur wenn Move) If e.Effect = DragDropEffects.Move Then Dim selStart As Integer = RichTextBox1.SelectionStart RichTextBox1.Text = RichTextBox1.Text.Remove(selStart, RichTextBox1.SelectionLength) If index > selStart Then index -= RichTextBox1.SelectionLength End If End If ' Füge den Text an der neuen Position ein RichTextBox1.SelectionStart = index RichTextBox1.SelectedText = draggedText End Sub ``` **Hinweise:** - Setze im Designer die Eigenschaft `AllowDrop` der `RichTextBox` auf `True`. - Der Code behandelt das Markieren, Ziehen und Ablegen von Text innerhalb derselben `RichTextBox`. - Es wird nur der markierte Text verschoben, nicht kopiert. - Die Position, an der der Text eingefügt wird, ist die Stelle, an der die Maus beim Loslassen ist. **Weitere Informationen:** - [Microsoft Dokumentation zu Drag & Drop in Windows Forms](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/drag-and-drop-operations-and-clipboard-support?view=netframeworkdesktop-4.8) - [RichTextBox-Klasse (Microsoft)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.richtextbox?view=netframework-4.8) Damit kannst du das gewünschte Verhalten in deiner Anwendung umsetzen.