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. :oops:

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! :D


Danke und Schönes Wochenende!

jpd