MouseWheel()

Syntaxe

Resultat = MouseWheel()

Teste la molette centrale de la souris.

Arguments

Aucun.

Valeur de retour

Renvoie le nombre de "ticks" (unité pas-à-pas du système) réalisé par la molette de la souris depuis le dernier appel de cette fonction.

Remarques

La valeur est positive si la molette a été déplacée vers l'avant et négative si la molette a été déplacée vers l'arrière.

ExamineMouse() doit être appelé avant cette fonction pour mettre les informations sur la souris à jour.

Exemple

 ; Initialisation du monde 2D
 InitSprite()
 InitKeyboard()
 InitMouse()

  ; Ouverture de la fenêtre
  OpenWindow(0,0,0,800,600,"Souris - Utiliser la molette",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
  OpenWindowedScreen(WindowID(0),0,0,800,600,1,0,0)

  ; Gestion de la fenêtre et de l'écran
  Repeat
   Repeat         ; Gestion de la fenêtre
     Event  = WindowEvent() 
   Until Event = 0
  
   ExamineMouse() ; Etat de la souris
   
  ; Molette de la souris = Rotation du curseur
   tiks = MouseWheel()
   ; Affichage de l'état des boutons de la souris
   StartDrawing(ScreenOutput())
   DrawText(10,10, "Appuyer sur une touche du clavier pour quitter.", RGB(255,255,0))
   DrawText(250,180, "Utilisez la molette centrale de la souris.", RGB(255,0,0),RGB(255,255,0))
    If tiks > 0
     DrawText(250,230, "Molette vers le haut" , RGB(255,0,0), RGB(255,255,0))
     Delay(100)
   ElseIf tiks < 0
     DrawText(450,230, "Molette vers le bas"  , RGB(255,0,0), RGB(255,255,0))
     Delay(100)
   Else
     DrawText(350,230, "Molette au repos" , RGB(255,255,255))
   EndIf

   StopDrawing()
   
   FlipBuffers()
   ClearScreen(RGB(0,0,0)) 
  
   ExamineKeyboard()
  Until KeyboardPushed(#PB_Key_All)
  End

Voir aussi

ExamineMouse()

OS Supportés

Windows