ProgBar Status

Übersicht

BlitzBasic

DLLs und Userlibs

	Pummelie Betreff: ProgBar Status	Do, Aug 12, 2010 19:38 Antworten mit Zitat
So, hiermit kann man den Status der Probars ab Vista in Error (rot) und Pause (gelb) setzen: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function SetProgBarStat(progbar,stat=1) SendMessage(QueryObject(progbar,1),1024+16,stat,0) End Function Hier nicht die decls: Code: [AUSKLAPPEN] [EINKLAPPEN] .lib "user32.dll" SendMessage%(Hwnd%,Msg%,wParam%,lParam%):"SendMessageA" Parameter: progbar - Die Progbar dessen Status verändert werden soll. stat - Der neue Status, 1 (Standart) ist die grüne bewegliche, 2 ist Error, 3 ist Pause Beispiel: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Local win=CreateWindow("Prog stat",30,30,200,100,0,33) Local prog[2] prog[0]=CreateProgBar(5,5,190,25,win) prog[1]=CreateProgBar(5,35,190,25,win) prog[2]=CreateProgBar(5,65,190,25,win) UpdateProgBar(prog[0],0.2) UpdateProgBar(prog[1],0.4) UpdateProgBar(prog[2],0.6) SetProgBarStat(prog[0]) SetProgBarStat(prog[1],2) SetProgBarStat(prog[2],3) WaitKey Function SetProgBarStat(progbar,stat=1) SendMessage(QueryObject(progbar,1),1024+16,stat,0) End Function
It's done when it's done.

Pummelie

Betreff: ProgBar Status

Do, Aug 12, 2010 19:38
Antworten mit Zitat

So, hiermit kann man den Status der Probars ab Vista in Error (rot) und Pause (gelb) setzen:

BlitzBasic: [AUSKLAPPEN]

Function SetProgBarStat(progbar,stat=1)
	SendMessage(QueryObject(progbar,1),1024+16,stat,0)
End Function

Hier nicht die decls:
Code: [AUSKLAPPEN]

.lib "user32.dll"
SendMessage%(Hwnd%,Msg%,wParam%,lParam%):"SendMessageA"

Parameter:

Beispiel:
BlitzBasic: [AUSKLAPPEN]

Local win=CreateWindow("Prog stat",30,30,200,100,0,33)
Local prog[2]
prog[0]=CreateProgBar(5,5,190,25,win)
prog[1]=CreateProgBar(5,35,190,25,win)
prog[2]=CreateProgBar(5,65,190,25,win)

UpdateProgBar(prog[0],0.2)
UpdateProgBar(prog[1],0.4)
UpdateProgBar(prog[2],0.6)
SetProgBarStat(prog[0])
SetProgBarStat(prog[1],2)
SetProgBarStat(prog[2],3)
WaitKey

Function SetProgBarStat(progbar,stat=1)
	SendMessage(QueryObject(progbar,1),1024+16,stat,0)
End Function

It's done when it's done.

	KnorxThieus	Mi, Dez 28, 2011 11:24 Antworten mit Zitat
Ich verstehe das nicht. Bei mir kommt da nichts besonderes. Was meinst du eigentlich mit diesem Status und Rot und Gelb?
Version: BlitzPlus / Blitz+

KnorxThieus

Mi, Dez 28, 2011 11:24
Antworten mit Zitat

Ich verstehe das nicht. Rolling Eyes

Bei mir kommt da nichts besonderes.

Was meinst du eigentlich mit diesem Status und Rot und Gelb?

Version: BlitzPlus / Blitz+

Zuletzt bearbeitet von KnorxThieus am Mi, März 07, 2012 15:58, insgesamt einmal bearbeitet

	Pummelie	Mi, Dez 28, 2011 12:16 Antworten mit Zitat
Was bitteschön verstehst du daran nicht? Verwendest du Vista/Win 7? Hast du eine manifest Datei in Verwendung, damit Fensterstyles angezeigt werden können?
It's done when it's done.

Pummelie

Mi, Dez 28, 2011 12:16
Antworten mit Zitat

Was bitteschön verstehst du daran nicht?
Verwendest du Vista/Win 7?
Hast du eine manifest Datei in Verwendung, damit Fensterstyles angezeigt werden können?

It's done when it's done.

	ozzi789	Mi, Dez 28, 2011 12:44 Antworten mit Zitat
Danke für den Code, kanns leider nicht gerade testen da ich mit XP rumdüse
0x2B \|\| ! 0x2B C# \| C++13 \| Java 7 \| PHP 5

ozzi789

