OFFICE : Introduction aux fonctions d'accessibilité

Cet exemple est réalisé avec Excel, à la suite du code précédent.

Si vous déplacez le curseur de la souris sur le menu démarrer, le code précédent nous indique : Démarrer : bouton poussoir.

Note : cela est identique avec les versions de Windows plus récentes (Windows 10 par exemple ).

On peut voir ces mêmes informations également à l'aide du programme inspect32.exe (voir le lien de téléchargement en introduction).

Pour cliquer sur le menu Démarrer de Windows lorsqu'on le survol, ajoutez ce code avant la relance de la fonction avec onTime.

' Si le curseur est sur un bouton poussoir de nom "Démarrer"
If oAcc.Role = ROLE_SYSTEM_PUSHBUTTON And oAcc.Name = "Démarrer" Then
    ' Cliquer sur ce bouton
    oAcc.DoDefaultAction
End If

Lorsqu'on survole le bouton Démarrer, le programme clique dessus automatiquement.

Cet exemple est réalisé avec Excel.

On a vu précédemment comment cliquer sur un bouton à l'aide de la fonction DoDefaultAction.

L'objet bouton était détecté lors du survol de la souris.

Comment faire pour retrouver ce bouton si on ne le survole pas ?

L'objet de plus haut niveau est le bureau Windows : à partir de lui on peut retrouver n'importe quel objet.

On peut donc écrire une petite fonction qui définit le bureau comme premier objet, et qui cherche ensuite le bouton Démarrer de manière récursive à l'aide de la fonction FindChild.

Function ClickStartupMenu()
Dim oAcc As ClAccessibility
' Nouvel objet
Set oAcc = New ClAccessibility
oAcc.SetAccObjFromDesktop OBJID_WINDOW
Set oAcc = oAcc.FindChild("Démarrer", ROLE_SYSTEM_PUSHBUTTON, , , , True)
If Not oAcc Is Nothing Then
    oAcc.DoDefaultAction
End If
End Function

Si vous exécutez la fonction, le programme clique sur le bouton Démarrer.

C'est la méthode la plus simple mais certainement pas la plus efficace.

Première remarque : Est-on certain qu'il n'existe qu'un seul bouton nommé "Démarrer"?

Deuxième remarque : Il existe énormément d'objet d'accessibilité sur le bureau; la recherche peut prendre un certain temps s'il n'est pas situé vers le haut de l'arborescence.

Nous allons donc modifier la fonction pour ne plus utiliser l'option de récursivité de la recherche.

Il faut alors connaître exactement les parents de l'objet recherché.

Pour nous aider, on peut utiliser les programmes inspect32.exe ou AccExplorer32.exe.

On note les parents du bouton Démarrer et leurs informations utiles :

Il est possible que certains objets n'aient pas de nom.

On peut alors également rechercher les objets à l'aide de la classe de fenêtre, ce que nous allons faire pour la barre des tâches (Shell_TrayWnd).

Le premier élément est l'élément recherché : un bouton poussoir de nom "Démarrer".

Le dernier élément est le bureau que l'on peut récupérer à l'aide de la fonction SetAccObjFromDesktop.

On démarre en fait de l'avant-dernier élément car la fonction nous permet de préciser qu'on veut récupérer l'objet client.

Function ClickStartupMenu()
Dim oAcc As ClAccessibility
' Nouvel objet
Set oAcc = New ClAccessibility
' Objet Bureau : client
oAcc.SetAccObjFromDesktop OBJID_CLIENT
' Barre des tâches : fenêtre
Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_WINDOW, , "Shell_TrayWnd")
' Barre des tâches : client
Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT, , "Shell_TrayWnd")
' Menu démarrer : fenêtre
Set oAcc = oAcc.FindChild("Démarrer", ROLE_SYSTEM_WINDOW)
' Menu démarrer : bouton poussoir
Set oAcc = oAcc.FindChild("Démarrer", ROLE_SYSTEM_PUSHBUTTON)
' Si on a trouver le bouton
If Not oAcc Is Nothing Then
    ' On clique dessus
    oAcc.DoDefaultAction
End If
End Function

Exécutez la fonction pour ouvrir le menu démarrer.

Les fonctions FindChild ne sont pas récursives dans cet exemple.

On maîtrise la descente niveau par niveau jusqu'à l'objet recherché.

