| |
| |
|
Alfred
Wagner | ¡Hola Personas
Hab folgendes Problema
zuerst el code
$P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31
WINDOWTITLE Neues Ventana
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
Declarar Edición1$
Edición1$=Readini$(HKEY_DW_1,SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced,TaskbarGlomming)
If Edición1$ = 0va
Imprimir A es 0
ElseIf Edición1$ = 1
Imprimir A es 1va auch
Problema
Elsefalls el Valor no disponible es
Imprimir A es no vorhandenProblem : hier kommt A es 0 obwohl el Valor no disponible es
Endif
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ENDIF
WEND
Ende
Como bekomme Yo el hin dass el Valor el sí no disponible es korreckt adecuado se?
mfg
Alfred con Familie |
|
| |
| |
| |
|
|
| Evtl encima %ERROR ermitteln?
KompilierenMarcaSeparación!$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 a Arbeit
danke,funktioniert prima,
aber en una TabControl scheint el no a ir,zeigt siempre 0 a
weiß auch no wieso,probier el teil veces una wenig umzustellen,tal vez klapps entonces
Trotzdem danke para deine Mühe
mfg
Alfred con Familie |
|
| |
| |
| |
|
(1.134)
Deutsch
English
Français
Español
Italia