[R] Placer un button dans un onglet d'une gui

[jl56]

Bonjour à tous,

J'ai besoin de créer dynamiquement des boutons dans un onglet précis.
J'y arrive en plaçant manuellement les commandes à la suite de la création de l'onglet dans la section de koda.
Mais lors que je modifie ma gui à l'aide de koda celui ci m'efface mes lignes de commandes Normal !!
Je dois alors réinsérer mes lignes de commande à chaque modif.

Savez vous comment insérer des éléments dans un onglet précis, hors de la section koda ?
exemple dans le code suivant
mettre le Button2 uniquement sur tabsheet1 et Button3 sur tabsheet2

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\pi\auditpi\onglet.kxf
Global $Form1_1 = GUICreate("Form1", 616, 438, 192, 124)
Global $Tab1 = GUICtrlCreateTab(57, 48, 443, 273)
Global $TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
Global $Button1 = GUICtrlCreateButton("Button1 sur tabsheet1", 95, 169, 159, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $Button2 = GUICtrlCreateButton("Button2 sur tabsheet1", 70, 279, 159, 25)
Global $Button3 = GUICtrlCreateButton("Button3 sur tabsheet2", 230, 279, 159, 25)
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
 

Merci de vos suggestions

JL56

[jguinch]

Il faut utiliser GUISwitch

[jl56]

@jguinch

Merci ça fonctionne par contre le bouton 2 du tabsheet1 n'apparaissait pas du 1er coup il fallait aller sur le tabsheet2 et revenir sur le 1 pour le voir

j'ai rajouté une ligne pour afficher directement GUICtrlSetState($TabSheet1,$GUI_SHOW)

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\pi\auditpi\onglet.kxf
Global $Form1_1 = GUICreate("Form1", 616, 438, 192, 124)
Global $Tab1 = GUICtrlCreateTab(57, 48, 443, 273)
Global $TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
Global $Button1 = GUICtrlCreateButton("Button1 sur tabsheet1", 95, 169, 159, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


GUISwitch( $Form1_1,$TabSheet2)
Global $Button3 = GUICtrlCreateButton("Button3 sur tabsheet2", 230, 279, 159, 25)
GUISwitch( $Form1_1,$TabSheet1)
Global $Button2 = GUICtrlCreateButton("Button2 sur tabsheet1", 70, 279, 159, 25)
GUICtrlSetState($TabSheet1,$GUI_SHOW)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd

Code pour l'exemple

A+ JL56

[jguinch]

par rapport au pb du bouton 2 du tabsheet1, tu peux poster ton code qui déconne ? Il doit y avoir une explication.

[jl56]

@jguinch

bonjour,

c'est simple tu enléves GUICtrlSetState($TabSheet1,$GUI_SHOW)

sinon c'est tu comment mettre de la couleur de fond sur les onglets ?

Merci

A+

JL56

[jguinch]

Comme l'indique la doc de la fonction GUICtrlCreateTabItem (partie Remarks):
To create a new control on an existing tabitem, use GUISwitch($hWin, $tabitem) to select the correct tabitem and then create the new control. Do not forget to close the tabitem structure once again with GUICtrlCreateTabItem("").
Donc il faut ajouter GUICtrlCreateTabItem("") après la création du bouton (à la place du GUICtrlSetState)

Pour la couleur, non, je ne sais pas, mais ça doit se trouver...

[jl56]

@jguinch

Bonjour,

Merci ça fonctionne bien et désolé comme je l'ai déjà mentionné je ne lis pas l'anglais mais ce n'est pas une excuse.

J'ai donc pour me corriger lu l'aide et au dessous de la phrase que tu cites il y a

The tabitem control cannot be colored (too much code ...).

ce qui répond également a ma 2émm question dommage

A+

JL56

[mdanielm]

Bonjour,
Il existe un fichier d'aide partiellement en FR :

http://www.autoitscript.fr/download/ind ... mentation/

Il faut le renommer AutoIt.chm et le substituer à la version EN:
c:\Program Files\AutoIt3\AutoIt.chm

Participez à la mise au point en relisant les pages et en signalant des erreurs.
Merci

[jl56]

@mdanielm

Bonsoir,

Intéressant merci mais ça ne fonctionne pas j'ai testé tes 2 fichiers en renomment l'ancien fichier AutoIt-us.chm
et les tiens AutoIt.chm. dans le dossier C:\Program Files (x86)\AutoIt3
lorsque j'appuie sur F1 il n'y a rien qui s'affiche a droite j'ai une liste vide

est ce un probleme de version ou de system

A+

JL56

[walkson]

Clic droit => propriété => débloquer

[jl56]

@walkson

Bonjour,

Merci pour l'astuce ça fonctionne bien et merci @mdanielm et a tout les traducteurs d'autoit
C'est beaucoup plus agréable ainsi

A+ JL56