BlitzUI + Schleifen + Select ?!

Übersicht

BlitzBasic

Beginners-Corner

	DerKeks Betreff: BlitzUI + Schleifen + Select ?!	Di, Nov 13, 2007 22:30 Antworten mit Zitat
Hey ich bins nochmal... Ich habe wieder ein Problem mit meinem BlitzUI Code... Ich habe einen Start Button, wenn der gedrückt wird, springt er sofort zur Marke "start_menu" das klappt auch ich lasse am anfang buttons erstellen die werden auch angezeigt... Nur die abfragen zu den Buttons gehen nicht... Ich weiss ned worans liegen soll... Wenn man Exit setzt springt der Code ja automatisch zu "Forever" ( hier Repeat...Forever ) und nach dem Forever werden alle Button wieder gelöscht... Auch der Button der mit "End" reagieren soll geht nicht... Hier mal der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] .start_menu wert = 25+35 sm_btn_01 = Button(0,GraphicsHeight()-wert, 120, 35, "Herunterfahren", "", 1, 0, 0) : wert = wert +35 sm_btn_02 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 sm_btn_03 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 sm_btn_04 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 sm_btn_05 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 sm_btn_06 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 sm_btn_07 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35 Repeat Select app\Event Case EVENT_WINDOW Select app\WindowEvent End Select Case EVENT_MENU Select app\MenuEvent End Select Case EVENT_GADGET Select app\GadgetEvent Case sm_btn_01 End Case sm_btn_02 Exit Case sm_btn_03 Exit Case sm_btn_04 Exit Case sm_btn_05 Exit Case sm_btn_06 Exit Case sm_btn_07 Exit Case task_btn_start Exit End Select End Select Forever HideGadget(sm_btn_01) HideGadget(sm_btn_02) HideGadget(sm_btn_03) HideGadget(sm_btn_04) HideGadget(sm_btn_05) HideGadget(sm_btn_06) HideGadget(sm_btn_07) Return Ich hoffe jemand kennt sich mit BlitzUI aus und weiss was gemeint ist... Gruß - Dari

DerKeks

Betreff: BlitzUI + Schleifen + Select ?!

Di, Nov 13, 2007 22:30
Antworten mit Zitat

Hey ich bins nochmal...
Ich habe wieder ein Problem mit meinem BlitzUI Code...

Ich habe einen Start Button, wenn der gedrückt wird, springt er sofort zur Marke "start_menu" das klappt auch ich lasse am anfang buttons erstellen die werden auch angezeigt... Nur die abfragen zu den Buttons gehen nicht...
Ich weiss ned worans liegen soll... Wenn man Exit setzt springt der Code ja automatisch zu "Forever" ( hier Repeat...Forever ) und nach dem Forever werden alle Button wieder gelöscht... Auch der Button der mit "End" reagieren soll geht nicht...

Hier mal der Code:
Code: [AUSKLAPPEN]

.start_menu
wert = 25+35
sm_btn_01 = Button(0,GraphicsHeight()-wert, 120, 35, "Herunterfahren", "", 1, 0, 0) : wert = wert +35
sm_btn_02 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35
sm_btn_03 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35
sm_btn_04 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35
sm_btn_05 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35
sm_btn_06 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35
sm_btn_07 = Button(0,GraphicsHeight()-wert, 120, 35, "Leer", "", 1, 0, 0) : wert = wert + 35

Repeat
   Select app\Event
      Case EVENT_WINDOW
         Select app\WindowEvent
         End Select
      Case EVENT_MENU
         Select app\MenuEvent
         End Select
      Case EVENT_GADGET
         Select app\GadgetEvent
            Case sm_btn_01
               End
            Case sm_btn_02
               Exit
            Case sm_btn_03
               Exit
            Case sm_btn_04
               Exit
            Case sm_btn_05
               Exit
            Case sm_btn_06
               Exit
            Case sm_btn_07
               Exit
            Case task_btn_start
               Exit
         End Select
   End Select
Forever

HideGadget(sm_btn_01)
HideGadget(sm_btn_02)
HideGadget(sm_btn_03)
HideGadget(sm_btn_04)
HideGadget(sm_btn_05)
HideGadget(sm_btn_06)
HideGadget(sm_btn_07)

Return

Ich hoffe jemand kennt sich mit BlitzUI aus und weiss was gemeint ist...

Gruß - Dari