| |
| |
|
Rolf
Koch | Ich hatte mit TS einen kurzen Code getestet und uns fiel auf, dass folgender Code bei Ihm die Progressbar garnicht anzeigt. Bei mir eh und je anzeigebereit.
Bei wem klappts? Bei wem nicht?
Bei mir wurde ein richtiges Handle angezeigt bei Thomas nur eine 1
KompilierenMarkierenSeparieren
PROC CREATEOBJECT
PARAMETERS HANDEL&,O$,TEXT$,1%,2%,3%,4%,Stil$,ext$
DECLARE NAME#,TEXT#,RETHANDEL&
Dim NAME#,len(O$)+1
Dim TEXT#,len(Text$)+1
String NAME#,0 =O$
String TEXT#,0 = Text$
RETHANDEL& = @CREATEWINDOWEX(val(ext$),NAME#,TEXT#,val(STIL$),1%,2%,3%,4%,HANDEL&,2000,%Hinstance,0)
DISPOSE NAME#
DISPOSE TEXT#
RETURN RETHANDEL&
ENDPROC
DEF @CreateWindowEx(12) ! "USER32","CreateWindowExA"
declare progressbar1&
cls
CREATEOBJECT %HWND,"msctls_progress32","PROGRESSBAR",0006,0234,0182,0018,"$54000000","$020000"
LET PROGRESSBAR1&=@&(0)
print progressbar1&
waitinput
|
|
| |
| |
| |
|
|
Jac
de
Lad | Bei mir klappts...wäre es nicht einfacher über Control()?
Jac 
Nachtrag: Ähm, Variablen nur aus Zahlen und mit Typ-Identifier??? Vielleicht solltet ihr mal einen Buchstaben voransetzen...??? Und ist es nicht einfacher mit Addr statt dem Umweg über Bereiche??? |
|
| |
| 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 | 01.04.2006 ▲ |
|
| |
|
|
Rolf
Koch | Ja klar Jac über Control gehts ja einfacher.
Ich habe dies aus meinem Roc und der erstellt dies so, damit auch Uralt Profanversionen klarkommen.,
Aber Danke fürs testen. Ich dachte schon ich wäre verrückt.
 |
|
| |
| |
| |
|
|
Rolf
Koch | Thomas hatte mit seiner Vermutung recht, dass es an Profan 10 liegt.
Hab den Code mit Profan 10 interpretiert und nun sehe ich auch nur als Handle eine 0 und keine Progressbar mehr.
Mach ich es mit Profan 9.1 ist dies noch vorhanden.
Roland, haste was geändert? |
|
| |
| |
| |
|
|
Matthias
Arlt | Stell mal das DEF CreateWindowEx... an den Anfang, also noch vor die aufrufende Prozedur. Ich habs grade mal unter Prf 7.5 getestet:
- zuerst Fehlermedung, da CreatewindowEx nicht gefunden...
- nach Umstellung dann fehlerfrei ! |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 01.04.2006 ▲ |
|
| |
|
|
RGH | Hallo,
das hängt damit zusammen, daß in der aktuellen Subscriptionsversion von XProfan 10 bei API-Funktionen Fließkommazahlen automatisch als 32-Bit-Floats übergeben werden. Da das Ergenis der Val-Funktion natürlich ein Fließkommawert ist, wird er nun als 32-Bit-Fließkommawert übergeben, was hier natürlich falsch ist, da ja Longints erwartet werden. Abhilfe: Einfach ein Int vor das val: Int(Val(...)).
BTW: Warum werden eigentlich die Hextwerte als String übergeben und nicht als Zahlen?
Außerdem: Variablennamen sollten grundsätzlich mit einem Buchstaben (oder Unterstrich) beginnen.
Gruß
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01.04.2006 ▲ |
|
| |
|
|
Rolf
Koch | [quote:0d025545a4]Warum werden eigentlich die Hextwerte als String übergeben und nicht als Zahlen?
[/quote:0d025545a4]
*lol* - hatte ich damals aus irgendeinem Grund (JA es gab einen ) gemacht.
Belassen wir es mal so, ist künstlerisches Denken *HIHIHIHI*
Rolf |
|
| |
| |
| |
|
(452)
Deutsch
English
Français
Español
Italia