Seite 1 von 1
Alle Stringgadgets ausfüllen
Verfasst: 26.12.2005 23:43
von Scream
Hallo,
ich habe vor das in einem fenster der benutzer alle stringgadgets ausfüllen muss, bevor er in dem programm weiterarbeiten kann. Das ganze soll einer benutzerstellung dienen.....
Ich hoffe jemand kann mir helfen......
Mfg
Scream
Verfasst: 27.12.2005 01:03
von Konne
Was ist denn jetzt genau die Frage???
Re: Alle Stringgadgets ausfüllen
Verfasst: 27.12.2005 01:28
von Kiffi
Scream hat geschrieben:Ich hoffe jemand kann mir helfen......
wir können Dir besser helfen, wenn Du Dein Problem detaillierter (evtl. mit
Codeschnippseln) erläuterst.
Ich ahne zwar, was Du meinst, bin aber nicht gewillt, nun eine Lösung zu
posten, die evtl. nicht zutrifft.
Grüße ... Kiffi
Verfasst: 27.12.2005 13:29
von Scream
okay war schlecht gestellt
also in einem fenster, soll der benutzer beispielsweise name straße und ort in verschiedene stringgagdgets eintragen. Diese Angaben sollen nun irgendwo gespeichert werden.
Nun habe ich aber das Problem das der Benutzer z.B. nur den Namen einträgt und dann auf speichern klickt.
Ich will aber das er alle Daten einträgt, und das nur dann die Daten gespeichert werden.
Im Grunde genommen brauche ich eine Abfrage die nachschaut ob alle felder ausgefüllt sind.
Ich hoffe es ist nun einigermaßen verständlich....
Mfg
Scream
Verfasst: 27.12.2005 13:41
von Kiffi
> Ich hoffe es ist nun einigermaßen verständlich....
joh, ist schon besser
OK, Du bastelst Dir eine Prozedur namens CheckSaveButton():
Code: Alles auswählen
Procedure CheckSaveButton()
If GetGadgetText(#txtName)<>"" And GetGadgetText(#txtStrasse)<>"" And GetGadgetText(#txtOrt)<>""
DisableGadget(#cmdSave,0)
Else
DisableGadget(#cmdSave,1)
EndIf
EndProcedure
den Aufruf dieser Prozedur packst Du in der Event-Schleife dort hinein, wo
der Inhalt der StringGadgets verändern werden:
Code: Alles auswählen
Repeat
WWE = WaitWindowEvent()
EGI = EventGadgetID()
Select WWE
Case #PB_Event_Gadget
Select EGI
Case #txtName
CheckSaveButton()
Case #txtStrasse
CheckSaveButton()
Case #txtOrt
CheckSaveButton()
EndSelect
EndSelect
Until WWE = #PB_Event_CloseWindow
Soweit alles klar?
Grüße ... Kiffi
Verfasst: 27.12.2005 13:55
von Scream
genial.....vielen vielen Dank
So schnell, und so genial.....
Ich bin echt baff......
Thx
Scream
Verfasst: 27.12.2005 16:31
von Konne
Lol, sooo genial ist dass jetzt auch net:)
Später wirst du so ein Problem eher belächeln
