drag & drop

14/03/2008 - 08:56 von dietrich | Report spam
Hallo

Ich möchte gern ein Label auf ein anderes ziehen um dieses damit zu löschen.
Folgendes funktioniert zur Einleitung von Drag aber nicht:

With __label
.Name = __s
.Location = New
System.Drawing.Point(CInt(__dyn.xliste.Item(__i)),
CInt(__dyn.yliste.Item(__i)))
.AutoSize = True
.ForeColor = Me._fontcolor
.AllowDrop = True 'erlaubtes dropziel
.Cursor = Cursors.Hand
.Font = __dyn.stringfont
.Text = __s
AddHandler .DragLeave, AddressOf Me.lb_DragLeave
End With
\\\


Private Sub lb_DragLeave(ByVal sender As Object, ByVal e As
System.EventArgs)
Dim __lb As Label : __lb = CType(sender, Label)
dsdvd.Text = __lb.Name

End Sub

mich wundert, warum e kein DragEventArgs sondern nur EventArgs ist, kann mir
mal jemand einen Tipp geben?

herzlichen Dank
 

Lesen sie die antworten

#1 dietrich
15/03/2008 - 12:24 | Warnen spam
danke ich habe die antwort selbst gefunden
ich habe die drag daten über dodragdrop in ein mousedown ereignis gepackt

dietrich

Ähnliche fragen