| |
| |
|
 | Hier die Lösung - garantiert: [...]  
Vielleicht hast Du irgendwo getText$ vergessen und vergleichst mit dem Handle statt dem Text - oder Ähnliches...  |
|
| |
| |
| |
|
|
| Ja, hochladen ist oft hilfreich!
Deine Funktion Menü wird aufgerufen oder nicht?
Du zerstörst auch den Dialog und setzt _ende% nicht auf 1, also wird Deine Schleife zum Fehler wenn Funktion Menü zurückkehrt.
Ich fürchte Du solltest doch ein Minimalbeispiel erstellen - und nicht einen Codeauszug!
Ließ das [...] hier einmal richtig - so von oben links nach unten rechts, ich glaube dann kann sich Dein Problem in Luft auflösen. |
|
| |
| |
| |
|
|
| Lediglich Deine Programmstruktur stand Dir hier im Wege:
KompilierenMarkierenSeparierendeclare 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
|
|
| |
| |
| |
|
(803)
Deutsch
English
Français
Español
Italia