drag and drop mit pb 4.10 b4

[jpd]

Hi @All,

hat schonmal jemand drag and drop mit PB 4.10 B4
getestet?

hat jemand ein beispiel?

Danke
jpd

[Kiffi]

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

[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

[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

[jpd]

ja!


super das brauche ich!


Danke und Schönes Wochenende!

jpd