Autres tester le scroll de la frame

patricktoulon

XLDnaute Barbatruc
bonjour à tous
est ce que plusieurs d'entre vous pourraient tester le scroll de la frame avec la mollette sur des versions 365 2019 et 2021 svp
merci pour les retours
 

Pièces jointes

  • scrollexemple 2.xlsm
    25.8 KB · Affichages: 12

patricktoulon

XLDnaute Barbatruc
voilà donc on plante plus
oui la scrollbar c'est pour le fun donc c'est pas bien grave si on la retire de l'équation
bon comme on est en addressof les messages se sont multipliés mais bon on est pas planté

on est d'accords on peut dire que l'erreur critique n'est plus destructrice ?
 

fanch55

XLDnaute Barbatruc
Ofiice 2021 64bits :
pat.gif
 

patricktoulon

XLDnaute Barbatruc
et toi fanch55 tu arrive a reproduire son erreur?
sinon j'ai oublié de remttre le exit a la sub au cas ou
car les address de plhooking quelques fois sont negatives
VB:
Public Sub HookMouse(ByVal ControlToScroll As Object, Optional ByVal FormName As String)
   If plHooking <> 0 Then UnHookMouse: Exit Sub
   If plHooking < 1 Then    ' active le hook si un autre n'est pas démarré
        EpC = EmplacementControl(ControlToScroll)    ' Get the control's rectangle relative to the screen (not the parent) into an array
        Set CtrlHooked = ControlToScroll
        plHooking = SetWindowsHookEx(WH_MOUSE_LL, AddressOf LowLevelMouseProc, 0, 0)
    End If
End Sub
 

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc
re
bon en metant des debug partout j'ai fini par comprendre ce qu'il se passe
et pour le coup c'est vraiment très bête
en fait que je passe t il
move sur le control
appel rouletambour qui appelle hookmouse
arrivé là que ce passe til
et bien avant si plhooking<>0 on envoie la patate sauf que si c'est toujours le même control il ferme le hook et en ré ouvre un autre pour le même control sous une autre addresse memoire et y compris apres pour la structure souris (2 addresse memoire pour rien)
la dessus tu ajoute la latence (64 bits)
ben on a une confusion plhooking rien ou quelque chose ( il sait plus rufus)
rufus c'est le prénom de mon pc 😁

alors qu'en fait en testant ctrlhooked= controltoscroll ben non seulement on fait pas mais on relance pas on le laisse continuer
et la pour le coup je n'ai carrément plus de ligne de bugué dans ma console
alors qu'avant je bougeais de 2 mm j'avais 25 lignes (25 adresses mémoire *2 (plhooked et la structure souris)
et oui moi aussi j'avais des erreurs sauf qu'elle ne me faisait pas planter excel
si j'avais mis ces debug plus tôt j'aurais compris tout de suite
même sur 2013 on voit bien que c'est plus fluide
chez moi
plus rapide
plus un seul raté
plus une seule ligne dans la console
je pense que là je tiens une bonne piste
 

Pièces jointes

  • scrollexemple 64 et 32 bits.xlsm
    37.3 KB · Affichages: 3

Cousinhub

XLDnaute Barbatruc
Bon,
Comme il faut bien essayer...
J'ai fait tous les Scroll, à part la 1ère "Frame", qui a eu du mal à décoller...
Sinon, ça allait...
Puis, un petit "pipi", je reprends ma souris, et hop, crash
Donc, pas fiable dans l'temps
 

Discussions similaires

Statistiques des forums

Discussions
312 859
Messages
2 092 919
Membres
105 565
dernier inscrit
HervéD