Discussion :

[coco21]

bonjour!

je viens d'intégrer dans mes formulaires les fonctions permettant le déplacement du formulaire avec la molette de la souris, seulement, maintenant, il semble qu'il y ait des déclarations qui est sautées ( des declarations que je n'ai meme pas faite (MsgBox...))

lorsque je mets les trucs relatifs à la souris en commentaires, tout marche, alors j'aurais voulu savoir si qqun avait une idée..

merci!!

[Arkham46]

Slt,

Quel code as tu utilisé?

Quelle dll, celle de la FAQ?

Et sinon ça veut dire quoi :

il semble qu'il y ait des déclarations qui est sautées

:

Tu as un message d'erreur? un comportement anormal?

[coco21]

voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
'pour le deplacement avec la molette de la souris
Option Explicit
 
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
' Constantes pour le type de scrolling
Private Const WM_VSCROLL = &H115
' Constantes pour les commandes
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1
' Déclaration de l'API
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
 
 
 
'fonction pour la souris
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer, zDelta As Integer)
    If zDelta < 0 Then
       SendMessage Me.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
    Else
       SendMessage Me.hwnd, WM_VSCROLL, SB_LINEUP, 0&
    End If
    Cancel = True
End Sub
 
 
Private Sub Form_Close()
    'pour la souris
    If Not (clsMouseWheel Is Nothing) Then
        clsMouseWheel.SubClassUnHookForm
        Set clsMouseWheel.Form = Nothing
       Set clsMouseWheel = Nothing
    End If
End Sub
 
Private Sub Form_Load()
    'pour la souris
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub[code][/code]
 
 
j'ai utilisée la dll du forum
 
ben en fait il bloque à l'execution en disant que j'ai des variables non definies...
 
merci!!

[Arkham46]

C'est sûrement le paramètre zdelta qui ne passe pas, je l'avait rajouté dans une dll copiée de celle de la FAQ.
Donc en utilisant la dll de la faq ça ne marche pas
Enfin je pense que c'est ça parce que ton code a l'air correct...

Ceci dit on a vu un autre problème avec cette dll qui marche mal avec plusieurs formulaires, donc si tu as plusieurs formulaires ça coince.
En gros si tu déplaces la roulette dans le formulaire A c'est le formulaire B qui se déplace....

Donc il faudrait fusionner les deux codes pour faire une dll magique.
J'ai le code des deux dll à la maison, juste un copier-coller à faire.
Par contre je n'ai plus VB6 donc il me faudra quelqu'un pour compiler la dll.

Bye.

[coco21]

je n'ai pas tout saisi, mais apparemment, il faudrait que je change la dll c'est ca?

mais le probleme dont tu parles pourrai influer sur le mien??
(désolée pour mes qustions..)

tu voudrais sur je compile pour toi?? (enfin, si je peux..)

merci!

[Arkham46]

ok j'ai pas été très clair, mais j'ai pas compris quelle dll tu utilisais...

En gros y a une dll de microsoft qui permet de bloquer la molette de la souris.
Mais y a eu deux problèmes sur cette dll :
1 - pas vraiment un problème mais une lacune : on ne sais pas dans l'événement MouseMove dans quel sens on déplace la molette, donc on ne sait pas si on doit monter ou descendre l'ascenceur au cas où on veuille faire défiler le formulaire avec la molette.
2 - la dll ne gère qu'un seule classe à la fois et donc appelle l'événement MouseMove dans le dernier formulaire ouvert quelque soit le formulaire en cours d'utilisation.
En résumé quand on déplace la molette dans le formulaire 1 c'est le formulaire 2 qui reçoit l'événement MouseMove....

Donc j'ai corrigé la dll indépendemment pour chacun des problèmes.
Et toi je ne sais pas quel problème tu as et si tu utilises la dll d'origine ou une des dll modifiées.

Conclusion : en fonction de ton besoin et de ton problème je peux fournir le code de la dll qui remplacera celle que tu essayes d'utiliser aujourd'hui, mais je n'ai pas VB6 pour la compiler.