Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof

[patricktoulon]

Bonjour a tous
la principal raison des crash excel quand on utilise le hooking de la souris pour avoir le mouse wheel(la roulette)
c'est que le looping avec le (CallnextHook)est asynchrone avec le captage du message de la souris
donc quand une erreur se produit(on va trop vite ou autre)
le looping lui continue parfois au moins une fois même en erreur
résultat comme on déplace le block type du message en mémoire ça crash

je vous propose de tester ceci
ici on va rester dans un do/loop vba classique et le message de la souris sera récupéré par un peekmessage
si il y a une erreur (du au message de la souris non conforme) normalement on a une erreur vba classique
et donc le do/loop est interrompu
donc pas de relance avec un message de la souris erroné donc pas de crash
Vous constaterez que j'augmente l'allocation de la mémoire aussi (64 bits double (longlong ou longPtr))(+2&)

d'autant plus que la dans cette démo je met tout dans le userform
ce qui n'est pas possible avec un code de hooking bien entendu
et ça peut avoir un avantage lorsque l'on veut distribuer un interface(userform) sans devoir l'accompagner de x modules

toujours pareil pour déterminer le rectangle je me sert de ma fonction perso du calendar que j'ai modifié pour ce besoins
donc testez et si ça fonctionne je ferais une ressource au propre

merci d'avance pour votre participation

j'en connais un qui vas ouvrir grand les yeux 🤣

Patrick

 

[Dudu2]

Mouais...
Activesheet.ListBox.Left
1 - Par accLocation: 453
2 - Par Pane.PointsToScreenPixelsX(Activesheet.ListBox.Left): 451
C'est évidement le 2 qui a raison. Donc c'est pas encore ça !

En plus, comme indiqué plus haut, KO pour les ComboBox non DropDown.
Et pour une TextBox, c'est quoi le dernier argument ?
Laisse tomber accLocation, les charges sont trop élevées 😂

 

[patricktoulon]

le 2points ou (3.5point ou 4.66 EN PIXEL) chez moi c'est la correction DWM

Private Sub UserForm_Click()
    Dim acc As IAccessible
    Dim l As Long, t As Long, w As Long, h As Long, h2 As Long
    Set acc = ListBox1
    ppx = 0.75 ' change le ppx ici pour ta méthode
    acc.accLocation l, t, w, h, ListBox1.TopIndex + 1
    ListBox1.Height = 3.5 + (h * ppx) * ListBox1.ListCount

MsgBox "left:" & l & vbCrLf & " top: " & t & vbCrLf & " right :" & w + l & vbCrLf & " bottom : " & 3.5 + t + (h * ListBox1.ListCount)
End Sub

 

[jurassic pork]

En pièce jointe la version de patrick du post #418 mais pour tous les excel .
J'ai supprimé aussi l'utilisation du CopyMemory et il y a un bouton sur la page principale qui permet de rectifier les listbox si elles se présentent mal au premier affichage.
Testé sous excel 2016 32 bits win 11 ech 100% et ech 125 %
excel 2021 64 bits
excel 2007 win 10
excel 2013 win 10

 

[patricktoulon]

après 0.2 pixels çà fait ca fait 0.15 points celui qui a perdu ca grand mère il passera à coté sans la voir hein

 

[patricktoulon]

re
@jurassic pork ca tourne pour moi

👍
et en plus maintenant on a le pas accéléré je sais pas si vous aviez vu ?
donc pour les frames ou multipage ca peut être pratique qu'un pas de scroll fixe

 

[patricktoulon]

je l'ai testé tout a l'heure aussi sur W7 office 2007

 

[jurassic pork]

r@jurassic pork
et en plus maintenant on a le pas accéléré je sais pas si vous aviez vu ?
donc pour les frames ou multipage ca peut être pratique qu'un pas de scroll fixe

En effet👍

 

[Dudu2]

En pièce jointe la version de patrick du post #418 mais pour tous les excel

Bel exploit !
Juste une petite remarque... dès que la souris sort de la zone ComboBox déployée, ça replie la ComboBox.
Ce n'est pas le comportement standard d'une ComboBox.

 

[patricktoulon]

si ca te convient pas @Dudu2 enlève le releasecontrol c'est tout et elle se repliera plus
chiche on le met en optionel ce truc 😉 🤪 🤪

 

[Dudu2]

En tous cas c'était bien sympa de logger ce sujet.

j'en connais un qui vas ouvrir grand les yeux 🤣

Ça c'est sûr !

 

[ChTi160]

Bonsoir
chez moi , j'ai du actionner le Bouton Lol
sinon tout est correct !
Merci
Jean marie

 

[patricktoulon]

re
@Dudu2

tu remarquera que quand il y a @Dudu2 et patricktoulon en joute vbaistique ça suit derrière (3k de vues)
en plus à grand coup de renfort de vieux cochon préhistorique
aben là on a eu notre public 🤪
tout ça parce qu'au départ j'ai fait une erreur dans un autre exercice ce qui m'a donné le msg mousewhell dans peekmessage
devant la promesse de ne plus être ennuyé par l'instabilité du hook j'ai pas hésité
et je crois qu'on a trouvé des bonnes choses
on est même allé un peu plus loin avec iaccessible uiautomationclient
ces deux librairie je les avait laisser de coté depuis quelques années l'une instable et l'autre verbeuse à souhait
mai je suis forcé de constater que c'est plus stable pour iaccessible par com ou api même si c'est pas parfait

on a bien travaillé et on a des bons résultats
quand j'y pense avoir le scroll dans nos interface vba aussi facilement et que je regarde le chemin parcouru y compris avec le hooking ça en est presque rigolo

 

[patricktoulon]

Bonsoir
chez moi , j'ai du actionner le Bouton Lol
sinon tout est correct !
Merci
Jean marie

re oui de toute facon le echanges de fichiers entre version différentes de office vont réclamer plus d'attention
et je pense pas que ça va s'arranger
ce qui importe au final dans cette discussion c'est le moteur de scroll

 

[Nathe]

En pièce jointe la version de patrick du post #418 mais pour tous les excel .
J'ai supprimé aussi l'utilisation du CopyMemory et il y a un bouton sur la page principale qui permet de rectifier les listbox si elles se présentent mal au premier affichage.
Testé sous excel 2016 32 bits win 11 ech 100% et ech 125 %
excel 2021 64 bits
excel 2007 win 10
excel 2013 win 10

Bonjour à tous,

Nathe

 

[jurassic pork]

Bonjour à tous,

Regarde la pièce jointe 1215079

Nathe

Hello Nathe,
tu as appuyé sur le bouton rectification ActiveX ?
Ami calmant, J.P