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

 

[patricktoulon]

@jurassic pork
regarde la video c'est ma version de base de départ avec le IN/OUT + releaseControl + rectangle sans api ni Rect

pendant le scrolling plus aucun aces a la feuille qui ralentissait le scroll
c'est plus que fluide
et le code est ridiculement simple

 

[Rheeem]

@jurassic pork
Le double affichage est lié au fait que les listbox et les Textbox ne sont pas déposés directement sur la feuille mais sur une sorte de frame qui devrait être entièrement invisible mais pour une raison ou autre il déborde ou c'est la taille du contrôle qui est réduite donc le frame devient visible et il n'est pas rafraichie automatiquement.. le fait d"activer et désactiver le mode création va récréer un nouveu controle avec les bonnes dimensions

 

[jurassic pork]

@jurassic pork
Le double affichage est lié au fait que les listbox et les Textbox ne sont pas déposés directement sur la feuille mais sur une sorte de frame qui devrait être entièrement invisible mais pour une raison ou autre il déborde ou c'est la taille du contrôle qui est réduite donc le frame devient visible et il n'est pas rafraichie automatiquement.. le fait d"activer et désactiver le mode création va récréer un nouveu controle avec les bonnes dimensions

Hello Rheeem
j'ai déjà repéré ce comportement mais dès qu'on enlève le mode création , le double affichage revient :

Pour l'instant le seul moyen simple pour l'enlever. C'est d'ouvrir le fichier , l'enregistrer, le refermer, l'ouvrir à nouveau et là je n'ai plus
de double affichage .

 

[Rheeem]

@jurassic pork

On peut régler le problème par programation en ajustant le contrôle à son containeur

Dim R as  RECT
  p = GetParent(hListbox)
  GetWindowRect p, R
  SetWindowPos hListbox, 0, 0, 0, R.Right-R.Left, R.Bottom-R.Top, 2

 

[jurassic pork]

@jurassic pork

On peut régler le problème par programation en ajustant le contrôle à son containeur

Dim R as  RECT
  p = GetParent(hListbox)
  GetWindowRect p, R
  SetWindowPos hListbox, 0, 0, 0, R.Right-R.Left, R.Bottom-R.Top, 2

Le souci c'est que c'est plus complexe que cela car en fait les containers sont des objets images et ne sont pas les parents des listbox.
Voici 1 - une capture de Flauinspect avec la feuille qui contient les listbox en mode Création :

Il n'y a pas les listBox et en fait il y a "l'empreinte" des listbox dans des objets images
Voici la même chose mais cette fois-ci en mode Normal :

Cette fois-ci Il y a bien les Listbox mais les "empreintes" sont à un niveau inférieur , n'ont pas de handle et ne sont pas facilement repérable car
ont le même nom, il n'y a que le boundingrectangle pour les repérer.
J'en déduit qu'il y a un problème d'affichage quand les dimensions des ListBox ne correspondent pas à leurs "empreintes"

 

[patricktoulon]

re
ou alors secouer le prunier

Sub test()
  Dim ole as OLEObject
 For Each ole In Feuil1.OLEObjects
   ole.Left = ole.Left + 10
       ole.Left = ole.Left - 10
    Next
    
End Sub

 

[patricktoulon]

re
que pensez vous de la version 3 j'ai pas mis les declaration vb6 pour 2007 mais si c'est bon je le ferais

 

[ChTi160]

Re
ce que j'ai a l'ouverture
Jean marie

 

[patricktoulon]

redimentionne les avant d'essayer
la liste gauche c'est normal elle n'est pas géré c'est justement fait pour les tests
et le userform?
merci jean-marie pour ton retour

 

[jurassic pork]

J'ai le même problème que ChTi160 en excel 2016 Win11 1920x1080 mise à l'échelle 100 % et quand je me met en mode création ce qui se passe c'est que la police devient minuscule dans la listBox :

Par contre si j'ouvre le classeur avec une mise à l'échelle 125% là c'est bon :

on est plus sur un phénomène de double affichage mais comme on peut le constater sur les deux captures c'est la largeur des listbox qui a changé.

 

[Dudu2]

Tu localises les ActiveX avec le Panes(1). Donc si c'est fractionné / décalé, ce n'est plus bon pour la ListBox.

 

[Dudu2]

@jurassic pork,
Avec ton Excel 2013 en utilisant le fichier du post #294, ça fonctionne avec les Controls ActiveX ?

 

[jurassic pork]

Ben finalement j'ai trouvé la parade au problème d'affichage des ListBox avec ce code :

Sub RectificationActiveX()
   Dim oSheet As Worksheet
    Dim oShape As Shape, obj As OLEObject
   
    Set oSheet = ThisWorkbook.Worksheets("Feuil1")
    'On parcourt toutes les formes présentes dans la feuille
    For Each oShape In oSheet.Shapes
        Debug.Print oShape.Name, oShape.Width
        For Each obj In oSheet.OLEObjects
          If obj.Name = oShape.Name Then obj.Width = oShape.Width
        Next
    Next
End Sub

On balaie toutes les formes de la feuille, dans ces formes il y a les "empreintes" des ActiveX et normalement les empreintes des ActiveX ont comme nom le nom de l'activeX. On regarde si le nom de la forme est le nom d'un ActiveX et alors on rectifie la largeur de l'ActiveX avec la largeur de son empreinte.

 

[jurassic pork]

@jurassic pork,
Avec ton Excel 2013 en utilisant le fichier du post #294, ça fonctionne avec les Controls ActiveX ?

Voici l'effet de la rectification dans le classeur de Dudu2 ouvert dans Excel 2013 :

 

[Piment]

Bonjour à tous,
Patrick, j'ai téléchargé ton module dans "Ressources", j'ai mis le module dans l'un de mes fichiers, sur l'une des comboBox. Le scroll fonctionne, mais ne remonte pas jusqu'à la 1ère données.
Bonne journée à tous.