Italia
Fonte/ Codesnippets

Progressbar Statusbar

 

Jac
de
Lad
Öhhm, hat jemand ne Idee wie ich in einer Statusbar  eine Progressbar  erstellen kann??

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
23.08.2006  
 



Hallo Jacob...

So in etwa???
KompilierenMarkierenSeparieren
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

 
25.08.2006  
 




Michael
Wodrich
Funktioniert prima das Teil.

Schöne Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
25.08.2006  
 




Jörg
Sellmeyer
Sehr schön aber warum nicht direkt auf der Statuszeile erstellen anstatt mit SetParent verschieben?

Saluto
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
25.08.2006  
 



Geht auch, habs nur grad schnell von VB übersetzt...
 
25.08.2006  
 




Jac
de
Lad
Danke, funktioniert! Ja, ohne SetParent wärs eleganter, aber ist doch am Ende egal, oder???

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...

 
25.08.2006  
 




Jac
de
Lad
Kann ich die Progressbar auch in un Zelle 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
Ich schätze mal, das geht wenn, dann höchstens mit Franks Dll. Damit kann man zumindest Edits und Buttons in das LV zaubern, warum also keine Statusbar.
Saluto
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
30.08.2006  
 




Jac
de
Lad
Arrgh! Die geniale DLL sei verflucht!!! Ich kauf sie mir ja schon bald, da muss ich eben mal eine Woche nix essen!)
 
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,
Und ausserdem hat uns IF schon einen Code per die Listview.dll gebastelt wo
ganz viele Progressbalken hin und her sausen das einem das Herz aufgeht.

tschö
 
XProfan X3, X4ß, Win 10.1
31.08.2006  
 




KompilierenMarkierenSeparieren
Source 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

 
16.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

8.542 Views

Untitledvor 0 min.
H.Brill25.03.2023
Axel Berse16.07.2021
RudiB.26.04.2020
Normann Strübli31.03.2020
Di più...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie