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

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #301

oui c'est ça
' Récupérer le handle de la fenêtre native
hwnd = IUIAElement.GetCurrentPropertyValue(UIA_NativeWindowHandlePropertyId)

c'est vrai que iaccessible et uiautomationclient fonctionne bien mieux sur les versions après 2007 apparemment

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Mars 2025

• #302

@jurassic pork, @patricktoulon

Remarques sur la captation de IUIAElement d'un Control.

1. En ActiveX ou UserForm ComboBox on récupère toujours la ComboBox Main même si la ComboBox est Drop Down
2. En ActiveX TextBox il faut impérativement activer la TextBox pour que l'UIAutomation ne se plante pas
3. En Control UserForm je n'arrive pas à récupérer le Handle du Control

Et bonne nouvelle, mon Desktop est réparé ! Je vais aller le chercher.

 

Pièces jointes

• Classeur5 - UIAutomation.xlsm

  37.3 KB · Affichages: 3

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Mars 2025

• #303

J'ai réglé le point 1 pour le RECT de la ComboBox Drop Down, puisqu'on connait le RECT de la ComboBox Main, il suffit d'aller chercher l'AccessibleObjectFromPoint en partant du Bottom de la Main + 1 pixel.

Reste le point 3.

 

Pièces jointes

• Classeur5 - UIAutomation.xlsm

  39.1 KB · Affichages: 0

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #304

re
je pige pas trop ce que tu dit avec combobox main etc... tu parles sans doute d'une de tes fonctions

mais l'iaccssible renvoie le role 33 quand c'est developpé
et cela que le x,y soit dans l'input sur le boutondropp ou dans la scrollbar ou dans la liste developpé
donc tant que c'est pas 33 pour la listbox ou combobox on scroll pas

parti de la je comprend pas trop ce que tu va chercher
quand tu sort de la combo l'iaccessible tombe sur la feuille ou autre chose donc ce n'est plus le role 33 donc sortie

dans mon exemple version minimale je le montre bien

VB:

Function IsScrollable(control As Object) As Boolean
    Dim PosControl As IAccessible, pos As POINTAPI, ok As Boolean, role, Q&, obj
    Select Case True
        Case TypeOf control Is ComboBox: role = 33
        Case TypeName(control) = "ListBox": role = 33
        Case TypeName(control) = "Frame": role = 20
    End Select
    GetCursorPos pos

    'pour sortir en cas de control non géré  qui n'appelerait donc pas la mouseWheel quand on est dans une feuille
    'Set obj = ActiveWindow.RangeFromPoint(pos.X, pos.Y)
    'If Not TypeName(obj) = "Range" Then If obj.Name <> control.Name Then IsScrollable = False: Exit Function


re:
    #If Win64 Then
        Dim lngPtr As LongPtr
        CopyMemory lngPtr, pos, LenB(pos)
        AccessibleObjectFromPoint lngPtr, PosControl, 0
        CopyMemory lngPtr, 0, LenB(pos)
    #Else
        AccessibleObjectFromPoint pos.X, pos.Y, PosControl, 0
    #End If
    
    'rattrapage pour choper la combo developpée
    If PosControl.accRole <> role Then
        If TypeOf control Is ComboBox And Q = 0 Then Q = 1: pos.Y = pos.Y + 25: GoTo re
    End If
    
    On Error Resume Next
    [c1] = PosControl.accRole
    IsScrollable = PosControl.accRole = role
End Function

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 20 Mars 2025

• #305

patricktoulon et Dudu2 vous avez essayé mon classeur du Post #295 ? Comme il y a souvent un problème de double affichage sur les listbox entre vos deux configurations, pour savoir si avec ce classeur vous avez des soucis avec ce classeur normalement plus universel . Il peut y avoir le problème cité dans le post #295 mais facilement rectifiable.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #306

