Comment utilise MouseWheelDVP avec un sous-formulaire

**branqueira** · 12/06/2006, 12h33

Bonjour,
J'utilise l'excellent dll de Thierry GASPERMENT pour l'utilisation de la roulette.

Mais j'ai un petit souci, j'utilise un formulaire qui contient un sous formulaire avec des champs, quand je cliques sur ce sous-formulaire, il prend le focus et je ne peux plus faire defiler le formulaire principal.

Voila ma petite question je voudrais toujours defiler le formulaire principal meme quand je suis sur le sous-formulaire.

J'espere que je m'explique bien

Ps: je pense qu'a l'ouverture du formulaire il faut changer la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set clMouseWHeel.Form = Me

je pense qu'il faut changer le "Me" mais en quoi?

merci beaucoup

**Arkham46** · 12/06/2006, 13h50

slt,

Non il ne faut pas changer cette ligne je pense, c'est la ligne qui définie de quel formulaire on veut capturer l'événement
Il faut continuer à capturer cet événement dans le sous-formulaire, puis mettre Cancel à Vrai pour annuler le défilement du sous-formulaire et renvoyer un événement de défilement au formulaire parent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Const WM_MOUSEWHEEL = &H20A
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Sub clMouseWHeel_MouseWheel(Cancel As Integer, FormScroll As Integer,Delta as Long)
' Annule l'action de la roulette
Cancel = True
' Renvoie le message de défilement vers le formulaire parent
' Delta est le pas de défilement (incrément de 120) 
' on le multiplie par 65536 pour respecter le format du message WM_MOUSEWHEEL
SendMessage Me.Parent.hwnd, WM_MOUSEWHEEL, ByVal delta*65536, ByVal 0
End Sub
'

A tester...