[R] Obtenir le statut d'un checkBox

[tititoto]

Bonjour,

J'aimerais savoir si un checkBox d'une application qui n'a pas était développer sous autoit est coché ou non.

J'ai utilisé la fonction suivante :

Code : Tout sélectionner

ControlCommand($class, "", $className, "IsChecked", "")

Mais hélas, celà me retourne toujours 0.

Une autre solution est envisageable

Merci

>>>> Control <<<<
Class: TElCheckBox
Instance: 1
ClassnameNN: TElCheckBox1
Name:
Advanced (Class): [CLASS:TElCheckBox; INSTANCE:1]
ID: 134680
Text: CheckBox1
Position: 779, 443
Size: 15, 17
ControlClick Coords: 9, 7
Style: 0x54010000
ExStyle: 0x00000000
Handle: 0x00020E18

[ZDS]

Bonjour,

La syntaxe me parait bonne pourtant. Quel est le contenu des variables $class et $classname? pour rappel, $class doit correspondre à la fenêtre, pas à "TElCheckBox"; et $classname à "TElCheckBox1".

A bientôt.

PS: Remplace par un ControlClick pour voir le comportement. Si le clic se fait, ce n'est pas un souci d'identifiant.

[tititoto]

Bonjour,

$class correspond bien à la classe de la fenêtre et $classname à "TElCheckBox1".

Le controlClick fonctionne, la case se coche/décoche.

Mais impossible d'avoir l'état, peut être est-ce un composant non géré par autoit.

[Tlem]

Bonsoir. Ceci devrait fonctionner :

Code : Tout sélectionner

If ControlCommand($class, "", "[CLASS:TElCheckBox; INSTANCE:1]", "IsChecked", "") Then
    MsgBox(1, "Status", "Coché")
Else
    MsgBox(0, "Status", "Pas Coché")
EndIf

L'idéal serait soit de mettre le titre de la fenêtre, soit d'en récupérer le handle et de remplacer $class par cette information.

[tititoto]

Bonjour,

Voici le détail de la fenêtre :

>>>> Window <<<<
Title: mon titre
Class: TFormMenuMain
Position: 1672, -8
Size: 1696, 1066
Style: 0x17CF0000
ExStyle: 0x00050100
Handle: 0x00010502

J'ai donc essayé ça :

Code : Tout sélectionner

WinActivate("mon titre")

If ControlCommand("[CLASS:TFormMenuMain]", "", "[CLASS:TElCheckBox; INSTANCE:1]", "IsChecked", "") Then
    MsgBox(1, "Status", "Coché")
Else
    MsgBox(0, "Status", "Pas Coché")
EndIf
 

Le résultat est toujours le même : Pas coché

Code : Tout sélectionner

WinActivate("mon titre")

If ControlCommand("mon titre", "", "[CLASS:TElCheckBox; INSTANCE:1]", "IsChecked", "") Then
    MsgBox(1, "Status", "Coché")
Else
    MsgBox(0, "Status", "Pas Coché")
EndIf
 

Le résultat est toujours le même : Pas coché

Et enfin, avec le handle :

Code : Tout sélectionner

WinActivate("mon titre")
$Handle = WinGetHandle("mon titre")

If ControlCommand($Handle, "", "[CLASS:TElCheckBox; INSTANCE:1]", "IsChecked", "") Then
    MsgBox(1, "Status", "Coché")
Else
    MsgBox(0, "Status", "Pas Coché")
EndIf
 

Le résultat est toujours le même : Pas coché

Une solution peut être possible, détecter s'il y a du pixel noir dans le checkbox, pas très propre, mais si ça peut faire le boulot

Edit :

La solution avec la couleur du pixel :

► Afficher le texteSolution du pixel

Code : Tout sélectionner

    Opt("PixelCoordMode", 2) ;1=absolute, 0=relative, 2=client

    Local $taille = ControlGetPos($class, "", $className)
    Local $color = PixelGetColor($taille[0] + 7, $taille[1] + 8) ;couleur en decimal
    $color = Hex($color, 6) ;couleur en hexa

    If $color = "000000" Then ;si le pixel est noir alors c'est coché
        return 1
    Else
        return 0
    EndIf

Bon ça marche, mais c'est quand même surprenant que le ControlCommand lui ne fonctionne pas.

Si vous avez une solution plus propre je suis preneur, sinon je mettrai le topic résolu en fin de semaine, merci.

[jguinch]

A priori, le control TElCheckBox n'est pas reconnu comme un type checkbox.
C'est quoi ton logiciel ? On pourrait tester ?

[tititoto]

C'est un logiciel interne de mon entreprise. Donc non, il ne sera pas possible de le tester de votre côté

[Tlem]

Étrange votre histoire ...
Vous avez indiqué que le ControlClick() fonctionne, mais est-ce que ceci fonctionne aussi ?

Code : Tout sélectionner

$Handle = WinGetHandle("mon titre")
ControlCommand($Handle, "", "[CLASS:TElCheckBox; INSTANCE:1]", "Check", "")

[tititoto]

Étrange votre histoire ...
Vous avez indiqué que le ControlClick() fonctionne, mais est-ce que ceci fonctionne aussi ?

Code : Tout sélectionner

$Handle = WinGetHandle("mon titre")
ControlCommand($Handle, "", "[CLASS:TElCheckBox; INSTANCE:1]", "Check", "")

Check : Coche ou décoche le checkBox (Ne devrait-il pas seulement le cocher ?)
UnCheck : Ne fait rien

[Tlem]

Si la commande "Check" vous coche bien le bouton, alors la commande IsChecked devrait vous renvoyer 1 s'il est coché.

Code : Tout sélectionner

$Handle = WinGetHandle("mon titre")
$Res = ControlCommand($Handle, "", "[CLASS:TElCheckBox; INSTANCE:1]", "IsChecked", "")
MsgBox(64, "Retour IsChecked", $Res)

Ce code est sensé fonctionner et vous afficher 1 si le bouton est coché. Si ce n'est pas le cas, c'est que les composants de l'interface de votre application ne sont pas standard et la solution de détecter la couleur est une autre alternative. ^^

[tititoto]

Si ce n'est pas le cas, c'est que les composants de l'interface de votre application ne sont pas standard

C'est surement ça, je passe le sujet en résolu, merci