Hallo erstmal,
ich arbeite mit VisualStudio Professional 2015, Net Framework 4.6.01055 unter WIN 7 Professional
Ich teste gerade DragDrop in einer MDI Anwendung mit Child Formularen.
Das Draggen von einem Child-Formular zum anderen funktioniert problemlos, egal ob DataGridView oder Textboxen als Ziel oder Quelle dienen.
Jetzt will ich aus einem DataGridView im Child-Form auf einen Toolstrip-Butten im MDI-Form draggen.
Kann ich machen was ich will, geht nicht.... keine Reaktion.
Im Child Form wird der Drag Vorgang so gestartet:
Für die Toolstip-Butten, die das Draggen "empfangen" sollen habe ich folgende Sub's geschrieben:
Für das Toolstrip habe ich in den Eigenschaften AllowDrop auf True gestellt.
Bei den Buttons fehlt in der IDE bei den Eigenschaften "AllowDrop" (warum eigentlich?) Also habe ich sie im Shown - Ereignis auf True gesetzt:
Ich hoffe, ich habe mich verständlich ausgedrückt und jemand kann mir helfen
Vielen Dank schonmal
Gregor
ich arbeite mit VisualStudio Professional 2015, Net Framework 4.6.01055 unter WIN 7 Professional
Ich teste gerade DragDrop in einer MDI Anwendung mit Child Formularen.
Das Draggen von einem Child-Formular zum anderen funktioniert problemlos, egal ob DataGridView oder Textboxen als Ziel oder Quelle dienen.
Jetzt will ich aus einem DataGridView im Child-Form auf einen Toolstrip-Butten im MDI-Form draggen.
Kann ich machen was ich will, geht nicht.... keine Reaktion.
Im Child Form wird der Drag Vorgang so gestartet:
Für die Toolstip-Butten, die das Draggen "empfangen" sollen habe ich folgende Sub's geschrieben:
VB.NET-Quellcode
- Private Sub ToolStripButton5_DragEnter(sender As Object, e As DragEventArgs) Handles ToolStripButton5.DragEnter
- Dim txt As String = CType(e.Data.GetData(GetType(System.String)), System.String)
- If txt <> "Quelle" Then
- e.Effect = DragDropEffects.None
- Else
- e.Effect = DragDropEffects.All
- End If
- 'Diese Sub wird aufgerufen und auch der txt ausgewertet. Aber der
- 'Mauscursor bleibt auf "Verboten" obwohl "e.Effect =
- 'DragDropEffects.All" ausgeführt wird.
- End Sub
VB.NET-Quellcode
- Private Sub ToolStripButton5_DragDrop(sender As Object, e As DragEventArgs) Handles ToolStripButton5.DragDrop
- Dim txt As String = CType(e.Data.GetData(GetType(System.String)), System.String)
- If txt <> "Quelle" Then
- e.Effect = DragDropEffects.None
- else
- e.Effect = DragDropEffects.All
- end if
- 'Diese Sub wird nicht aufgerufen
- End Sub
Für das Toolstrip habe ich in den Eigenschaften AllowDrop auf True gestellt.
Bei den Buttons fehlt in der IDE bei den Eigenschaften "AllowDrop" (warum eigentlich?) Also habe ich sie im Shown - Ereignis auf True gesetzt:
Ich hoffe, ich habe mich verständlich ausgedrückt und jemand kann mir helfen
Vielen Dank schonmal
Gregor