re
c'est la combobox qui est bien particulière
quand on bouge dessus (non développée) elle te donne le role 10(celui de la feuille)
quand on bouge dessus (developpé) partout elle te donne 33 (dans l'input , le dropbutton, sa scrollbar, la liste)

donc quand j'envoie la mousewheel je lance la isscrollable et je test 2 points
x,y et x,y+25
si x,y me donne 10 elle est PRETENDUMENT REPLIEE
SI X,Y+25 me donne 33 alors elle est DEVELOPPEE donc scrollable
et comme le do/loop est lancé elle tourne dans que 33
si ca donne toujours 10 ben on fait rien on sort isscrollable=false

donc avec mon repeat iaccessiblefrompoint(répété qu'une fois) je peux me balader dessus sans lancer le do/loop
et dès que je vais cliquer sur le dropbutton le role va devenir 33 et lancer le do/loop
ou 10 si je reclique et donc arrêter

c'est aussi simple que ça

après la sortie si control non géré j'ai le rangefrompoint pour la feuille et le uiauto pour l'userform dans la version de la ressource
disponible des que modération

cette version de base ne gère que les listbox combobox et frame mais on peut ajouter les case dans le select case dans isscrollable et scrolling c'est tout

pas la peine de usiner avec IAccessible
surtout que le accessibleobjectfrompoint identifie bien tout les controls par le accRole

je sais pas si tu te rends compte avec ton windowfrompoint a chercher le rectangle d'un textbox
alors que dans isscrollable et scrolling en a joutant le case typeof control is TextBox:role=42 tu la tout de suite
la version déposée gère tout les controls même les les label si on voulais s'en servir pour scroller un autre control ou faire un on/of avec la roulette

bref c'est d'une simplicité bluffante

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #307

jurassic pork à dit:

patricktoulon et Dudu2 vous avez essayé mon classeur du Post #295 ? Comme il y a souvent un problème de double affichage sur les listbox entre vos deux configurations, pour savoir si avec ce classeur vous avez des soucis avec ce classeur normalement plus universel . Il peut y avoir le problème cité dans le post #295 mais facilement rectifiable.

Cliquez pour agrandir...

ben c'est ma version 2 ça tu a changé quoi? je vois pas dans le code
bon en tout cas les listbox sont doublées mais il fonctionne le scroll

c'est malheureusement peut être un problème entre le 64/32 tout simplement qui n'a pour l'instant pas de solution
un peu comme quand je prends un fichier sur le net et qu'il y a un listview que je suis obligé de remplacer purement et simplement

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 20 Mars 2025

• #308

patricktoulon à dit:

ben c'est ma version 2 ça tu a changé quoi? je vois pas dans le code
bon en tout cas les listbox sont doublées mais il fonctionne le scroll

Cliquez pour agrandir...

oui c'est ta version 2 . J'ai ajouté une valeur dans la largeur de colonne des ListBox.
C'est bizarre que tu me dises que ça fait double affichage parce que j'ai testé le classeur avec une configuration qui ressemble à la tienne :
Excel 2013 sous windows 10 . Quelle résolution d'écran et quelle mise à l'échelle as-tu ? et peux-tu montrer ton double affichage ?
Si c'est celui que j'ai décrit dans le Post #295 , c'est normal je l'ai eu aussi dans le Excel 2013 . Il suffit d'enregistrer le fichier , de le fermer et de le rouvrir pour que le double affichage disparaisse. Le plus grave des double affichages était celui causé par l'absence de valeur pour la largeur des colonnes des ListBox.

 

Dernière édition: 20 Mars 2025

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #309

ma resolution

et mon echelle est 100%

et l'effet

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #310

j'ai un doute on va faire un test @jurassic pork
si c'est comme cijoint.com qui fraccasse les fichiers excel
renvoie moi le dans un zip

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Mars 2025

• #311

@jurassic pork

patricktoulon et Dudu2 vous avez essayé mon classeur du Post #295 ?

Cliquez pour agrandir...

Pas de problème d'affichage. Pas de "grosses" ListBoxes comme dans le fichier original de @patricktoulon.

@patricktoulon,
J'essaie juste de fabriquer des fonctions qui donnent le RECT des Controls et éventuellement leur Handle.
Ça n'a plus rien à voir avec le Scroll, c'est juste l'utilisation de lUIAutomation guidée par @jurassic pork.
La récupération du Handle pour les Controls de UserForm ne marche pas.

Tu parles des accRoles 10 et 33. C'est pour une ComboBox ActiveX ou UserForm ou les 2 ?
Ceci dot pour tester si la ComboBox est développée ou pas il suffit de tester sont TopIndex (-1 ou 0-n).

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 20 Mars 2025

• #312

Peu importe...
Avec la fonction GetControlRECT de ce fichier utilisant UIAutomation, on récupère le RECT de n'importe quel Control (ActiveX et UserForm)
C'est tout ce que je voulais obtenir.

 

Pièces jointes

• GetControlRECT - UIAutomation.xlsm

  42.9 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #313

re
non @Dudu2 sur 2013 pro plus 32 bits uiauto getboundingrectangle donne une farce avec les controls sur feuille
c'est bien pour ca que dans V 2 il y a la condition Onsheet

d'ailleurs j'ai changé la méthode
j'ai virer rangefrompoint qui etait correcte mais rendait moins fluide le scroll
maintenant je stoc le rect sous forme d'array a chaque changement de controle et je compare avec pos
l'array est vidé en sortie

et voila hyper véloce

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Mars 2025

• #314

9 minute pas plus

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

c'est hyper simple j'ai repris mon module de base adapter a la feuille
pour ajouter des controls ajouter dans les select cases de isScrollable et Scrolling
Terminé
alors vous le voulez ce module ou pas

 

Vote positif 0 Vote négatif

jurassic pork

XLDnaute Accro

• 20 Mars 2025

• #315

patricktoulon à dit:

j'ai un doute on va faire un test @jurassic pork
si c'est comme cijoint.com qui fraccasse les fichiers excel
renvoie moi le dans un zip

Cliquez pour agrandir...

Patricktoulon ce que tu me montres dans ta capture est ce que j'ai eu aussi avec le Excel 2013 c'est celui que je montre dans le Post #295. Celui là il est pas dangereux car il se résout en enregistrant le fichier, le fermant et le réouvrant. C'est sûr qu'avec des activeX qui datent de Mathusalem on va se chopper de plus en plus de bugs dans les O.S modernes

 

Dernière édition: 20 Mars 2025

Vote positif 0 Vote négatif