| |
| |
|
Alfred
Wagner | Hallo Leute
Hab folgendes Problem
zuerst der code
$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31
WINDOWTITLE Neues Fenster
WINDOW SUB(DIV(%MAXX,2),DIV(454,2)),SUB(DIV(%MAXY,2),DIV(192,2))-454,192
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Declare Ausgabe1$
Ausgabe1$=Readini$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,TaskbarGlomming)
If Ausgabe1$ = 0geht
Print A ist 0
ElseIf Ausgabe1$ = 1
Print A ist 1geht auch
Problem
Elsefalls der Wert nicht vorhanden ist
Print A ist nicht vorhandenProblem : hier kommt A ist 0 obwohl der Wert nicht vorhanden ist
Endif
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
Ende
Wie bekomme ich das hin dass der Wert der ja nicht vorhanden ist korreckt angezeigt wird?
mfg
Alfred mit Familie |
|
| |
| |
| |
|
|
| Evtl über %ERROR ermitteln?
KompilierenMarkierenSeparieren!$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW SUB(DIV(%MAXX,2),DIV(454,2)),SUB(DIV(%MAXY,2),DIV(192,2))-454,192
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Declare Ausgabe1$
SetErrorLevel 1
Ausgabe1$=Readini$("HKEY_DW_1","SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced","TaskbarGlomming")
If %ERROR
Print "A ist nicht vorhanden"
ElseIf Ausgabe1$ = 0geht
Print "A ist 0"
ElseIf Ausgabe1$ = 1
Print "A ist 1"geht auch
Endif
SetErrorLevel 0
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
|
|
| |
| |
| |
|
|
Alfred
Wagner | Kurze Antwort,muss zur Arbeit
danke,funktioniert prima,
aber auf einem TabControl scheint das nicht zu gehen,zeigt immer 0 an
weiß auch nicht wieso,probier das teil mal ein wenig umzustellen,vielleicht klapps dann
Trotzdem danke für deine Mühe
mfg
Alfred mit Familie |
|
| |
| |
| |
|
(996)
Deutsch
English
Français
Español
Italia