PureBasic

Code : Tout sélectionner

Procedure CrisotMouseButton() ; Très, très sale (PB ne gère pas les Event ButtonUp ou ButtonDown)
	Repeat
		Event = WindowEvent()
		Select Event
			Case #WM_LBUTTONDOWN	; Sale
				LMB=#True
			Case #PB_Event_LeftClick
				LMB=#False
			Case #WM_RBUTTONDOWN	; Sale
				RMB=#True
			Case #PB_Event_RightClick
			  RMB=#False
		EndSelect
	Until Event=0
EndProcedure

Code : Tout sélectionner

Case #WM_CBUTTONDOWN	; Sale
	     CMB=#True
        Case #PB_Event_CentreClick
	     CMB=#False

Code : Tout sélectionner

Macro MYSTR(x)
RSet(StrU(x, #Byte), 3, "0")
EndMacro
Dim KeyboardState.b(256)
LoadFont(0, "Courier", 8)
If OpenWindow(0, 0, 0, 570, 255, "GetKeyboardState_()", #PB_Window_SystemMenu |
#PB_Window_ScreenCentered)
SetWindowColor(0, #White)
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
Break
Case 0
If GetKeyboardState_( @KeyboardState() )
If StartDrawing( WindowOutput(0) )
DrawingFont( FontID(0) )
For y = 0 To 15
For x = 0 To 15
Line( 36 * x - 5, 0, 0, 300)
DrawText( 36 * x, 16 * y, MYSTR( KeyboardState( y << 4 +
x) ) )
Next x
Next y
StopDrawing()
EndIf
EndIf
Delay(1)
EndSelect
ForEver
EndIf

Code : Tout sélectionner

;Application du message WM_MOUSEWEEL

#WM_MOUSEWHEEL = $20A
; Le coef permet d'ajuster le pas a une valeur voulue, qui est 120 par défaut.
Global coef.l = 1

Procedure ProcedureCallback(WindowID, Message, wParam, lParam) 
  Resultat = #PB_ProcessPureBasicEvents 
  Protected high.l, low.l
  Protected x.l, y.l
  Protected Delta.l
  ;Debug message
  
  Select Message
    Case #WM_MBUTTONDOWN 
      MessageRequester("Info", "Click bouton milieu, la molette ne tourne pas")
      
    Case #WM_MOUSEWHEEL
      high = wParam >> 16
      low = wParam & $FFFF
      x = lParam >> 16
      y = lParam & $FFFF
      
      ; Position x et y de la souris par rapport à l'écran
      ; et sans rapport donc avec la fenêtre où le control
      Debug "-----Position Souris-----"
      Debug x
      Debug y
      
      Delta = high * coef
      
      If Delta >= 120
        Debug "-----Positif-----"
        Debug delta
      ElseIf Delta <= -120
        Debug "-----Négatif-----"
        Debug Delta
      EndIf
      

      ;Ici, si la molette ne tourne pas, nous n'avons pas les notifications suivantes
      ; Pas de elseif car la valeur de Low peut prendre plusieurs valeurs.

      If low & #MK_CONTROL ;0x0008 The CTRL key is down.
        ;MessageRequester("Info", "Touche CTRL appuyé, la molette tourne")
      EndIf
      
      If low & #MK_LBUTTON ;0x0001 The left mouse button is down
        MessageRequester("Info", "Bouton gauche souris appuyé, la molette tourne")  
      EndIf
      
      If low & #MK_MBUTTON ;0x0010 The middle mouse button is down
        MessageRequester("Info", "Bouton milieu souris appuyé, la molette tourne")    
      EndIf
      
      If low & #MK_RBUTTON ;0x0002 The right mouse button is down
        MessageRequester("Info", "Bouton droit souris appuyé, la molette tourne")     
      EndIf
      
      If low & #MK_SHIFT ;0x0004 The SHIFT key is down
        ;MessageRequester("Info", "Touche SHIFT appuyé, la molette tourne")    
      EndIf
      
      If low & #MK_XBUTTON1 ;0x0020 The first X button is down
        MessageRequester("Info", "Premier bouton X souris appuyé, la molette tourne")   
      EndIf
      
      If low & #MK_XBUTTON2 ;0x0040 The second X button is down
        MessageRequester("Info", "Deuxième bouton X appuyé, la molette tourne")
      EndIf 
      

      ; Au dessus, c'est pour l'exemple, dans une application, on fera par exemple:
      ; Touche control + shift + molette augmente ou diminue un zoom suivant la rotation de la molette

      If low & #MK_CONTROL And low & #MK_SHIFT And Delta >= 120
        Debug "Zoom diminue"
      EndIf
      
      If low & #MK_CONTROL And low & #MK_SHIFT And Delta <= 120
        Debug "Zoom augmente"
      EndIf
      
      Resultat = 0
  EndSelect
  
  ProcedureReturn Resultat 
EndProcedure 


If OpenWindow(0,0,0,400,400,"ScrollAreaGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  SetWindowCallback(@ProcedureCallback()) 
  
  Repeat
    EventID.l=WaitWindowEvent()
    Select EventID
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            
        EndSelect
        
      Case #PB_Event_CloseWindow
        Quit=1
    EndSelect 
  Until Quit=1 
EndIf

Code : Tout sélectionner

Macro BoutonDuMilieu: MouseButton(4)
EndMacro