PureBoard

Code: Alles auswählen

 If EventGadgetID()=#Hyperlink_0
       If OpenWindow(#Window_1, 229, 25, 740, 660,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Admin")
       WebGadget(#Window_1, 0, 0, 500, 500, link$) 
       EndIf 
      EndIf

Code: Alles auswählen

RunProgram("www.pure-board.de") 

Code: Alles auswählen

 OpenWindow(0,100,100,350,75,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget,"Was ich täglich Bruach")
 CreateGadgetList(WindowID())
      ButtonGadget(3,5,5,80,65,"PB")
      
Procedure webfenster()
OpenWindow(1,0,0,600,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget,"WebGadget")
URL$ = "www.google.de"
CreateGadgetList(WindowID(1))
ButtonGadget(1, 490, 10, 100, 20, "LOS")
ButtonGadget(4, 390, 10, 100, 20, "BACK")
ButtonGadget(5, 290, 10, 100, 20, "Forwaerts")
ButtonGadget(6, 240, 10, 50, 20, "STOP")
ButtonGadget(7, 190, 10, 50, 20, "NL")  
 StringGadget(2,  10, 10, 200, 20, "")
 
    WebGadget(0,10,50,580,200, URL$)
Repeat

    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow 
      ende = 1
    EndIf
    If EventID = #PB_Event_Gadget 
           If EventGadgetID()=1
           url$ = GetGadgetText(2)
           SetGadgetText(0, url$) 
           EndIf
           If EventGadgetID()=5 ;For
           SetGadgetState(0, #PB_Web_Forward)
           EndIf
           If EventGadgetID()=4 ;BACK
           SetGadgetState(0, #PB_Web_Back)
           EndIf
           If EventGadgetID()=6 ; Stop
           SetGadgetState(0, #PB_Web_Stop)
           EndIf
           If EventGadgetID()=7 ; neuladen
           SetGadgetState(0, #PB_Web_Refresh)
           EndIf



           
    EndIf 

    
Until ende = 1


EndProcedure


  Repeat
  
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow 
      Quit = 1
    EndIf
    If EventID = #PB_Event_Gadget
          If EventGadgetID()=3 ; IE
          
          webfenster()
           EndIf
      
      
    EndIf
           
  Until Quit=1

End