1 Frage zu Maussteuerung

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.