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
(Code habe ich von Mdsn)
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.
VB.NET-Quellcode
- Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
- Button1.DoDragDrop("der Text...", DragDropEffects.Copy Or DragDropEffects.Move)
- End Sub
- Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
- If (e.Data.GetDataPresent(DataFormats.Text)) Then
- e.Effect = DragDropEffects.Copy
- Else
- e.Effect = DragDropEffects.None
- End If
- End Sub
- Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
- TextBox1.Text += e.Data.GetData(DataFormats.Text).ToString
- End Sub
(Code habe ich von Mdsn)