:D probleme web

Programmation d'applications complexes
Répondre
garzul
Messages : 683
Inscription : mer. 26/mai/2004 0:33

:D probleme web

Message par garzul »

Bonjour j'ai un probleme regarder car le web gadget et pas bien placer jecomprend pas il chevauchent la statu bar et ne prend pas tt l'ecrans sur le coter regarder y

Code : Tout sélectionner

;-SPEEDYONE WEB projet d'explorer web de garzul
;Enumeration des constant
Enumeration
;enumeration menu
#MenuBar_0
#MENU_4
#MENU_6
#MENU_7
#MENU_12
#StatusBar_0

;fin d'enumeration menu
EndEnumeration


Procedure Open_Window_1()
If OpenWindow(1, 0, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget, "SPEEDYONE WEB") And CreateGadgetList(WindowID(1))
  WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 60, "http://www.purebasic.fr")
   SetClassLong_(WindowID(1), #GCL_HBRBACKGROUND, CreateSolidBrush_(RGB(100, 120, 255)))
  StringGadget(0, 150, 5, 306, 20, "http://www.")
  AddKeyboardShortcut(1, #PB_Shortcut_Return, 1)
  
;*************************creation des menu*********************************************************
      If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("Fichier")
      MenuItem(#MENU_4, "Fermer")
      MenuTitle("Favoris")
      MenuItem(#MENU_6, "Ajouter")
      MenuTitle("?")
      MenuItem(#MENU_7, "A propos de SPEEDYONE WEB")
      MenuBar()
      MenuItem(#MENU_12, "Aide")
    EndIf
    
;^^^^^^^^^^^^^^^^^^^^^^^^^^creation status bar^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^        

         If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(550) 
        StatusBarText(#StatusBar_0, 0, "Bienvenue sur le garzul note") 
        AddStatusBarField(450) 

      EndIf 
      If CreateGadgetList(WindowID()) 
       EndIf 
    EndIf 
        ResizeGadget(0,-1,-1,WindowWidth()-20,WindowHeight()-60) 

  EndProcedure

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Boucle$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
 Open_Window_1()
 
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow 
          
         result = MessageRequester("ATTENTION","Vous quittez SPEEDYONE WEB ,voulez vous revenir a SPEEDYONE WEB?",#PB_MessageRequester_yesno) 
         If result <> 6 ; si il n'a pa clicker sur oui
  quit = 1 ; on quitte
 
EndIf
      Case #PB_Event_SizeWindow 
        ResizeGadget(0,-1,-1,WindowWidth()-20,WindowHeight()-60) 
        FreeStatusBar(#StatusBar_0) 
        If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(WindowWidth()/3) 
        AddStatusBarField((WindowWidth()/3)*2)        
         StatusBarText(#StatusBar_0, 0, "") 
        EndIf 
        ;- Choisir l'ouverture des menu cool:)
;RIENNNNNN
   
        Select EventMenuID()

      Case #PB_Event_Menu
        MenuID = EventMenuID()
        If MenuID = 1
          url$ = GetGadgetText(0)
          If Left(url$, 7) = "http://"
            SetGadgetText(1, url$)
          EndIf
        EndIf
         Case #WM_SIZE
        WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 60, "http://www.purebasic.fr")
    EndSelect

    
    ;DEBUG
     Debug  "menu numero "+Str(menuID):; cette ligne va afficher le numero du menu choisi !! 
        ; a  toi dans faire ce que tu veux !! 
       
             Case #PB_Event_Gadget
        GadgetID = EventGadgetID(): ; lequel ?? 
                     EndSelect        

        Debug  GadgetID 
            StatusBarText(#StatusBar_0, 0, FormatDate("%dd/%mm/%yyyy", Date()) + " " + FormatDate("%hh:%ii:%ss", Date())) 
      

 Until  Quit
   
End
Au fait mon bloc note et finie merci a tt ceux qui mon aider a sa realisation ct mon premier projet :) merci a tous.
Haut
Oliv
Messages : 2117
Inscription : mer. 21/janv./2004 18:39

Message par Oliv »

Code : Tout sélectionner

;-SPEEDYONE WEB projet d'explorer web de garzul 
;Enumeration des constant 
Enumeration 
;enumeration menu 
#MenuBar_0 
#MENU_4 
#MENU_6 
#MENU_7 
#MENU_12 
#StatusBar_0 

;fin d'enumeration menu 
EndEnumeration 


Procedure Open_Window_1() 
If OpenWindow(1, 0, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget, "SPEEDYONE WEB") And CreateGadgetList(WindowID(1)) 
  WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 70, "http://www.purebasic.fr") 
   SetClassLong_(WindowID(1), #GCL_HBRBACKGROUND, CreateSolidBrush_(RGB(100, 120, 255))) 
  StringGadget(0, 150, 5, 306, 20, "http://www.") 
  AddKeyboardShortcut(1, #PB_Shortcut_Return, 1) 
  
;*************************creation des menu********************************************************* 
      If CreateMenu(#MenuBar_0, WindowID()) 
      MenuTitle("Fichier") 
      MenuItem(#MENU_4, "Fermer") 
      MenuTitle("Favoris") 
      MenuItem(#MENU_6, "Ajouter") 
      MenuTitle("?") 
      MenuItem(#MENU_7, "A propos de SPEEDYONE WEB") 
      MenuBar() 
      MenuItem(#MENU_12, "Aide") 
    EndIf 
    
;^^^^^^^^^^^^^^^^^^^^^^^^^^creation status bar^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^        

         If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(550) 
        StatusBarText(#StatusBar_0, 0, "Bienvenue sur le garzul note") 
        AddStatusBarField(450) 

      EndIf 
      If CreateGadgetList(WindowID()) 
       EndIf 
    EndIf 
        ResizeGadget(0,-1,-1,WindowWidth()-20,WindowHeight()-60) 

  EndProcedure 

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Boucle$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
 Open_Window_1() 
  
  Repeat 
    Event = WaitWindowEvent() 
    Select Event 
      Case #PB_Event_CloseWindow 
          
         result = MessageRequester("ATTENTION","Vous quittez SPEEDYONE WEB ,voulez vous revenir a SPEEDYONE WEB?",#PB_MessageRequester_yesno) 
         If result <> 6 ; si il n'a pa clicker sur oui 
  quit = 1 ; on quitte 
  
EndIf 
      Case #PB_Event_SizeWindow 
        ResizeGadget(0,-1,-1,WindowWidth()-20,WindowHeight()-60) 
        FreeStatusBar(#StatusBar_0) 
        If CreateStatusBar(#StatusBar_0, WindowID()) 
        AddStatusBarField(WindowWidth()/3) 
        AddStatusBarField((WindowWidth()/3)*2)        
         StatusBarText(#StatusBar_0, 0, "") 
        EndIf 
        ;- Choisir l'ouverture des menu cool:) 
;RIENNNNNN 
    
        Select EventMenuID() 

      Case #PB_Event_Menu 
        MenuID = EventMenuID() 
        If MenuID = 1 
          url$ = GetGadgetText(0) 
          If Left(url$, 7) = "http://" 
            SetGadgetText(1, url$) 
          EndIf 
        EndIf 
         Case #WM_SIZE 
        WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 60, "http://www.purebasic.fr") 
    EndSelect 

    
    ;DEBUG 
     Debug  "menu numero "+Str(menuID):; cette ligne va afficher le numero du menu choisi !! 
        ; a  toi dans faire ce que tu veux !! 
        
             Case #PB_Event_Gadget 
        GadgetID = EventGadgetID(): ; lequel ?? 
                     EndSelect        

        Debug  GadgetID 
            StatusBarText(#StatusBar_0, 0, FormatDate("%dd/%mm/%yyyy", Date()) + " " + FormatDate("%hh:%ii:%ss", Date())) 
      

 Until  Quit
J'ai remplacé

Code : Tout sélectionner

WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 60, "http://www.purebasic.fr")
par

Code : Tout sélectionner

WebGadget(1, 20, 30, WindowWidth() - 20, WindowHeight() - 70, "http://www.purebasic.fr")
Haut
garzul
Messages : 683
Inscription : mer. 26/mai/2004 0:33

Message par garzul »

Merci meme si jai resolu le pb a 4h14 du matin en changeant les valeur mais cautrement regarder et compiler mon code ya plein de pb lors du demarage ya un truc blanc a coter du web gadget je comprend vraiment pas pk mon script marche mal 8O
Haut
Répondre

Revenir à « Applications »