Drag & Drop
Verfasst: 16.04.2013 13:24
Hallo Allerseits.
Um mein Desktop mal ein wenig aufzuräumen,
habe ich mir eine einfache Programmleiste gebastelt,
in die ich Dateien per Drag & Drop "verschieben" kann.
Funktioniert soweit auch wunderbar.
Nun möchte ich aber auch den "Rückwärtsgang" einlegen können.
Soll heisen:
Ich möchte von meinem Prg einen Link zu einer Datei z.B. auf den Desktop legen können.
Dazu wollte ich die Funktion "DragFiles(file$,#PB_Drag_Link)" benutzen.
Auf die Flags ",#PB_Drag_Move" , "",#PB_Drag_Copy" reagiert Window tatsächlich mit den entsprechenden Funktionen.
Die Prgs werden auf z.B. den Desktop kopiert bzw. verschoben.
Aber ich möchte ja nur einen Link zu dem Prg setzen.
Also "#PB_Drag_Link". Aber da macht Window nicht mit.
Könnt Ihr mir bitte weiter helfen?
Danke: Bernd
Um mein Desktop mal ein wenig aufzuräumen,
habe ich mir eine einfache Programmleiste gebastelt,
in die ich Dateien per Drag & Drop "verschieben" kann.
Funktioniert soweit auch wunderbar.
Nun möchte ich aber auch den "Rückwärtsgang" einlegen können.
Soll heisen:
Ich möchte von meinem Prg einen Link zu einer Datei z.B. auf den Desktop legen können.
Dazu wollte ich die Funktion "DragFiles(file$,#PB_Drag_Link)" benutzen.
Auf die Flags ",#PB_Drag_Move" , "",#PB_Drag_Copy" reagiert Window tatsächlich mit den entsprechenden Funktionen.
Die Prgs werden auf z.B. den Desktop kopiert bzw. verschoben.
Aber ich möchte ja nur einen Link zu dem Prg setzen.
Also "#PB_Drag_Link". Aber da macht Window nicht mit.
Könnt Ihr mir bitte weiter helfen?
Danke: Bernd
Code: Alles auswählen
Enumeration
#HWnd
EndEnumeration
Enumeration
#LiGadg
EndEnumeration
Flag = #PB_Window_SystemMenu
Flag | #PB_Window_ScreenCentered
OpenWindow(#HWnd, 0, 0, 200,300,"Fenster", Flag)
ListIconGadget(#LiGadg,0,0,WindowWidth(#HWnd),WindowHeight(#HWnd),"Datei",WindowWidth(#HWnd))
AddGadgetItem(#LiGadg,-1,"C:\Windows\System32\notpad.exe")
AddGadgetItem(#LiGadg,-1,"C:\Windows\System32\calc.exe")
Repeat
Select WaitWindowEvent()
Case #WM_CLOSE: ende=1
Case #PB_Event_Gadget
Select EventGadget()
Case #LiGadg
If EventType()=#PB_EventType_DragStart
file$=GetGadgetItemText(#LiGadg,GetGadgetState(#LiGadg))
Debug file$
DragFiles(file$,#PB_Drag_Link)
EndIf
EndSelect
EndSelect
Until ende