PureBasic

Code : Tout sélectionner

;-Enumeration
Enumeration 
  #Gad_Cont_1
  #Gad_Cont_2
  #Editor
  #WebGadget_1
  #Bouton_Go
  #String_Gadget_1
  #Panel
  #Panel_2
EndEnumeration 

;- Window

MainWin.l = OpenWindow(#PB_Any, 0, 0, 800,600, "Tab Testing", #PB_Window_ScreenCentered | #PB_Window_SystemMenu) 
If MainWin 
  If CreateGadgetList(WindowID(MainWin)) 
    ;ContainerGadget(#Gad_Cont_1, 0, 0, 800, 600, #PB_Container_BorderLess) 
;- Panel 1
      PanelGadget(#Panel, 0, 0, 800, 600) 
        AddGadgetItem(#Panel, -1, "Web Browser")    
        ContainerGadget(#Gad_Cont_1, 0, 0, 800, 600, #PB_Container_BorderLess) 
        WebGadget ( #WebGadget_1 ,0,25, 800,600,url$) 
        StringGadget ( #String_Gadget_1 ,0,0,350,25, "http://www.google.com" ) 
        ButtonGadget ( #Bouton_Go ,365,0,25,25, "GO" ) 
        ;CloseGadgetList() 
    
;- Panel 2
        AddGadgetItem(#Panel ,-1, "Editor")     
        ContainerGadget(#Gad_Cont_2, 0, 0, 800, 600, #PB_Container_BorderLess) 
        EditorGadget(#Editor, 0, 0, 800, 600)
       ;HideGadget(#Gad_Cont_1, 1) 
    ;CloseGadgetList() 
    
    Repeat 
      Select WaitWindowEvent() 
        Case #PB_Event_CloseWindow 
          Break 
          
        Case #PB_Event_Gadget 
          Select EventGadget() 
            Case #Bouton_Go
              url$ = GetGadgetText ( #String_Gadget_1 ) 
              WebGadget ( #WebGadget_1 ,0,25, 800,600,url$)  
          EndSelect 
      EndSelect 
    ForEver 
  EndIf 
EndIf

Code : Tout sélectionner

WebGadget ( #WebGadget_1 ,0,25, 800,600,url$) 

Code : Tout sélectionner

SetGadgetText(#WebGadget_1,url$)