On a vu dans cet exemple un principe récurrent qui veut qu'il y a presque toujours une fenêtre contenant un client.

La fenêtre contient également la barre de titre, le menu système, les barres de défilements, ...

Le client contient notamment les contrôles (listes, boutons, ...).

Cet exemple est réalisé avec Excel, à la suite du code précédent.

Cet exemple ne fonctionne qu'avec les anciennes versions de Windows où un texte était affiché sur le menu démarrer.

Nous allons modifier la fonction précédente ClickStartupMenu pour changer le texte du bouton Démarrer.

Le texte "Démarrer" est contenu dans la propriété name de l'objet.

Cette propriété est en écriture mais n'a aucun effet si on cherche à la modifier.

Même si cette propriété est bien définie en écriture pour l'objet IAccessible, elle n'est pas gérée en écriture par la plupart des objets. (C'est également le cas de la propriété value)

Par contre on peut modifier le texte de la fenêtre grâce à la fonction WindowSetText.

C'est fonction appelle l'API SetWindowText qui modifie le texte d'une fenêtre.

"Fenêtre" est à prendre au sens large : un bouton peut également être une fenêtre.

Function ChangeStartupMenu(pText As String)
Dim oAcc As ClAccessibility
' Nouvel objet
Set oAcc = New ClAccessibility
' Objet Bureau : client
oAcc.SetAccObjFromDesktop OBJID_CLIENT
' Barre des tâches : fenêtre
Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_WINDOW, , "Shell_TrayWnd")
' Barre des tâches : client
Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT, , "Shell_TrayWnd")
' Menu démarrer : fenêtre
Set oAcc = oAcc.FindChild("Démarrer", ROLE_SYSTEM_WINDOW)
' Menu démarrer : bouton poussoir
Set oAcc = oAcc.FindChild("Démarrer", ROLE_SYSTEM_PUSHBUTTON)
' Si on a trouver le bouton
If Not oAcc Is Nothing Then
    ' On change le texte
    oAcc.WindowSetText , pText
End If
End Function

Dans la fenêtre d'exécution :

ChangeStartupMenu "Coucou"

Le texte du bouton est modifié :

En version Office 2007, le menu Office a un rôle égal à ROLE_SYSTEM_BUTTONDROPDOWNGRID.

A partir de la version 2010, le menu Office est remplacé par un bouton poussoir simple « FICHIER » ; ce chapitre ne fonctionne donc que sur Office 2007.

Pour appuyer sur ce bouton, il suffit d'exécuter son action par défaut (DoDefaultAction).

Function OpenOfficeMenu()
    Dim oAcc As ClAccessibility
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Menu Office
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_BUTTONDROPDOWNGRID)
    ' Appuie sur le bouton du menu Office
    oAcc.DoDefaultAction
End Function

Si on exécute la fonction, le menu s'ouvre ou se ferme.

Si on souhaite ne pas fermer le menu, il faut vérifier s'il est déjà ouvert en testant la propriété state.

Function OpenOfficeMenu()
    Dim oAcc As ClAccessibility
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Menu Office
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_BUTTONDROPDOWNGRID)
    ' Si le bouton n'est pas déjà pressé
    If (oAcc.State And STATE_SYSTEM_PRESSED) <> STATE_SYSTEM_PRESSED Then
        ' Ouvre le menu Office
        oAcc.DoDefaultAction
    End If
End Function

Les onglets sont listés dans l'objet de rôle ROLE_SYSTEM_PAGETABLIST (en fait dans son client).

Remarque : les onglets contextuels sont des objets de rôle ROLE_SYSTEM_PAGETAB inclus dans un objet de rôle ROLE_SYSTEM_GROUPING.

Dans l'exemple ci-dessous, on ne les gère pas.

Function ListRibbonTabs()
    Dim oAcc As ClAccessibility
    Dim oTab As ClAccessibility
    Dim lCpt As Long
    Dim lText As String
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Liste des onglets
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PAGETABLIST)
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT)
    ' Parcourt les sous-éléments
    For lCpt = 1 To oAcc.Childcount
        ' Sous-élement
        Set oTab = oAcc.GetChild(lCpt)
        ' Si le sous-élément est un onglet
        If oTab.Role = ROLE_SYSTEM_PAGETAB Then
            ' Ajoute son nom et s'il est visible ou non
            lText = lText & vbCrLf & oTab.Name & " :" & IIf((oTab.State And STATE_SYSTEM_FOCUSABLE) = STATE_SYSTEM_FOCUSABLE, "visible", "invisible")
        End If
    Next
    ' Affiche le texte
    MsgBox lText
