06. januar 2004 - 09:55
Der er
3 kommentarer og
1 løsning
ListBox vil ikke "modtage" BeforeDropOrPaste event
Jeg er lidt fortvivlet, jeg sidder og laver en Form i VBA der har et TreeView og et pat listboxe, her ville jeg gerne dragge fra treeview'et over i listboxene. Men det virker ikke :-( jeg kan får list boksene til at reagere på BeforeDragOver men ikke den hvor jeg slipper elementet BeforeDropOrPaste.... Er det en begrænsning i VBA? Det virker fint til en Txt boks.
Det er som om den ikke er "Drag Drop" enabled! jeg kan dog ikke finde hvor man skulle enable den... Hvis der er nogen der har en forklaring/løsning ville jeg blive meget glad :-D
Mvh
Anders
07. januar 2004 - 10:19
#1
Virker det ikke hvis du bruger DragDrop-hændelsen? Hvis ikke, så husk at tjekke at dine drag-indstillinger er sat korrekt for både TreeView og LixBox-komponenterne...
07. januar 2004 - 10:38
#2
Hvad er korretk? Den virker som sagt jo fra treeview til textbox, evetuelt hvor kan jeg pille yderligere i indstillingerne ved Listbox, jeg ser umidelbart ikke nogen indstillinger i "panelet" eller under object browser, Og listbox har kun to funktioner til drag drop BeforeBragOver og BeforeDropOrPaste.. mystisk forbi i nedestående kode virker den første metode/funktion men ikke den næste....
<VB 6 kode>
Private Sub txtQuery_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Action As MSForms.fmAction, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Debug.Print "Forsøg på Drop i txtQuery"
End Sub
Private Sub lstColumns_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Action As MSForms.fmAction, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Debug.Print "Forsøg på Drop i lstColumns"
End Sub
Mvh
Anders
07. januar 2004 - 10:54
#3
Jeg har lige tjekket begge komponenters drag-funktionallitet, men har ikke fundet nogen løsning på dit problem. Det lader til at der kun kan trækkes OLE-objekter over i ListBox'en, men alligevel har den hændelsen DragDrop og DragOver (altså ikke OLE). Jeg har forsøgt at overføre data vha. OLE-drag, men den trække metode er Treeview ikke kompatibel med (dvs. den kan kun modtage).
