| |
| |
|
E.T. | Gegeben: Explorer-Fenster mit vielen Datei'n (Bilder in Miniaturansicht). Dieses Fenster wird durch XProfan-Programm geöffnet. D&D vom Explorer-Fenster zum XProfan-Fenster funktioniert erst einmal (mit einzelner Datei)
Jetzt möchte ich aber im Explorer-Fenster mehrere Datein per
<Strg> + <klick> durcheinander , d.h. nicht in der Reihenfolge, wie diese im Explorer-Fenster stehen, markieren und dann die mark. Datein per D&D dem XProfan-Prog-Fenster übergeben. Funzt auch, nur kommen im XProfan-Fenster die Datein nicht in der Reihenfolge an, wie ich diese im Explorer-Fenster ausgewählt habe (also durcheinander).
Jetzt sollte man ja eigentlich im XProfan-Programm die eingegangenen Datein in der Reihenfolge abarbeiten (können), wie diese im anderen Fenster der Reihe nach ausgewählt wurden.
Genau daran scheitere ich zur Zeit  |
|
| |
| XProfan X2Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 24.04.2012 ▲ |
|
| |
|
|
 | Öhm, postest fix den betreffenden Quelltext?  |
|
| |
| |
| |
|
|
Thomas
Freier | Doch noch ein Code gefunden
'Drag und Drop mit dem Explorer realisieren
$H windows.ph
$H structs.ph
$H messages.ph
$H shellapi.ph
$H commctrl.ph
$I PROFALT.INC
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Def Sleep(1) !"KERNEL32","Sleep"
Declare ende%,i%,Anzahl&,PFilename#,FileName$
Dim PFileName#,461
Cls
WindowTitle "Drag&Drop-Beispiel - Beenden mit rechtem Mausklick"
DragAcceptFiles(%hwnd,1)
UserMessages ~WM_DROPFILES'563
WhileNot ende%
WaitInput
IF %UMessage =~WM_DROPFILES
anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,461);
i%=0
While Lt(i%,anzahl&)
DragQueryFile(&WParam,i%,PFilename#,261);
Let filename$=String$(PFilename#,0)' Vorsicht, max 255 Zeichen
AddString filename$
Inc i%
Wend
DragFinish(&WParam);
Listbox$(Add$(Str$(anzahl&)," Drag&Drop-Datei(en) empfangen"),2)
Clearlist
Elseif Equ(%mousekey,2)
Let ende%=1
EndIf
Wend
Dispose PFileName#
DragAcceptFiles(%hwnd,0)
End
|
|
| |
| |
| |
|
|
Thomas
Freier | Ich sollte wohl etwas genauer hinschauen.
Funzt auch, nur kommen im XProfan-Fenster die Datein nicht in der Reihenfolge an, wie ich diese im Explorer-Fenster ausgewählt habe (also durcheinander).
Die Reihenfolge deiner Auswahl wird wohl nirgens gespeichert. Bei einer nachfolgenden Aktion wird bestimmt nur nach markierten Zeilen gesucht. |
|
| |
| |
| |
|
|
E.T. | Werde wohl oder übel das Explorer-Fenster nicht dafür nutzen können, da sich dieser die Reihenfolge nicht merkt 
Muss halt mal nach einer Möglichkeit schauen, dieses Ausgangsfenster im eigenen Progg zu realisieren. Dann sollte das "merken" der Auswahl-Reihenfolge machbar sein. |
|
| |
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 28.04.2012 ▲ |
|
| |
|
(546)
Deutsch
English
Français
Español
Italia