End Function

Ce code affiche la liste des onglets dans une boîte de message.

L'objet représentant l'onglet actif est situé dans le ruban inférieur (valeur Lower Ribbon de rôle ROLE_SYSTEM_PANE).

Ce ruban inférieur contient d'abord un client (ROLE_SYSTEM_CLIENT) puis l'onglet actif de rôle ROLE_SYSTEM_PROPERTYPAGE.

Créez un nouveau formulaire contenant une zone de texte nommé txtTexte.

Cette zone de texte affichera le nom de l'onglet courant.

Dans l'événement Sur minuterie du formulaire, on récupère l'objet représentant l'onglet courant et on inscrit le nom de cet onglet dans la zone de texte.

Private Sub Form_Timer()
    Dim oAcc As ClAccessibility
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Ruban inférieur
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PANE, "Lower Ribbon")
    ' Client sans nom
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT)
    ' Onglet actif
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE)
    ' Inscrit le nom de l'onglet actif dans la zone de texte
    If Not oAcc Is Nothing Then Me.txtTexte.Value = oAcc.Name
End Sub

N'oublions pas de préciser un intervalle de minuterie dans les propriétés du formulaire.

Afficher le formulaire et naviguer dans les onglets pour tester le code.

Dans cet exemple nous souhaitons activer un onglet.

Cela peut être utile pour afficher un onglet spécifique en fonction du contrôle actif.

Activer un onglet est simple : il suffit d'exécuter son action par défaut (DoDefaultAction).

Créez un nouveau formulaire dans lequel vous placez une zone de liste nommée lstOnglets.

La propriété Origine source de cette liste doit être égale à Liste valeurs.

On remplit la liste des onglets au démarrage du formulaire.

Le code est similaire à celui vu dans l'exemple 4-b : Lister les onglets du ruban.

Private Sub Form_Load()
    Dim oAcc As ClAccessibility
    Dim oTab As ClAccessibility
    Dim lCpt As Long
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Liste des onglets
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PAGETABLIST)
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT)
    ' Initialise la liste
    Me.lstOnglets.RowSource = ""
    ' Parcourt les sous-éléments
    For lCpt = 1 To oAcc.Childcount
        ' Sous-élement
        Set oTab = oAcc.GetChild(lCpt)
        ' Si le sous-élément est un onglet
        If oTab.Role = ROLE_SYSTEM_PAGETAB Then
            ' Ajoute son nom à la liste
            If Not Me.lstOnglets.RowSource = "" Then Me.lstOnglets.RowSource = Me.lstOnglets.RowSource & ";"
            Me.lstOnglets.RowSource = Me.lstOnglets.RowSource & oTab.Name
        End If
    Next
End Sub

Ensuite lorsqu'on choisit un onglet dans la liste, on active l'onglet correspondant dans le ruban.

Private Sub lstOnglets_AfterUpdate()
    Dim oAcc As ClAccessibility
    Dim oTab As ClAccessibility
    Dim lCpt As Long
    Set oAcc = New ClAccessibility
    ' Objet ruban
    oAcc.SetAccObjFromObject CommandBars("ribbon")
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PROPERTYPAGE, "Ribbon", , , True)
    ' Liste des onglets
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_PAGETABLIST)
    Set oAcc = oAcc.FindChild(, ROLE_SYSTEM_CLIENT)
    ' Parcourt les sous-éléments
    For lCpt = 1 To oAcc.Childcount
        ' Sous-élement
        Set oTab = oAcc.GetChild(lCpt)
        ' Si le sous-élément est l'onglet sélectionné dans la liste
        If oTab.Role = ROLE_SYSTEM_PAGETAB And oTab.Name = Nz(Me.lstOnglets.Value) Then
            ' Active l'onglet
            oTab.DoDefaultAction
        End If
    Next
End Sub

Choisissez un élément de la liste, l'onglet correspondant s'affiche.

Remarque : on n'a pas filtré les onglets invisibles.

Si vous cliquez sur une entrée de liste correspondant à un onglet invisible, rien ne se produit.