[R] Treeview - Liste et bouton radio

[Loulou63]

Bonsoir à tous,

Il se fait tard, je sais. J'ai deux demandes qui touche une TreeView.


1) Existe-t'il un moyen de lister les éléments d'une treeview?
2) Comment cliquer sur un bouton-radio dans une treeview?


Merci pour vos réponses?

[Loulou63]

J'ai vu qu'il existait des commandes du genre _GUICtrlTreeView, mais je ne sais pas comment faire.

Mon script touche le menu "Option des dossiers" pour info.

Ce bout de code ne coche pas "Afficher les dossier et les fichiers cachés" ni l'option "Toujours afficher les menus" et ca ne décoche pas l'option "Utiliser l'Assistant Partage (recommandé)".

► Afficher le texte

Code : Tout sélectionner

ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:&Paramètres par défaut]")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Fichiers et dossiers cachés|Afficher les fichiers et dossiers cachés")
ControlClick("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Masquer les extensions des fichiers dont le type est connu")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Toujours afficher les menus")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Utiliser l'Assistant Partage (recommandé)")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:OK]")

Pou rque les cases se cochent, il faut que j'enleve ce code

► Afficher le texte

Code : Tout sélectionner

ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:&Paramètres par défaut]")

[Loulou63]

Pour ce code

► Afficher le texte

Code : Tout sélectionner

ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Toujours afficher les menus")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")

J'ai viré :

Code : Tout sélectionner

ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")

Et c'est bon.

Par contre pour lui je coince :

► Afficher le texte

Code : Tout sélectionner

ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", "Fichiers et dossiers|Utiliser l'Assistant Partage (recommandé)")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")

[mikell]

Le ControlTreeView et le ControlSend fonctionnent chez moi avec
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; INSTANCE:1]",...

[Loulou63]

J'ai réussi a corriger le problème c'était dû à une apostrophe qui était différente.

Mon apostrophe ' et celle de l'option ’.

Grâce à cette option

► Afficher le texte

Code : Tout sélectionner

$MenuTree="Fichiers et dossiers|"
$recup=ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", $MenuTree&"#0|#17)

Puis

► Afficher le texte

Code : Tout sélectionner

Run("Notepad")
Send($recup)

J'ai pu récupérer le texte mais le problème c'est que j'ai été obligé de compter manuellement, je ne sais pas comment lister de maniere auto, un peu comme en vbs, ou tu peux lister des éléments jusqu'à qu'il n'en trouve plus.

Voici mon code final et fonctionnel :

► Afficher le texte

Code : Tout sélectionner

AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 50)
AutoItSetOption("WinWaitDelay", 500)
$Temporisation = 250

SplashTextOn("", "Paramétrage des options des dossiers", 400, 45, -1, 10, 1)

Sleep($Temporisation)
Run("control.exe folders")

Sleep($Temporisation)
While Not WinActive("Options des dossiers", "")
    Sleep($Temporisation * 2)
    WinActivate("Options des dossiers", "")
WEnd
While Not WinActive("Options des dossiers", "Affichage")
    ControlCommand("Options des dossiers", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabRight")
    Sleep($Temporisation * 2)
    WinActivate("Options des dossiers", "Affichage")
WEnd

$MenuTree="Fichiers et dossiers|"
ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:&Paramètres par défaut]")
ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:&Appliquer]")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", $MenuTree&"Fichiers et dossiers cachés|Afficher les fichiers, dossiers et lecteurs cachés")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", $MenuTree&"Masquer les extensions des fichiers dont le type est connu")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", $MenuTree&"Toujours afficher les menus")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlTreeView("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "Select", $MenuTree&"Utiliser l’Assistant Partage (recommandé)")
ControlSend("Options des dossiers", "Affichage", "[CLASS:SysTreeView32; TEXT:Tree1]", "{SPACE}")
ControlClick("Options des dossiers", "Affichage", "[CLASS:Button; TEXT:OK]")

[mikell]

le problème c'est que j'ai été obligé de compter manuellement, je ne sais pas comment lister de maniere auto

ça ne marche pas ?

ControlTreeView
"GetItemCount", "item" : Returns the number of children for a selected item.

[Loulou63]

Si ca marche mais je voulais savoir comment faire pour récupérer chaque item et sous item et les mettre dans un notepad par exemple.

En vbs,ca donnerait un truc du genre :

► Afficher le texte

Code : Tout sélectionner

'Permet de verrouiller les variables pour éviter les erreurs de saisie'
Option explicit
'Je définit les variables pour mon script'
Dim objFSO,MonRepertoire,CollecFichier, Fichier,Arguments,LesArguments
'Uilisation d'une boucle pour utiliser chaque argument saisi par le collaborateur
Set LesItems = wscript.Arguments
For each Items in LesItems
    ....
        Resultat = wscript.echo
        'Ecriture de la variable Resultat dans un fichier texte
        'J'instancie la variable objFSO par l'objet FileSystemObject'
Set objFSO = CreateObject("Scripting.FileSystemObject")
'J'instancie la variable objFile pour la création du document writetest1'
Set objFile = objFSO.CreateTextFile("c:\scripts\Test\writetest1.txt",1)
'Ecriture de texte dans le fichier
objFile.Write (Resulat)
objFile.WriteBlankLines(1)
Next

Un truc du genre.

[mikell]

Ben ça devrait donner qqe chose comme ça

Code : Tout sélectionner

$text = ""
$nbitems = ControlTreeView ( "title", "text", controlID, "GetItemCount", "#1")
For $i = 0 to $nbitems-1  
    $text &= ControlTreeView ( "title", "text", controlID, "GetText", "#1|#" & $i) & @CRLF
Next
Msgbox(0,"", $text)

Enfin un truc du genre

[Loulou63]

Ben ça devrait donner qqe chose comme ça

Code : Tout sélectionner

$text = ""
$nbitems = ControlTreeView ( "title", "text", controlID, "GetItemCount", "#1")
For $i = 0 to $nbitems-1  
    $text &= ControlTreeView ( "title", "text", controlID, "GetText", "#1|#" & $i) & @CRLF
Next
Msgbox(0,"", $text)

Enfin un truc du genre

Merci pour l'info.

[Tlem]

@Loulou63
Je vous ai déjà dit qu'il est inutile de citer le texte qui précède votre réponse.

[Loulou63]

Désolé