Seite 1 von 1
drag and drop mit pb 4.10 b4
Verfasst: 26.10.2007 13:28
von jpd
Hi @All,
hat schonmal jemand drag and drop mit PB 4.10 B4
getestet?
hat jemand ein beispiel?
Danke
jpd
Re: drag and drop mit pb 4.10 b4
Verfasst: 26.10.2007 14:17
von Kiffi
jpd hat geschrieben:hat jemand ein beispiel?
beispielsweise hier:
http://www.purebasic.fr/german/viewtopi ... 744#157744
(hätte man aber auch mit der Board-Suche gefunden)
Oder suchst Du was spezielles?
Grüße ... Kiffi
Verfasst: 26.10.2007 16:00
von jpd
Hi Kiffi,
Danke, aber ist nicht was ich suche!
leider zu generisch beschrieben.
suche eingentlich drag and drop zwischen ein explorer fenster
und ein listview
so das ich die datei im fenster meiner anwendung ziehe und der Datei name in mein listview angezeigt wird.
Danke
jpd
Verfasst: 26.10.2007 16:18
von Kiffi
vielleicht sowas in der Art:
Code: Alles auswählen
#myWindow = 0
#myListIconGadget = 0
OpenWindow(#myWindow, #PB_Ignore, #PB_Ignore, 300, 300, "")
CreateGadgetList(WindowID(#myWindow))
ListIconGadget(#myListIconGadget, 5, 5, 290, 290, "", 100)
EnableGadgetDrop(#myListIconGadget, #PB_Drop_Files, #PB_Drag_Copy)
Repeat
WWE=WaitWindowEvent()
Select WWE
Case #PB_Event_GadgetDrop
Select EventGadget()
Case #myListIconGadget
Dateien.s = EventDropFiles()
Anzahl = CountString(Dateien, Chr(10)) + 1
For i = 1 To Anzahl
AddGadgetItem(#myListIconGadget, -1, StringField(Dateien, i, Chr(10)))
Next
EndSelect
EndSelect
Until WWE=#PB_Event_CloseWindow
Falls Du Fragen zum obigen Code hast: Nur zu!
Grüße ... Kiffi
Verfasst: 26.10.2007 18:02
von jpd
ja!
super das brauche ich!
Danke und Schönes Wochenende!
jpd