| |
| |
|
Konrad
Flachs | ¡Hola,
weis alguien cómo una Drag&Drop Función programa kann?
El Función debería etwa así o.ä. aussehen:
1.) Im Profanprogramm es una z.B. una Listbox
2.) en el Dateiexplorer selektiere Yo una Expediente y ziehe ellos con
el linken Botón del ratón en mi Listbox.
3.) Der Dateiname erscheint en el Listbox
Ideen?!
Saludo
Konrad |
|
| |
| |
| |
|
|
Michael
Dell | ¡Hola,
hier neu schöne Presentación por Thomas Hölzer (PRFellow):
KompilierenMarcaSeparaciónPRFellow-Vorlage
Autor: Thomas Hölzer
Eine Drag-ListBox
Näheres siehe in win32.hlp
Def MakeDragList(1) !"COMCTL32","MakeDragList"
Def DrawInsert(3) !"COMCTL32","DrawInsert"
Declare i%,h&
SetTrueColor 1
WindowTitle "WinFellow"
Cls RGB(192,192,192)
Let h&=CreateListbox(%hwnd,"",280,48,185,200)
While lt(i%,11)
AddString(h&,str$(i%))
Inc i%
Wend
MakeDragList(h&)
While 1
GetMessage
IF GetFocus(h&)
DrawInsert(%hwnd,h&,GetCurSel(h&))
EndIf
Wend
PRFellow (Freeware) gibts de paso hier: [...]  
Salu
Michael... |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 07.04.2005 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
el Code funktioniert no bajo WindowsXP Home. |
|
| |
| |
| |
|
|
Andreas
Miethe
 |
KompilierenMarcaSeparación $H Windows.ph
$H Messages.ph
$H Shellapi.ph
Set("Fastmode",1)
Proc Newproc
Parameters Wnd&,Msg&,wParam&,lParam&
Declare Dummy$
If Msg& = ~WM_DROPFILES
Whileloop 0,~DragQueryFile(wParam&,$FFFFFFFF,0,0)-1
Dummy$ = Space$(~Max_Path)
~DragQueryFile(wParam&,&Loop,Addr(Dummy$),~Max_Path)
AddString(Listbox&,Trim$(Dummy$))
EndWhile
Return 0
Endif
Return ~CallWindowProc(OldProc&,Wnd&,Msg&,wParam&,lParam&)
EndProc
Declare Ende&,Listbox&,OldProc&
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
ListBox& = Create("Listbox",%hwnd,"",0,0,300,300)
~DragAcceptFiles(Listbox&,1)
OldProc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC,ProcAddr(NewProc,4))
Whilenot ende&
Waitinput
Wend
End
Gruss
Andreas |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 07.04.2005 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
sí, Andreas ha siempre perfekte Codes en Lager  .
Funktioniert muy bien! |
|
| |
| |
| |
|
|
Frank
Abbing | ¡Hola.
Andreas, hast du todavía una Ejemplo parat, el el umgekehrten Weg va? Um una Eintrag de el Listbox en el WindowsExplorer a kopieren? |
|
| |
| |
| |
|
|
Andreas
Miethe
| ¡Hola Franco,
tener Yo por desgracia, no.
Gruss
Andreas |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 07.04.2005 ▲ |
|
| |
|
|
Frank
Abbing | ¡Hola Andreas,
ah, todavía una neues Aufgabengebiet para Profanentwickler entdeckt... |
|
| |
| |
| |
|
(887)
Deutsch
English
Français
Español
Italia