| |
| |
|
 | Hier el Solución - garantiert: [...]  
Tal vez hast Usted irgendwo getText$ vergessen y vergleichst con el Handle en lugar de el Texto - oder Ähnliches...  |
|
| |
| |
| |
|
|
| Sí, hochladen es oft hilfreich!
Su Función Menü se aufgerufen oder no?
Usted zerstörst auch el Diálogo y setzt _ende% no en 1, also se Su Bucle para Fehler si Función Menü zurückkehrt.
Yo fürchte Usted debe doch una Minimalbeispiel redactar - y no una Codeauszug!
Ließ el [...] hier una vez correcto - así de oben links después de unten rechts, Yo glaube entonces kann se Su Problema en Luft auflösen. |
|
| |
| |
| |
|
|
| Lediglich Su Programmstruktur stand Usted hier en el Wege:
KompilierenMarcaSeparacióndeclare fenster%
declare hFont&
declare _ende%
declare _dlg%
declare ername%
declare erpass%
declare weiter%
declare end%
declare name$
declare pass$
name$ = Ferenc
pass$ = test
Proc passwort
hFont& = create(Font, ARIAL,14,0,0,0,0)
setdialogfont hFont&
_dlg% = create(dialog, %hWnd, Anmeldung, 532, 394, 209, 97 + %cyCaption)
create(text, _dlg%, Name:, 16, 8, 72, 16)
create(text, _dlg%, Passwort:, 104, 8, 72, 16)
ername% = create(edit, _dlg%, , 16, 24, 72, 16)
erpass% = create(edit, _dlg%, , 104, 24, 72, 16)
weiter% = create(button, _dlg%, Weiter, 16, 48, 72, 24)
end% = create(button, _dlg%, Ende, 104, 48, 72, 24)
_ende% = 0
declare korrektesPasswort%
korrektesPasswort%=0
whilenot _ende%
waitinput
if (%key = 2)
End
elseif clicked(weiter%)
If (GetText$(ername%) = name$) And (GetText$(erpass%) = pass$)
korrektesPasswort%=1
break
Else
messageBox(Falscheingabe.,,0)
Endif
ElseIf clicked(end%)
break
EndIf
EndWhile
destroywindow(_dlg%)
setdialogfont 0
deleteobject hfont&
return korrektesPasswort%
EndProc
casenot Passwort() : end
Window 980,500-300,250
PopUp aaa
Appendmenu 201,aaa
Appendmenu 202,aaa
PopUp aaa
...
while 1
waitInput
If @MenuItem(201)
end
Elseif MenuItem(202)
...
EndIF
end
|
|
| |
| |
| |
|
(784)
Deutsch
English
Français
Español
Italia