| |
| |
|
 | ici qui Solution - garantiert: [...]  
peut-être la hâte Du irgendwo getText$ oublier qc et vergleichst avec dem Handle statt dem Text - ou bien Ähnliches...  |
|
| |
| |
| |
|
|
| oui, hochladen ist souvent hilfreich!
Votre Funktion menu wird aufgerufen ou bien pas?
Du zerstörst aussi den Dialog et mets _ende% pas sur 1, alors wird Votre Boucle zum faute si Funktion menu zurückkehrt.
je fürchte Du devrait doch un Minimalbeispiel erstellen - et pas une Codeauszug!
Ließ cela [...] ici einmal richtig - so de dessus à gauche pour unten à droite, je crois ensuite peux sich Dein Problem dans air auflösen. |
|
| |
| |
| |
|
|
| Lediglich Votre Programmstruktur stand Dir ici im Wege:
KompilierenMarqueSéparationdeclare 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
|
|
| |
| |
| |
|
(771)
Deutsch
English
Français
Español
Italia