[R] Gui multi Tab + FileSelectFolder visible dans input

[pierrotm777]

Bonjour,

1-J'ai une Gui avec plusieur Tab "GUICtrlCreateTab".
Je voudrais qu'à l'ouverture de mon programme, celui-ci se place sur le 6ème Tab .
Y a t-il une solution simple ?

2- Est il possible de voir apparaitre la sélection (nom du dossier)que l'on fait dans une commande "FileSelectFolder" .


Merci par avance

[Tlem]

Pour votre première question, c'est Oui.
Rajoutez dans votre code des variables pour chaque TabItem créé.

Ensuite, juste avant le GUISetState affiché le TabItem par son handle.

Code : Tout sélectionner

GUICtrlSetState($Tab6, $GUI_SHOW)
GUISetState(@SW_SHOW)

Pour votre deuxième question, je ne comprend pas ce que vous cherchez à faire !!!

[pierrotm777]

Bonjour Tlem,

Merci pour la première question, je test dès que possible.

Ma deuxième question, j'utilise la fonction "FileSelectFolder" pour choisir un dossier .
Tout fonctionne trés bien , mais le dossier choisi ne reste pas apparent (vide , blanc) dans le input du FileSelectFolder .

[Tlem]

Pouvez-vous montrer votre code pour le FileSelectFolder et éventuellement une image, car là j'ai vraiment du mal à cerner votre problème.

Pour moi, si je fait ceci :

Code : Tout sélectionner

$var = FileSelectFolder("Choose a folder.", "C:\", 4)
 

j'ai bien un input vierge au départ, et si je clique sur un dossier, il apparaît dans le input ...

[pierrotm777]

[quote="Tlem"]Pour votre première question, c'est Oui.
Rajoutez dans votre code des variables pour chaque TabItem créé.

Ensuite, juste avant le GUISetState affiché le TabItem par son handle.

Code : Tout sélectionner

GUICtrlSetState($Tab6, $GUI_SHOW)
GUISetState(@SW_SHOW)

Essai transformé !

Merci Tlem

[pierrotm777]

Pouvez-vous montrer votre code pour le FileSelectFolder et éventuellement une image, car là j'ai vraiment du mal à cerner votre problème.

Pour moi, si je fait ceci :

Code : Tout sélectionner

$var = FileSelectFolder("Choose a folder.", "C:\", 4)
 

j'ai bien un input vierge au départ, et si je clique sur un dossier, il apparaît dans le input ...

Voici mon code:

Code : Tout sélectionner

$aFic_SkinPath = FileSelectFolder($RRSKINPATH & "Plugs\SpeedZoneLimit", $RRSKINPATH & "Plugs\SpeedZoneLimit" , 4)

Je joint un jpg, la sélection du dossier se faisant dans le bas

[Tlem]

Si je comprend bien, votre problème est que lorsque vous avez choisi un dossier, il ne s'affiche pas dans le Input 'Choose RR Path !!!'.
C'est bien ça ?

[pierrotm777]

Si je comprend bien, votre problème est que lorsque vous avez choisi un dossier, il ne s'affiche pas dans le Input 'Choose RR Path !!!'.
C'est bien ça ?

Vouiiii C'eest ben ça !

[Tlem]

Hé bien d'après votre code, la variable $var prendra la valeur de retour du FileSelectFolder.
C'est à dire le chemin du dossier (ou rien si l'utilisateur annule).
Ensuite il vous suffit d'attribuer cette valeur à votre input.
Lorsque dans votre code vous créez un élément graphique, vous récupérez son ID dans une variable, n'est-ce pas ?
Donc après, il vous suffit d'utiliser GuiCtrlSetData pour attribuer la valeur à l'élément graphique créez précédemment ...

[pierrotm777]

Hé bien d'après votre code, la variable $var prendra la valeur de retour du FileSelectFolder.
C'est à dire le chemin du dossier (ou rien si l'utilisateur annule).
Ensuite il vous suffit d'attribuer cette valeur à votre input.
Lorsque dans votre code vous créez un élément graphique, vous récupérez son ID dans une variable, n'est-ce pas ?
Donc après, il vous suffit d'utiliser GuiCtrlSetData pour attribuer la valeur à l'élément graphique créez précédemment ...

J'ai trouvé mon erreur

► Afficher le texte

Voici mon Gui

Code : Tout sélectionner

$DirPATH = GUICtrlCreateInput("", 180, 280, 150, 21)
$setupSpeedzoneFound ="Choose RR PATH !!!"
$labelSpeedzoneFound = GUICtrlCreateLabel($setupSpeedzoneFound, 16, 282, 200, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Choix_SKINPATH = GUICtrlCreateButton("...", 340, 280, 20, 20)

Voici donc mon code

Code : Tout sélectionner

        Case $Choix_SKINPATH
            $RRSKINPATH = IniRead("C:\Program Files\Ride Runner\rr.ini", "Skins", "skinpath", $RRpath)
            
            If  FileExists("C:\Program Files\Ride Runner\rr.ini") Then
            
            $aFic_SkinPath = FileSelectFolder($RRSKINPATH & "Plugs\SpeedZoneLimit", $RRSKINPATH & "Plugs\SpeedZoneLimit" , 4)

            If $aFic_SkinPath <> "" Then GUICtrlSetData($DirPATH,$RRSKINPATH)

Merci beaucoup !

[Tlem]

A quoi vous sert la lecture du fichier .ini sur la sélection de la destination ?

[pierrotm777]

Bonjour,

Ce fichier rr.ini n'existe que si son programme associé,
Ride Runner est installé.

Si c'est le cas, il est précisé dans ce fichier rr.ini , un
chemin que j'utilise pour créer ma variable $RRSKINPATH .

[Tlem]

Logiquement, cette ligne :

Code : Tout sélectionner

If $aFic_SkinPath <> "" Then GUICtrlSetData($DirPATH,$RRSKINPATH)

devrait être :

Code : Tout sélectionner

If $aFic_SkinPath <> "" Then GUICtrlSetData($DirPATH,$aFic_SkinPath)

sinon, à quoi vous sert la sélection du dossier ...

[pierrotm777]

Effectivement, j'ai corrigé.

Merci Tlem