Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.03.2007 14:45:39 |
abrissbirne |
|
|
|
19.03.2007 16:00:22 |
abrissbirne |
|
|
Aw:Aw:Drag and Drop Funktion |
19.03.2007 16:16:20 |
abrissbirne |
|
|
|
26.03.2007 10:08:01 |
Rasta |
|
|
Von:
abrissbirne |
Datum:
19.03.2007 16:16:20 |
Views:
1106 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Drag and Drop Funktion |
Habs doch hinbekommen. Für alle die das selbe Problem haben:
Private Sub ListBox2_BeforeDragOver(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal DragState As Long, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Cancel = True
Effect = 1
End Sub
Private Sub ListBox2_BeforeDropOrPaste(ByVal _
Cancel As MSForms.ReturnBoolean, _
ByVal Action As Long, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal Effect As _
MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
ListBox2.AddItem Data.GetText
End Sub
Private Sub ListBox1_MouseMove(ByVal Button As _
Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Dim MyDataObject As DataObject
If Button = 1 Then
Set MyDataObject = New DataObject
Dim Effect As Integer
MyDataObject.SetText ListBox1.Value
Effect = MyDataObject.StartDrag
End If
End Sub
So funktionierts!
abrissbirne schrieb am 19.03.2007 16:00:22:
abrissbirne schrieb am 19.03.2007 14:45:39:
Hallo,
ich möchte einer ListBox ein DragandDrop Ereignis zuweisen und komme mit der Erklärung nicht wirklich hin.
Auszug:
Private Sub object_BeforeDragOver( ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As fmShiftState)
Kann mir jemand weiterhelfen wie ich aus einer Liste welche in der ListBox ist einen Eintrag per Drag and Drop in eine andere hinzufügen kann?
Danke
Muss meine Frage anders Stellen. Mit dem Drag and Drop Ereigniss klappt. Nun habe ich aber mehrere ListBoxen und wenn ich nun aus einer ListBox ein Objekt rausziehe wird es immer in die selbe Listbox eingefügt. wie bekomme ich es hin, dass es in die Listbox eingefügt wird über der auch meine Mous ist?
Dankeschön |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.03.2007 14:45:39 |
abrissbirne |
|
|
|
19.03.2007 16:00:22 |
abrissbirne |
|
|
Aw:Aw:Drag and Drop Funktion |
19.03.2007 16:16:20 |
abrissbirne |
|
|
|
26.03.2007 10:08:01 |
Rasta |
|
|