PureBasic

Code : Tout sélectionner

  If OpenWindow(0, 0, 0, 425, 325, "Exemple", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   PanelGadget(1, 10, 10, 400, 300)
    AddGadgetItem(1, 0, "onglet 1")
    AddGadgetItem(1, 1, "onglet 2")
  EndIf 
  
  Repeat
   Event = WaitWindowEvent()
    Select Event
       
     Case #PB_Event_Gadget
      Select EventGadget()
       Case 1
        Select EventType()
         Case #PB_EventType_LeftClick        : Debug "Clic avec le bouton gauche de la souris"
         Case #PB_EventType_RightClick       : Debug "Clic avec le bouton droit de la souris"
         Case #PB_EventType_LeftDoubleClick  : Debug "Double-clic avec le bouton gauche de la souris"
         Case #PB_EventType_RightDoubleClick : Debug "Double-clic avec le bouton droit de la souris"

        EndSelect
      EndSelect
       
     EndSelect
   Until Event = #PB_Event_CloseWindow

Code : Tout sélectionner

#WM_MOUSEWHEEL = $20A
#WHEEL_DELTA = 120

If OpenWindow(0, 0, 0, 425, 350, "Exemple", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   PanelGadget(0, 10, 10, 400, 300)
    AddGadgetItem(0, 0, "onglet 1")
    AddGadgetItem(0, 1, "onglet 2")
      PanelGadget(1, 10, 30, 400, 300)
      AddGadgetItem(1, 0, "onglet 11")
      AddGadgetItem(1, 1, "onglet 12")
   CloseGadgetList()
 
  EndIf
 

;{- Event loop
; ******************************************** Debut de la boucle ************************************
Repeat
  ; Debug "**********************************deb_boucle **************************************** " + f_n(mclickd) + " " + f_n(meg)
  chaine$ = ""
  WWE = WaitWindowEvent()
  ;WE = WindowEvent(); ne pas mettre cette fonction en service sous risque de dysfonctionnement
  Fenetre = EventWindow()
  EG = EventGadget()
  ET = EventType()
  EM = EventMenu()
  EWP = EventwParam()
  ELP = EventlParam()
  ;******************************************************************************************
  
  Select WWE
    Case #PB_Event_CloseWindow
      End
    Case #WM_LBUTTONDOWN ;"Bouton gauche appuyé")
       Debug "Clic avec le bouton gauche de la souris  Gadget="+Str(EG)+" etat="+Str(GetGadgetState(EG))

    Case #WM_LBUTTONUP ;"Bouton gauche relaché")
    Case #WM_LBUTTONDBLCLK ;"Double clic gauche")
      Debug "Double-clic avec le bouton gauche de la souris Gadget="+Str(EG)+" etat="+Str(GetGadgetState(EG))
    Case #WM_RBUTTONDOWN ;"Bouton droit appuyé")
      Debug "Clic avec le bouton droit de la souris Gadget="+Str(EG)+" etat="+Str(GetGadgetState(EG))
    Case #WM_RBUTTONUP ;"Bouton droit relaché")
    Case #WM_RBUTTONDBLCLK ;"Double clic droit")
      Debug "Double-clic avec le bouton droit de la souris Gadget="+Str(EG)+" etat="+Str(GetGadgetState(EG))
    Case #WM_MBUTTONDOWN ;"Bouton du milieu appuyé"
    Case #WM_MBUTTONUP ;"Bouton du milieu relaché")
    Case #WM_MBUTTONDBLCLK ;"Double clic du milieu")
    Case #WM_MOUSEMOVE
    Case #WM_MOUSEWHEEL
      Molette.l = -(EWP>>16)/#WHEEL_DELTA
      If Molette>0 ;"Molette en avant de
      ElseIf Molette<0 ;"Molette en arrière de
      EndIf
    Case #PB_Event_Gadget
      Select ET
        Case #PB_EventType_LeftClick ;"Image : Bouton gauche appuyé"
        Case #PB_EventType_LeftDoubleClick ;"Image : Double clic gauche")
        Case #PB_EventType_RightClick ;"Image : Bouton Droit appuyé"
        Case #PB_EventType_RightDoubleClick ;"Image : Double clic droit")
      EndSelect
    Case #PB_Event_Repaint
      ; StartDrawing(WindowOutput(#Window_0))
      ; DrawImage(ImageID(Frame3D_5), 792, 97)
      ; ; DrawImage(ImageID(1), 320, 80)
      ; ; DrawImage(ImageID(2), 320, 200)
      ; StopDrawing()
      
  EndSelect
  
  ; *************************************** fin de la boucle *****************************************
  ; Until WE = #PB_Event_CloseWindow Or WWE = #PB_Event_CloseWindow
ForEver
End ;******************************* fin du PRG *************************************************

Code : Tout sélectionner

- ExplorerListGadget() 
- ExplorerTreeGadget() 
- ImageGadget() 
- ListViewGadget() 
- ListIconGadget() 
- MDIGadget() 
- SpinGadget() 
- StringGadget() 
- WebGadget()