Drag and Drop in einer Text an beliebiger Stelle

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von wsk1000.

    Drag and Drop in einer Text an beliebiger Stelle

    Hallo
    ich habe da mal so eine Frage...
    und zwar. Ich habe einen Code für drag and drop. Doch wenn ich das prog dann ausführe und Dan droppe wird der Text nur zur Textbox hinzugefügt, und man hat nicht irgendwie die Möglichkeit den curser zu verschieben. Ich weis glaube ich auch an was es liegt, und zwar an Zeile14.

    Code anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    2. Button1.DoDragDrop("der Text...", DragDropEffects.Copy Or DragDropEffects.Move)
    3. End Sub
    5. Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
    6. If (e.Data.GetDataPresent(DataFormats.Text)) Then
    7. e.Effect = DragDropEffects.Copy
    8. Else
    9. e.Effect = DragDropEffects.None
    10. End If
    11. End Sub
    13. Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
    14. TextBox1.Text += e.Data.GetData(DataFormats.Text).ToString
    15. End Sub

    (Code habe ich von Mdsn)

    Upps. Sorry habe mich wahrscheinlich nicht genau ausgedrückt...

    ich will (dass kennst du wahrscheinlich von anderen Programmen), dass wenn man zieht und wenn man über der Textbox ist, dass man den curser sozusagen verschieben kann und zwar zu der Stelle, wo man gerne den Text hinhaben will.

    Ahh verstehe,
    das hier müsste funktionieren:

    vb.net Code

    VB.NET-Quellcode

    1. Private Sub TextBox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragOver
    2. If e.Data.GetDataPresent(DataFormats.StringFormat) Then
    4. e.Effect = DragDropEffects.Copy
    6. 'Setzt die Cursorposition
    7. TextBox1.Select(TextBoxCursorPos(TextBox1, e.X, e.Y), 0)
    8. Else
    10. e.Effect = DragDropEffects.None
    11. End If
    12. End Sub
    14. ' Dropftunktion
    15. Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
    16. TextBox1.SelectedText = e.Data.GetData(DataFormats.StringFormat)
    17. End Sub
    19. Private Const EM_CHARFROMPOS As Int32 = &HD7
    20. Private Structure POINTAPI
    21. Public X As Integer
    22. Public Y As Integer
    23. End Structure
    25. Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As _
    26. Int32, ByVal wParam As Int32, ByVal lParam As Int32) As _
    27. Long
    29. ' setzt den Text hinter den Cursor
    30. Public Function TextBoxCursorPos(ByVal txt As TextBox, ByVal X As Single, ByVal Y As Single) As Long
    31. ' konvertiert die coordinaten
    32. Dim pt As Point = TextBox1.PointToClient(New Point(X, Y))
    34. TextBoxCursorPos = SendMessageLong(txt.Handle, EM_CHARFROMPOS, 0&, CLng(pt.X + pt.Y * &H10000)) And &HFFFF&
    35. End Function


    Grüße

Facebook
Telefonspende