Teil 7: Gadgets verstecken

 

 
    
If OpenWindow(0,100,100,500,400,"Fenster 1",#PB_Window_SystemMenu)

  If CreateGadgetList(WindowID(0))
    ButtonGadget(1,20,20,100,20,"Knopf 1")
    ButtonGadget(2,20,80,100,20,"Knopf 2")

    ListViewGadget(3,150,20,330,80)
    StringGadget(4,20,120,360,20,"")
    ButtonGadget(5,400,120,80,20,"Übernehmen")
    ProgressBarGadget(6,20,160,360,20,1,100000)
    ButtonGadget(7,400,160,80,20,"Start")
    ButtonGadget(8,20,200,200,20,"Gadgets aufdecken")
    ButtonGadget(9,280,200,200,20,"Gadgets verstecken")
  EndIf

  Repeat
    EventID = WaitWindowEvent()
      If EventID = #PB_Event_CloseWindow 
        Quit = 1
      EndIf
      If EventID = #PB_Event_Gadget
        If EventGadget()=1
          MessageRequester("Achtung!","Knopf 1 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 1 wurde gedrückt !")
        EndIf
        If EventGadget()=2
          MessageRequester("Achtung!","Knopf 2 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 2 wurde gedrückt !")
        EndIf
        If EventGadget()=5
          a$=GetGadgetText(4)
          AddGadgetItem(3,-1,"Ihre Eingabe :"+a$)
        EndIf

          If EventGadget()=7
            For a=1 To 100000
           SetGadgetState(6,a)
            Next
          EndIf

          If EventGadget()=8
            For a=1 To 7
           HideGadget(a,0)
            Next
          EndIf
          If EventGadget()=9
            For a=1 To 7
           HideGadget(a,1)
            Next
      
EndIf
     
EndIf
 
Until Quit=1
EndIf
End

 

Zwei neue Schalter, der zweite soll die Gadgets 1-7 verstecken, der erste wieder aufdecken. Um ein Gadget zu verstecken, benutzt man den Befehl HideGadget mit den Parametern: Nummer des Gadget, Status des Gadget (1=verstecken, 0=anzeigen).

Um den Befehl nicht 7 mal einzugeben, benutzen wir wieder eine For-Next-Schleife.

 

Resultat nach Drücken des Schalters Start:

Vor dem Drücken des Schalters:

Nach dem Drücken des Schalters:

 

WEITER