| |
| |
|
Jac
de
Lad | |
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 23.08.2006 ▲ |
|
| |
|
|
 | allô Jacob...
So dans etwa???
KompilierenMarqueSéparationDEF @CreateStatusWindow(4) ! "comctl32","CreateStatusWindow"
DEf @CreateWindowEx(12) !"USER32","CreateWindowExA"
DEF @GetSysColor(1) !"USER32","GetSysColor"
Def @SetParent(2) !"USER32","SetParent"
Declare Dialog&,Status&,Text$,Positions#
Declare CLASSNAME$,PROGRESSHandle&,HWND&,ProgressZähler&
Windowstyle 31
Windowtitle "Statusbar Test"
Window 0,0-640,440
Dim Positions#,16
Long Positions#,0=250
Long Positions#,4=500
Long Positions#,8=-1
LET Text$="Statusbartext"
Status&=@CreateStatusWindow($50000920,@ADDR(TEXT$),%HWND,1000)
@Sendmessage(Status&,$404,3,Positions#)
Dispose Positions#
@Sendmessage(Status&,$401,0,@ADDR(TEXT$))
@Sendmessage(Status&,$410,0,@ADDR(TEXT$))
LET CLASSNAME$="msctls_progress32"
LET PROGRESSHandle&=@CreateWindowEx(0,@addr(CLASSNAME$),0,$40000000,250+3,3,250-6,@Height(Status&)-6,%HWND,0,%Hinstance,0)
@SetParent(PROGRESSHandle&,Status&)
@Showwindow(PROGRESSHandle&,1)
While 0=0
Sleep 250
@sendmessage(PROGRESSHandle&,$0400+2,ProgressZähler&,0)
LET ProgressZähler&=ProgressZähler&+1
Wend
|
|
| |
| |
| |
|
|
Michael
Wodrich | Funktioniert prima cela partie.
belle Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 25.08.2006 ▲ |
|
| |
|
|
Jörg
Sellmeyer | très joli mais pourquoi pas direct sur qui Statuszeile erstellen anstatt avec SetParent Déplacer?
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 25.08.2006 ▲ |
|
| |
|
|
| | allez aussi, habs seulement grad vite de VB traduit... |
|
| |
| |
| |
|
|
Jac
de
Lad | merci, funktioniert! oui, sans SetParent wärs eleganter, mais mais est am Ende égal, ou bien???
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 25.08.2006 ▲ |
|
| |
|
|
| Jau...
 |
|
| |
| |
| |
|
|
Jac
de
Lad | peux je qui Progressbar aussi dans un cellule einer Gridbox quetschen???  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 30.08.2006 ▲ |
|
| |
|
|
Jörg
Sellmeyer | je schätze la fois, cela allez si, ensuite au maximum avec Franks Dll. avec cela peux on zumindest Edits et Buttons dans cela LV pratiquer la magie, pourquoi alors aucun Statusbar.
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 30.08.2006 ▲ |
|
| |
|
|
Jac
de
Lad | Arrgh! qui geniale DLL sei verflucht!!! je achat vous mir oui déjà bientôt, là muss je plan la fois une semaine nix manger!)  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 31.08.2006 ▲ |
|
| |
|
|
Peter
Max
Müller | Hi,
et aussi hat uns IF déjà une Code pour qui Listview.dll gebastelt wohin
entier viele Progressbalken hin et her sausen cela einem cela Herz aufgeht.  
tschö |
|
| |
| |
| |
|
|
|
KompilierenMarqueSéparationSource wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Progressbar in Statusbar
Def @Createstatuswindow(4) ! comctl32,CreateStatusWindow
Def @Createwindowex(12) !USER32,CreateWindowExA
Def @Getsyscolor(1) !USER32,GetSysColor
Def @Setparent(2) !USER32,SetParent
Declare Dialog&,Status&,Text$,Positions#
Declare Classname$,Progresshandle&,Hwnd&,Progresszähler&
Windowstyle 31
Windowtitle Statusbar Test
Window 0,0-640,440
Dim Positions#,16
Long Positions#,0=250
Long Positions#,4=500
Long Positions#,8=-1
Let Text$=Statusbartext
Status&=@Createstatuswindow($50000920,@Addr(Text$),%Hwnd,1000)
@Sendmessage(Status&,$404,3,Positions#)
Dispose Positions#
@Sendmessage(Status&,$401,0,@Addr(Text$))
@Sendmessage(Status&,$410,0,@Addr(Text$))
Let Classname$=msctls_progress32
Let Progresshandle&=@Createwindowex(0,@Addr(Classname$),0,$40000000,250+3,3,250-6,@Height(Status&)-6,%Hwnd,0,%Hinstance,0)
@Setparent(Progresshandle&,Status&)
@Showwindow(Progresshandle&,1)
While 0=0
Sleep 250
@Sendmessage(Progresshandle&,$0400+2,Progresszähler&,0)
Let Progresszähler&=Progresszähler&+1
Wend
|
|
| |
| |
| |
|
(1.030)
Deutsch
English
Français
Español
Italia