PureBasic

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu, Fred
; Version de PB : 3.90
; 
; Explication du programme :
; Détection des différents état de la souris - Appuyer sur le bouton gauche, relacher le bouton gauche, double clic, etc ...

#WM_MOUSEWHEEL = $20A

If OpenWindow(0, 0, 0, 200, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Souris")
  
  SetClassLong_(WindowID(), #GCL_STYLE, GetClassLong_(WindowID(), #GCL_STYLE) | #CS_DBLCLKS) ; Active la gestion du double clic
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #WM_LBUTTONDOWN
      Debug "Bouton gauche appuyé"
      
    ElseIf Event = #WM_LBUTTONUP
      Debug "Bouton gauche relaché"
      
    ElseIf Event = #WM_LBUTTONDBLCLK
      Debug "Double clic gauche"
      
    ElseIf Event = #WM_RBUTTONDOWN
      Debug "Bouton droit appuyé"
      
    ElseIf Event = #WM_RBUTTONUP
      Debug "Bouton droit relaché"
      
    ElseIf Event = #WM_RBUTTONDBLCLK
      Debug "Double clic droit"
      
    ElseIf Event = #WM_MBUTTONDOWN
      Debug "Bouton du milieu appuyé"
      
    ElseIf Event = #WM_MBUTTONUP
      Debug "Bouton du milieu relaché"
      
    ElseIf Event = #WM_MBUTTONDBLCLK
      Debug "Double clic du milieu"
      
    ElseIf Event = #WM_MOUSEWHEEL
      Debug "Molette"
      
    EndIf
    
  Until Event = #WM_CLOSE
EndIf

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu, Fred 
; Version de PB : 3.90 
; 
; Explication du programme : 
; Détection des différents état de la souris - Appuyer sur le bouton gauche, relacher le bouton gauche, double clic, etc ... 

#WM_MOUSEWHEEL = $20A 

If OpenWindow(0, 0, 0, 200, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Souris") 
  
  SetClassLong_(WindowID(), #GCL_STYLE, GetClassLong_(WindowID(), #GCL_STYLE) | #CS_DBLCLKS) ; Active la gestion du double clic 
  
  Repeat 
    Event = WaitWindowEvent() 
    
    If Event = #WM_LBUTTONDOWN 
      Debug "Bouton gauche appuyé" 
      
    ElseIf Event = #WM_LBUTTONUP 
      Debug "Bouton gauche relaché" 
      
    ElseIf Event = #WM_LBUTTONDBLCLK 
      Debug "Double clic gauche" 
      
    ElseIf Event = #WM_RBUTTONDOWN 
      Debug "Bouton droit appuyé" 
      
    ElseIf Event = #WM_RBUTTONUP 
      Debug "Bouton droit relaché" 
      
    ElseIf Event = #WM_RBUTTONDBLCLK 
      Debug "Double clic droit" 
      
    ElseIf Event = #WM_MBUTTONDOWN 
      Debug "Bouton du milieu appuyé" 
      
    ElseIf Event = #WM_MBUTTONUP 
      Debug "Bouton du milieu relaché" 
      
    ElseIf Event = #WM_MBUTTONDBLCLK 
      Debug "Double clic du milieu" 
      
    ElseIf Event = #WM_MOUSEWHEEL 
      Debug "Molette" 
      If EventwParam() < 0
        Debug "avant"
      Else
        Debug "arriere"
      EndIf
      
    EndIf 
    
  Until Event = #WM_CLOSE 
EndIf

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu, Fred 
; Version de PB : 3.90 
; 
; Explication du programme : 
; Détection des différents état de la souris - Appuyer sur le bouton gauche, relacher le bouton gauche, double clic, etc ... 

#WM_MOUSEWHEEL = $20A 
#WHEEL_DELTA = 120

If OpenWindow(0, 0, 0, 200, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Souris") 
  
  SetClassLong_(WindowID(), #GCL_STYLE, GetClassLong_(WindowID(), #GCL_STYLE) | #CS_DBLCLKS) ; Active la gestion du double clic 
  
  Repeat 
    Event = WaitWindowEvent() 
    
    If Event = #WM_LBUTTONDOWN 
      Debug "Bouton gauche appuyé" 
      
    ElseIf Event = #WM_LBUTTONUP 
      Debug "Bouton gauche relaché" 
      
    ElseIf Event = #WM_LBUTTONDBLCLK 
      Debug "Double clic gauche" 
      
    ElseIf Event = #WM_RBUTTONDOWN 
      Debug "Bouton droit appuyé" 
      
    ElseIf Event = #WM_RBUTTONUP 
      Debug "Bouton droit relaché" 
      
    ElseIf Event = #WM_RBUTTONDBLCLK 
      Debug "Double clic droit" 
      
    ElseIf Event = #WM_MBUTTONDOWN 
      Debug "Bouton du milieu appuyé" 
      
    ElseIf Event = #WM_MBUTTONUP 
      Debug "Bouton du milieu relaché" 
      
    ElseIf Event = #WM_MBUTTONDBLCLK 
      Debug "Double clic du milieu" 
      
    ElseIf Event = #WM_MOUSEWHEEL 
      
      Molette.w = (EventwParam()>>16)&$FFFF
      sens = Molette/#WHEEL_DELTA
      
      If sens >0
        Debug "Molette en avant" 
      ElseIf sens <0
        Debug "Molette en arrière"
      EndIf
      
      
    EndIf 
    
  Until Event = #WM_CLOSE 
EndIf

Code : Tout sélectionner

;Application du message WM_MOUSEWEEL

#WM_MOUSEWHEEL = $20A
Global Hscroll.l

Procedure ProcedureCallback(WindowID, Message, wParam, lParam) 
  Resultat = #PB_ProcessPureBasicEvents 
  ;Debug Message
  Select Message
    Case #WM_MOUSEWHEEL
      hi.w=(wParam>>16)
      lo.w=wParam & $FFFF
      
      If lo.w & #MK_MBUTTON
        ;indique le click de la molette seulement si celle-ci tourne
        MessageRequester("Info", "Click de la molette")
      EndIf
      
      coef=4
      delta=hi*coef
      Debug delta
      
      While delta>120
        SendMessage_(Hscroll, #WM_VSCROLL, #SB_LINEUP, 0)
        delta=delta-(120+coef)
      Wend
      
      While delta< -120
        SendMessage_(Hscroll, #WM_VSCROLL, #SB_LINEDOWN, 0)
        delta=delta+(120+coef)
      Wend

  EndSelect
 
  ProcedureReturn Resultat 
EndProcedure 
  

If OpenWindow(0,0,0,400,400,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ScrollAreaGadget") And CreateGadgetList(WindowID(0)) 
  Hscroll=ScrollAreaGadget(0, 10, 10,360,300, 340, 800, 30) 
  ButtonGadget  (1, 10, 140,230, 30,"Button 1") 
  CloseGadgetList() 
   
  SetWindowCallback(@ProcedureCallback()) 

  Repeat
    EventID.l=WaitWindowEvent()
    Select EventID
      Case #PB_EventGadget
        Select EventGadgetID()
          Case 1

        EndSelect
         
      Case #WM_CLOSE
        Quit=1
    EndSelect 
  Until Quit=1 
EndIf