désactivation de la roulette de la souris

Question

Bonjours, je voudrais désactiver la roulette de la souris dans les formulaires pour ACCESS XP, su qq un peu me renseigner. 
Merci
Simon

ShareVB · Answer

salut

utilise l'api SystemParametersInfo :

met ce code dans ta form :

dans l'entete :
Private Const SPI_SETWHEELSCROLLLINES As Long = 105
Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPIF_UPDATEINIFILE As Long = &H1
Private Const SPIF_TELLALL as Long = SPIF_UPDATEINIFILE
Private Const SPI_GETWHEELSCROLLLINES As Long = 104
Dim lngValue as long

dans form_load:
SystemParametersInfo SPI_GETWHEELSCROLLLINES, 0,
     byval varptr(lngValue), 0
SystemParametersInfo SPI_SETWHEELSCROLLLINES, 0, 0, SPIF_TELLALL

dans form_unload:
SystemParametersInfo SPI_SETWHEELSCROLLLINES, lngValue, 0, SPIF_TELLALL

voilà

ShareVB

roults · Answer

Merci d'avoir répondu si vite.
J'ai suivit tes instruction et j'ai un méssage d'erreur quend je compile truc. IL me dit "incompatibilité de type" à 2 endroits :

SystemParametersInfo SPI_SETWHEELSCROLLLINES, 0, 0², SPIF_TELLALL

SystemParametersInfo SPI_SETWHEELSCROLLLINES, lngValue, 0², SPIF_TELLALL

²problème aux niveau de ces 0 là.

ShareVB · Answer

salut

oui effectivement à la place de ces 0 là il faut mettre Byval 0&

voilà

ShareVB

Désactivation de la roulette de la souris

3 réponses

Discussions similaires