évènement sur coup de molette (sur formulaire)Résolu

Question

Bonjour, Voilà mon problème. J'ai reproduit à peu près le même système que accès sur un formulaire en vb.net, avec accès à une base de données. J'ai donc des boutons << et >> pour faire défiler les enrgistrements, sur clic de la souris. Question : comment faire pour que sur coup de molette de la souris vers le haut, il avance d'un enregistrement, et sur coup de la molette de la souris vers le bas, il recule d'un enregistrement ? En resumé, sur molette vers le haut : executer une fonction x sur molette vers le bas: executer une fonction y Merci d'avance.

cs_casy · Accepted Answer

En VB 2005 l'idée de Nicko donneras ceci :

    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta > 0 Then
            Call Button1_Click(Button1, New System.EventArgs)
        Else
            Call Button2_Click(Button1, New System.EventArgs)
        End If
        Me.Refresh()
    End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_Nicko11 · Answer

Salut, voir evenement

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

'On décrémente la valeur si le mvt de la roulette est descendant et que l'on ne se trouve pas au premier enregistrement
If (Count > 0) then
   call bonton1_click

'On incrémente la valeur si le mvt de la roulette est ascendant et que l'on ne se trouve pas au dernier enregistrement
ElseIf (Count < 0 ) Then
      call bonton2_click

end if
end sub

si j'ai bien compris tu as des bontons qui marche.

tu dois faire attention si tu est au premier enregistrment et si tu est au dernier

timotep · Answer

Je ne comprends pas comment faire pour que cette fonction s'exécute sur coup de molette. Je n'ai pas l'évènement "MouseWheel" dans les évènements dispo du formulaire, et si je mets la fonction dans le code, il ne l'exécute pas sur coup de molette. Où est mon erreur ?

Le nom de la fonction devrait être, si je ne me trompe pas "NomFormulaire_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)" non?

Est-ce que ce ne serait pas plutôt l'évènement "scroll" avec lequel je dois travailler?

Merci encore pour ta réponse rapide :-) mais ce n'est sans compter que je ne suis pas très doué :-)

jmfmarques · Answer

Salut Nicko,

Je ne vois pas où timotep aurait dit qu'il développait sous VBA Access .... et il est ici dans la section VB6

timotep · Answer

Désolé, je croyais être dans la section VB.net. J'ai dû me tromper

timotep · Answer

Ouf, les admin ont remise le post dans la bonne section. MErci !!

Je n'ai toujours pas réussi à faire ce que je voulais, si quelqu'un peut m'aider!

timotep · Answer

Merci beaucoup pour ton aide, ça fonctionne bien.
Encore merci !

Timotep :-)

évènement sur coup de molette (sur formulaire)

7 réponses

Votre réponse

Discussions similaires