Mi, Dez 28, 2011 12:44
Antworten mit Zitat

Danke für den Code, kanns leider nicht gerade testen da ich mit XP rumdüse Very Happy

0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

	KnorxThieus Betreff: RE: @Pummelie	Mi, Dez 28, 2011 19:01 Antworten mit Zitat
@Pummelie: Tut mir leid mit den Fragen. Ich muss übermüdet gewesen sein... Aber bei mir tut sich nichts (decl ist installiert): BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function SetProgBarStat(progbar,stat=1) SendMessage(QueryObject(progbar,1),1024+16,stat,0) End Function win = CreateWindow("progbar test", 200, 200, 400, 400) pb = CreateProgBar(10, 10, 300, 40, win) UpdateProgBar pb, 0.3 SetProgBarStat(pb, 3) Delay 5000 PS: Auch wenn ich jetzt wach bin
Version: BlitzPlus / Blitz+

KnorxThieus

Betreff: RE: @Pummelie

Mi, Dez 28, 2011 19:01
Antworten mit Zitat

@Pummelie:

Tut mir leid mit den Fragen. Ich muss übermüdet gewesen sein... Embarassed

Aber bei mir tut sich nichts (decl ist installiert):
BlitzBasic: [AUSKLAPPEN]

Function SetProgBarStat(progbar,stat=1)
	SendMessage(QueryObject(progbar,1),1024+16,stat,0)
End Function

win = CreateWindow("progbar test", 200, 200, 400, 400)
pb = CreateProgBar(10, 10, 300, 40, win)
UpdateProgBar pb, 0.3
SetProgBarStat(pb, 3)
Delay 5000

PS: Auch wenn ich jetzt wach bin Wink

Version: BlitzPlus / Blitz+

Zuletzt bearbeitet von KnorxThieus am Mi, März 07, 2012 15:59, insgesamt einmal bearbeitet

	ozzi789	Mi, Jan 11, 2012 10:21 Antworten mit Zitat
Schau dir Tipp 2 an unter https://www.blitzforum.de/foru...hp?t=38157 Dann funktionierts... Oder du kompilierst die Datei und öffnest die Exe, dann funktionierts auch Direkt aus der IDE klappts nicht. Grüsse
0x2B \|\| ! 0x2B C# \| C++13 \| Java 7 \| PHP 5

ozzi789

Mi, Jan 11, 2012 10:21
Antworten mit Zitat

Schau dir Tipp 2 an unter https://www.blitzforum.de/foru...hp?t=38157
Dann funktionierts...

Oder du kompilierst die Datei und öffnest die Exe, dann funktionierts auch Wink

Direkt aus der IDE klappts nicht.

Grüsse

0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

	KnorxThieus	Mi, Jan 11, 2012 21:41 Antworten mit Zitat
danke im voraus! ...PS: Und im Nachhinein!
Version: BlitzPlus / Blitz+

KnorxThieus

Mi, Jan 11, 2012 21:41
Antworten mit Zitat

danke im voraus! Razz

...PS: Und im Nachhinein! Razz

Version: BlitzPlus / Blitz+

	KnorxThieus	Mo, Apr 13, 2015 21:49 Antworten mit Zitat
Tschuldigung, dass ich den alten Thread fortsetze, aber ich denke schon, dass [… mein] Beitrag noch relevant ist … Unter Windows 7 hab ich das Ganze letzten Endes ja hinbekommen, aber unter Windows 8.1 nicht! Mache ich was falsch, oder bemerkt ihr das auch? Und wie könnte man wohl dagegen vorgehen? (Ich finde es noch relevant, da ja jeder Leser/B++-Programmierer irgendwann auf die neuen Windows-Versionen umsteigen wird.)
Version: BlitzPlus / Blitz+

KnorxThieus

Mo, Apr 13, 2015 21:49
Antworten mit Zitat

Tschuldigung, dass ich den alten Thread fortsetze, aber ich denke schon, dass [… mein] Beitrag noch relevant ist …

Unter Windows 7 hab ich das Ganze letzten Endes ja hinbekommen, aber unter Windows 8.1 nicht! Mache ich was falsch, oder bemerkt ihr das auch?
Und wie könnte man wohl dagegen vorgehen?

(Ich finde es noch relevant, da ja jeder Leser/B++-Programmierer irgendwann auf die neuen Windows-Versionen umsteigen wird.)

Version: BlitzPlus / Blitz+

Übersicht

BlitzBasic

DLLs und Userlibs

Nach Oben

BlitzBasic Portal

ProgBar Status

Betreff: ProgBar Status

Betreff: RE: @Pummelie