Re: Profan² und Drag&Drop


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

Von Thomas Hölzer am 24 März, 1998 um 23:42:09:

Antwort auf: Profan² und Drag&Drop von Sven Schmidts am 24 März, 1998 um 17:34:47:

Ja, es geht, und ist gar nicht so schwierig.
Anbei ein komplettes Beispiellisting
MfG
Thomas
' Drag&Drop Beispiel mit Profan 6.0 (32 Bit)

' (C) 1998 Thomas Hölzer, thoelzer@cww.de
' http://prfellow.home.pages.de
' http://members.freepage.de/thoelzer/homepage.htm

DEF DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
DEF DragFinish(1) !"SHELL32","DragFinish"
DEF DragQueryFile(4) !"SHELL32","DragQueryFileA"
declare ende%,i%,Anzahl&,PFilenames#,FileName$,Max_Path%

Dim PFileNames#,261 ' Max_Path +1, Vorsicht bei Profan-Strings (nur 255 Zeichen!)

Window 300,100-500,400
DragAcceptFiles(%hwnd,1)

WhileNot ende%
GetMessage
IF equ(%message,563)
let anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilenames#,261);
let i%=0

While lt(i%,anzahl&)
DragQueryFile(&WParam,i%, PFilenames#,261);
Let filename$=@String$(PFilenames#,0) ' Vorsicht, max 255 Zeichen
AddString filename$
Inc i%
Wend

DragFinish(&WParam);
Listbox$(@add$(str$(anzahl&)," Drag&Drop-Datei(en)"),2)
Clearlist
Elseif Equ(%mousekey,2)
let ende%=1
EndIf
Wend

Dispose PFileNames#
DragAcceptFiles(%hwnd,0)
End





Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]