Hi hier mal ein kleines Beispiel, den Rest musste halt überlegen, ob Du die Daten in DB speicherst, oder sonst wo. Immer noch in der Hoffnung, daß ich Dich richtig verstanden habe ;)
'*******************************************************************************
'CODE ERZEUGT MIT ROKO'S OBJECT CREATOR V 2.0p
'DATUM 16.07.2001 um 22:18 Uhr
'VERWENDETE PROFANVERSION IST 7.0 ODER HÖHER
'*******************************************************************************
SETTRUECOLOR 1
DECLARE ENDE%
DECLARE GROUPBOX1%
DECLARE GROUPBOX2%
DECLARE BUTTON1%
DECLARE BUTTON2%
DECLARE CHECKBOX1%
DECLARE CHECKBOX2%
DECLARE CHECKBOX3%
DECLARE TEXT1%
DECLARE CHECKBOX4%
DECLARE TEXT2%
DECLARE CHECKBOX5%
DECLARE CHECKBOX6%
DECLARE CHECKBOX7%
DECLARE CHECKBOX8%
DECLARE LISTBOX1%
DECLARE LISTBOX2%
PROC AUSWERT
clearlist
case @GETCHECK(CHECKBOX1%):@Addstring(listbox1%,"Morgends gerne essen")
case @GETCHECK(CHECKBOX2%):@Addstring(listbox1%,"Mittags gerne essen")
case @GETCHECK(CHECKBOX3%):@Addstring(listbox1%,"Abends gerne essen")
case @GETCHECK(CHECKBOX4%):@Addstring(listbox1%,"Nachts gerne essen")
case @GETCHECK(CHECKBOX5%):@Addstring(listbox2%,"Morgends oje Bauchweh")
case @GETCHECK(CHECKBOX6%):@Addstring(listbox2%,"Mittags schlimmes Bauchweh")
case @GETCHECK(CHECKBOX7%):@Addstring(listbox2%,"Abends hab ich Bauchweh")
case @GETCHECK(CHECKBOX8%):@Addstring(listbox2%,"Nachts leide ich - Bauchweh")
ENDPROC
WINDOWSTYLE 512
WINDOW 50,20-498,520
WINDOWTITLE "Neues Fenster"
CLS @RGB(212,208,200)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
GROUPBOX1% =@CREATE("GROUPBOX",%HWND," Hauptfragen",0011,0011,0210,0216)
GROUPBOX2% =@CREATE("GROUPBOX",%HWND," Zweitfragen",0234,0010,0234,0216)
BUTTON1% =@CREATE("BUTTON",%HWND,"auswerten",0309,0435,0069,0030)
BUTTON2% =@CREATE("BUTTON",%HWND,"beenden",0388,0435,0078,0030)
CHECKBOX1% =@CREATE("CHECKBOX",%HWND,"zum Frühstück",0023,0052,0120,0030)
CHECKBOX2% =@CREATE("CHECKBOX",%HWND,"Mittagsessen",0023,0091,0120,0030)
CHECKBOX3% =@CREATE("CHECKBOX",%HWND,"Abendessen",0023,0135,0099,0021)
TEXT1% =@CREATE("TEXT",%HWND,"Wann essen Sie am liebsten?",0021,0031,0181,0019)
CHECKBOX4% =@CREATE("CHECKBOX",%HWND,"Nachts",0023,0177,0120,0030)
TEXT2% =@CREATE("TEXT",%HWND,"--- und wann haben Sie Magenschmerzen?",0242,0030,0210,0014)
CHECKBOX5% =@CREATE("CHECKBOX",%HWND,"Am Morgen",0261,0054,0127,0026)
CHECKBOX6% =@CREATE("CHECKBOX",%HWND,"Mittags",0261,0091,0120,0030)
CHECKBOX7% =@CREATE("CHECKBOX",%HWND,"Abends",0261,0131,0120,0030)
CHECKBOX8% =@CREATE("CHECKBOX",%HWND,"Nachts",0262,0177,0120,0030)
LISTBOX1% =@CREATE("LISTBOX",%HWND,"LISTBOX4",0019,0248,0195,0139)
LISTBOX2% =@CREATE("LISTBOX",%HWND,"LISTBOX5",0246,0250,0213,0135)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @GETFOCUS(BUTTON1%) 'BUTTON
AUSWERT
ELSEIF @GETFOCUS(BUTTON2%) 'BUTTON
Let ende%=1
ENDIF
WEND
|