Tweet
Hallo miteinander!
Ich habe viele VB6 Projekte, deren Anwendungen auf Win7 nicht richtig laufen. Und das Konvertieren nach Visual Studio Express 2008 geht nicht für Drag&Drop und OLE.
Man muss den Code neu schreiben. Ohne Hilfe komme ich nicht weiter.
Links zwei PictureBox mit Rechts zwei leere PictureBox
.jpg übereinander: übereinander:
picKuh picKuhstall
picPferd picPferdestall
DragDrop funktioniert gut beim waagrechten Ziehen
(picKuh nach picKuhstall).
Ziehe ich übers Kreuz (picPferd nach picKuhstall),
merkt picKuhstall nicht, woher gezogen worden ist.
Das sollte jedoch als Fehler zählen.
Private Sub picKuhstall_DragDrop(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles picKuh.DragDrop, picKuhstall.DragDrop
Dim pic As PictureBox = CType(sender, PictureBox)
pic.Image = CType(e.Data.GetData(DataFormats.Bitmap), Bitmap)
If sender Is picKuh Then
picKuhstall.Image = Nothing
Else
picKuh.Image = Nothing
picKuhstall.Enabled = False
End If
’’’ Das Pferd gehört nicht in den Kuhstall.
If sender Is picPferd Then picKuhstall.Image = Nothing
End Sub
Private Sub picPferdestall_DragDrop(ByVal sender As System.Object, _
'…………………… entsprechend hier oben
End Sub
Code aus MSDN / VS 2008 SP1 VBSamples / Winforms Samples / DragDrop,
in diesem Projekt nur Example 3: Drag-and-Drop (vereinfacht und modifiziert).
Vielen Dank für Hilfe!
Gruß
Peter
Ich habe viele VB6 Projekte, deren Anwendungen auf Win7 nicht richtig laufen. Und das Konvertieren nach Visual Studio Express 2008 geht nicht für Drag&Drop und OLE.
Man muss den Code neu schreiben. Ohne Hilfe komme ich nicht weiter.
Links zwei PictureBox mit Rechts zwei leere PictureBox
.jpg übereinander: übereinander:
picKuh picKuhstall
picPferd picPferdestall
DragDrop funktioniert gut beim waagrechten Ziehen
(picKuh nach picKuhstall).
Ziehe ich übers Kreuz (picPferd nach picKuhstall),
merkt picKuhstall nicht, woher gezogen worden ist.
Das sollte jedoch als Fehler zählen.
Private Sub picKuhstall_DragDrop(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles picKuh.DragDrop, picKuhstall.DragDrop
Dim pic As PictureBox = CType(sender, PictureBox)
pic.Image = CType(e.Data.GetData(DataFormats.Bitmap), Bitmap)
If sender Is picKuh Then
picKuhstall.Image = Nothing
Else
picKuh.Image = Nothing
picKuhstall.Enabled = False
End If
’’’ Das Pferd gehört nicht in den Kuhstall.
If sender Is picPferd Then picKuhstall.Image = Nothing
End Sub
Private Sub picPferdestall_DragDrop(ByVal sender As System.Object, _
'…………………… entsprechend hier oben
End Sub
Code aus MSDN / VS 2008 SP1 VBSamples / Winforms Samples / DragDrop,
in diesem Projekt nur Example 3: Drag-and-Drop (vereinfacht und modifiziert).
Vielen Dank für Hilfe!
Gruß
Peter
Comment