Thema Datum  Von Nutzer Rating
Antwort
19.03.2007 14:45:39 abrissbirne
NotSolved
19.03.2007 16:00:22 abrissbirne
NotSolved
Rot Aw:Aw:Drag and Drop Funktion
 19.03.2007 16:16:20 abrissbirne
NotSolved
26.03.2007 10:08:01 Rasta
NotSolved

Ansicht des Beitrags:
Von:
abrissbirne		 Datum:
19.03.2007 16:16:20		 Views:
1103		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
19.03.2007 16:00:22 abrissbirne
NotSolved
Rot Aw:Aw:Drag and Drop Funktion
 19.03.2007 16:16:20 abrissbirne
NotSolved
26.03.2007 10:08:01 Rasta
NotSolved