[R] Action bouton + contrôle bouton radio

[ludoo]

Bonjour à tous,
voici un petit probleme pour les pro , mais pour moi je galère.
explication du script : on clique le radio pour choisir le mouvement et apres apparait dans la partie groupe Mouvement utilisateur , les info qui vont bien.
ce pendant je voulais rajouter soit 2 bouton radio pour avoir une info supplémentaire ou une checkbox mais la je bloque.
voici le script:

► Afficher le texte

Code : Tout sélectionner

;***** Les includes ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
; variables pour les labels AD départ et mutation
Dim Const $txtDM_1A = "Suppression des groupes utilisateur en attente"
Dim Const $txtDM_1EC = "Suppression des groupes utilisateur en cours"
Dim Const $txtDM_1T = "Suppression des groupes utilisateur terminé"
Dim Const $txtDM_2A = "Déplacement de l'utilisateur dans l'OU Mutation en attente"
Dim Const $txtDM_2EC = "Déplacement de l'utilisateur dans l'OU Mutation en cours"
Dim Const $txtDM_2T = "Déplacement de l'utilisateur dans l'OU Mutation terminé"
Dim Const $txtDM_3A = "Suppression du Profil utilisateur en attente"
Dim Const $txtDM_3EC = "Suppression du Profil utilisateur en cours"
Dim Const $txtDM_3T = "Suppression du Profil utilisateur terminé"
Dim Const $txtDM_4A = "Suppression de l'utilisateur du domaine AT en attente"
Dim Const $txtDM_4EC = "Suppression de l'utilisateur du domaine AT en cours"
Dim Const $txtDM_4T = "Suppression de l'utilisateur du domaine AT terminé"

; variables pour les labels Migration RDS
Dim Const $txtRDS_1A = "Ajout de l'utilisateur dans le groupe RDS en attente"
Dim Const $txtRDS_1EC = "Ajout de l'utilisateur dans le groupe RDS en cours"
Dim Const $txtRDS_1T = "Ajout de l'utilisateur dans le groupe RDS terminé"
Dim Const $txtRDS_2A = "Déplacement de l'utilisateur dans l'OU RDS en attente"
Dim Const $txtRDS_2EC = "Déplacement de l'utilisateur dans l'OU RDS en cours"
Dim Const $txtRDS_2T = "Déplacement de l'utilisateur dans l'OU RDS terminé"

; variables pour les labels Sauvegarde
Dim Const $txtSAUVE_1A = "Suppression sauvegarde Pablo en attente"
Dim Const $txtSAUVE_1EC = "Suppression sauvegarde Pablo en cours"
Dim Const $txtSAUVE_1T = "Suppression sauvegarde Pablo terminé"
Dim Const $txtSAUVE_2A = "Suppression sauvegarde Firefox en attente"
Dim Const $txtSAUVE_2EC = "Suppression sauvegarde Firefox en cours"
Dim Const $txtSAUVE_2T = "Suppression sauvegarde Firefox terminé"
Dim Const $txtSAUVE_3A = "Suppression sauvegarde Favoris en attente"
Dim Const $txtSAUVE_3EC = "Suppression sauvegarde Favoris en cours"
Dim Const $txtSAUVE_3T = "Suppression sauvegarde Favoris terminé"
Dim Const $txtSAUVE_4A = "Suppression sauvegarde Open office en attente"
Dim Const $txtSAUVE_4EC = "Suppression sauvegarde Open office en cours"
Dim Const $txtSAUVE_4T = "Suppression sauvegarde Open office terminé"
Dim Const $txtSAUVE_5A = "Suppression sauvegarde Dossier local en attente"
Dim Const $txtSAUVE_5EC = "Suppression sauvegarde Dossier local en cours"
Dim Const $txtSAUVE_5T = "Suppression sauvegarde Dossier local terminé"
Dim Const $txtSAUVE_5CCA = "Copie sauvegarde Dossier local vers FTP en attente"
Dim Const $txtSAUVE_5CC = "Copie sauvegarde Dossier local vers FTP en cours"
Dim Const $txtSAUVE_5CCT = "Copie sauvegarde Dossier local vers FTP terminé"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\bernardlu\documents\autoit\script\depart_utilisateurs\form1.kxf
Global $Form1_1 = GUICreate("Form1", 625, 443, 364, 203)
GUISetBkColor(0xFFFFFF)
Global $Group1 = GUICtrlCreateGroup("Mouvement Utilisateurs", 8, 8, 609, 425)
Global $Label1 = GUICtrlCreateLabel("renseigner le nom de login utilisateur", 16, 24, 200, 17, $WS_GROUP)
Global $Radio1 = GUICtrlCreateRadio("Mutation", 344, 24, 113, 25)
Global $Radio2 = GUICtrlCreateRadio("Départ", 344, 48, 113, 25)
Global $Radio3 = GUICtrlCreateRadio("Migration RDS", 344, 70, 113, 25)
Global $Input1 = GUICtrlCreateInput("", 16, 48, 190, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $Group2 = GUICtrlCreateGroup("...", 16, 96, 280, 273)
Global $Label3 = GUICtrlCreateLabel("", 24, 120, 250, 17)
Global $Label4 = GUICtrlCreateLabel("", 24, 152, 250, 17)
Global $Label5 = GUICtrlCreateLabel("", 24, 184, 250, 17)
Global $Label6 = GUICtrlCreateLabel("", 24, 216, 250, 17)
Global $Label7 = GUICtrlCreateLabel("", 24, 248, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Lancer", 208, 384, 90, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Quitter", 336, 384, 90, 33, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Activer", 464, 32, 97, 57, $WS_GROUP)
Global $Group3 = GUICtrlCreateGroup("Active Directory", 328, 96, 280, 273)
Global $Label8 = GUICtrlCreateLabel("", 336, 120, 250, 17)
Global $Label9 = GUICtrlCreateLabel("", 336, 152, 250, 17)
Global $Label10 = GUICtrlCreateLabel("", 336, 184, 250, 17)
Global $Label11 = GUICtrlCreateLabel("", 336, 216, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("Numéro d'UC (XXX)", 224, 24, 100, 17, $WS_GROUP)
Global $Input2 = GUICtrlCreateInput("", 224, 48, 90, 20, $ES_NUMBER, BitOR($ES_AUTOHSCROLL,$WS_GROUP))

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $Button3 Then
        If GUICtrlRead($Radio1) = 1 Then
            Global $Group2 = GUICtrlCreateGroup("Mouvement mutation", 16, 96, 280, 273)
            Global $Radio4 = GUICtrlCreateRadio("Avec Transfert Dossier local vers FTP", 24, 310, 200, 25)
            Global $Radio5 = GUICtrlCreateRadio("Sans Transfert Dossier local vers FTP", 24, 330, 200, 25)
            Global $Button4 = GUICtrlCreateButton("Activer", 232, 320, 49, 25, $WS_GROUP)
;~          GUICtrlSetState($Button4, $GUI_HIDE)
            GUICtrlSetData($Label3, $txtSAUVE_1A)
            GUICtrlSetData($Label4, $txtSAUVE_2A)
            GUICtrlSetData($Label5, $txtSAUVE_3A)
            GUICtrlSetData($Label6, $txtSAUVE_4A)
            If $nMsg = $Button4 Then
                If GUICtrlRead($Radio4) = 1 Then
                    GUICtrlSetData($Label7, $txtSAUVE_5CCA)
                EndIf
                If GUICtrlRead($Radio5) = 1 Then
                    GUICtrlSetData($Label7, $txtSAUVE_5A)
                EndIf
            EndIf
        EndIf

    EndIf
$loginad = GUICtrlRead($Input1)
    $uc = GUICtrlRead($Input2)




 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
 

merci de votre aide.

[pierrotm777]

En espérant que cela vous aide un peu !

► Afficher le texte

Code : Tout sélectionner

;***** Les includes ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;#include <AD.au3>
; variables pour les labels AD départ et mutation
Dim Const $txtDM_1A = "Suppression des groupes utilisateur en attente"
Dim Const $txtDM_1EC = "Suppression des groupes utilisateur en cours"
Dim Const $txtDM_1T = "Suppression des groupes utilisateur terminé"
Dim Const $txtDM_2A = "Déplacement de l'utilisateur dans l'OU Mutation en attente"
Dim Const $txtDM_2EC = "Déplacement de l'utilisateur dans l'OU Mutation en cours"
Dim Const $txtDM_2T = "Déplacement de l'utilisateur dans l'OU Mutation terminé"
Dim Const $txtDM_3A = "Suppression du Profil utilisateur en attente"
Dim Const $txtDM_3EC = "Suppression du Profil utilisateur en cours"
Dim Const $txtDM_3T = "Suppression du Profil utilisateur terminé"
Dim Const $txtDM_4A = "Suppression de l'utilisateur du domaine AT en attente"
Dim Const $txtDM_4EC = "Suppression de l'utilisateur du domaine AT en cours"
Dim Const $txtDM_4T = "Suppression de l'utilisateur du domaine AT terminé"

; variables pour les labels Migration RDS
Dim Const $txtRDS_1A = "Ajout de l'utilisateur dans le groupe RDS en attente"
Dim Const $txtRDS_1EC = "Ajout de l'utilisateur dans le groupe RDS en cours"
Dim Const $txtRDS_1T = "Ajout de l'utilisateur dans le groupe RDS terminé"
Dim Const $txtRDS_2A = "Déplacement de l'utilisateur dans l'OU RDS en attente"
Dim Const $txtRDS_2EC = "Déplacement de l'utilisateur dans l'OU RDS en cours"
Dim Const $txtRDS_2T = "Déplacement de l'utilisateur dans l'OU RDS terminé"

; variables pour les labels Sauvegarde
Dim Const $txtSAUVE_1A = "Suppression sauvegarde Pablo en attente"
Dim Const $txtSAUVE_1EC = "Suppression sauvegarde Pablo en cours"
Dim Const $txtSAUVE_1T = "Suppression sauvegarde Pablo terminé"
Dim Const $txtSAUVE_2A = "Suppression sauvegarde Firefox en attente"
Dim Const $txtSAUVE_2EC = "Suppression sauvegarde Firefox en cours"
Dim Const $txtSAUVE_2T = "Suppression sauvegarde Firefox terminé"
Dim Const $txtSAUVE_3A = "Suppression sauvegarde Favoris en attente"
Dim Const $txtSAUVE_3EC = "Suppression sauvegarde Favoris en cours"
Dim Const $txtSAUVE_3T = "Suppression sauvegarde Favoris terminé"
Dim Const $txtSAUVE_4A = "Suppression sauvegarde Open office en attente"
Dim Const $txtSAUVE_4EC = "Suppression sauvegarde Open office en cours"
Dim Const $txtSAUVE_4T = "Suppression sauvegarde Open office terminé"
Dim Const $txtSAUVE_5A = "Suppression sauvegarde Dossier local en attente"
Dim Const $txtSAUVE_5EC = "Suppression sauvegarde Dossier local en cours"
Dim Const $txtSAUVE_5T = "Suppression sauvegarde Dossier local terminé"
Dim Const $txtSAUVE_5CCA = "Copie sauvegarde Dossier local vers FTP en attente"
Dim Const $txtSAUVE_5CC = "Copie sauvegarde Dossier local vers FTP en cours"
Dim Const $txtSAUVE_5CCT = "Copie sauvegarde Dossier local vers FTP terminé"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\bernardlu\documents\autoit\script\depart_utilisateurs\form1.kxf
Global $Form1_1 = GUICreate("Form1", 625, 443, 364, 203)
GUISetBkColor(0xFFFFFF)
Global $Group1 = GUICtrlCreateGroup("Mouvement Utilisateurs", 8, 8, 609, 425)
Global $Label1 = GUICtrlCreateLabel("renseigner le nom de login utilisateur", 16, 24, 200, 17, $WS_GROUP)
Global $Radio1 = GUICtrlCreateRadio("Mutation", 344, 24, 113, 25)
Global $Radio2 = GUICtrlCreateRadio("Départ", 344, 48, 113, 25)
Global $Radio3 = GUICtrlCreateRadio("Migration RDS", 344, 70, 113, 25)
Global $Input1 = GUICtrlCreateInput("", 16, 48, 190, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $Group2 = GUICtrlCreateGroup("...", 16, 96, 280, 273)
Global $Label3 = GUICtrlCreateLabel("", 24, 120, 250, 17)
Global $Label4 = GUICtrlCreateLabel("", 24, 152, 250, 17)
Global $Label5 = GUICtrlCreateLabel("", 24, 184, 250, 17)
Global $Label6 = GUICtrlCreateLabel("", 24, 216, 250, 17)
Global $Label7 = GUICtrlCreateLabel("", 24, 248, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Lancer", 208, 384, 90, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Quitter", 336, 384, 90, 33, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Activer", 464, 32, 97, 57, $WS_GROUP)

Global $Group2 = GUICtrlCreateGroup("Mouvement mutation", 16, 96, 280, 273)
Global $Radio4 = GUICtrlCreateRadio("Avec Transfert Dossier local vers FTP", 24, 310, 200, 25)
Global $Radio5 = GUICtrlCreateRadio("Sans Transfert Dossier local vers FTP", 24, 330, 200, 25)
Global $Button4 = GUICtrlCreateButton("Activer", 232, 320, 49, 25, $WS_GROUP)

Global $Group3 = GUICtrlCreateGroup("Active Directory", 328, 96, 280, 273)
Global $Label8 = GUICtrlCreateLabel("", 336, 120, 250, 17)
Global $Label9 = GUICtrlCreateLabel("", 336, 152, 250, 17)
Global $Label10 = GUICtrlCreateLabel("", 336, 184, 250, 17)
Global $Label11 = GUICtrlCreateLabel("", 336, 216, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("Numéro d'UC (XXX)", 224, 24, 100, 17, $WS_GROUP)
Global $Input2 = GUICtrlCreateInput("", 224, 48, 90, 20, $ES_NUMBER, BitOR($ES_AUTOHSCROLL,$WS_GROUP))

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetState($Group2,$GUI_DISABLE)
GUICtrlSetState($Radio4,$GUI_DISABLE)
GUICtrlSetState($Radio5,$GUI_DISABLE)
GUICtrlSetState($Button4,$GUI_DISABLE)

;GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then exit
    If $nMsg = $Button2 Then exit
    If $nMsg = $Button1 Then GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

    $loginad = GUICtrlRead($Input1)
    $uc = GUICtrlRead($Input2)

WEnd

Func _IsChecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg
    Local $hWndFrom, $iIDFrom, $iCode, $hWndCombo
    If Not IsHWnd($Radio1) Then $hWndRadio = GUICtrlGetHandle($Radio1)
    $hWndFrom = $ilParam
    Switch $hWndFrom
        Case $Radio1, $Radio2, $Radio3, $Radio4, $Radio5, $hWndRadio
            If _IsChecked($Radio1) Then
                GUICtrlSetState($Group2,$GUI_ENABLE)
                GUICtrlSetState($Radio4,$GUI_ENABLE)
                GUICtrlSetState($Radio5,$GUI_ENABLE)
                GUICtrlSetState($Button4,$GUI_ENABLE)

                GUICtrlSetData($Label3, $txtSAUVE_1A)
                GUICtrlSetData($Label4, $txtSAUVE_2A)
                GUICtrlSetData($Label5, $txtSAUVE_3A)
                GUICtrlSetData($Label6, $txtSAUVE_4A)
            ElseIf _IsChecked($Radio2) Then

            ElseIf _IsChecked($Radio3) Then

            ElseIf _IsChecked($Radio4) Then
                GUICtrlSetData($Label7, $txtSAUVE_5CCA)

            ElseIf _IsChecked($Radio5) Then
                GUICtrlSetData($Label7, $txtSAUVE_5A)

            EndIf
    EndSwitch
EndFunc

[ludoo]

bonjour,
merci pour le script
nouvelle fonction excellente
par contre pour celle-ci je ne comprend pas :

► Afficher le texte

Code : Tout sélectionner

Func _IsChecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked

elle est lié avec les boutons radio.
peut tu si tu veux bien expliqué le script pour la fonction WM_COMMAND
merci.

[pierrotm777]

Elle est bien liée aux radios (marche aussi avec les cases check).
Elle permet donc de tester si un bouton ou une case sont actifs ou pas.

Quant à WM_COMMAND, il est utilisé pour lancer un test régulier des boutons radios sans que cela génère un effet de clignotant dans la GUI, ce qui est souvent le cas lorsque l'on test un bouton radio ou une case à l'intérieur d'une boucle While ... Wend .

[ludoo]

oui j'avais cette effet de clignotant.
par contre sur le radio 4 et 5 lorsque je choisi l'un ou l'autre le label n'apparait pas.

[pierrotm777]

Ceci dit, en lisant un peut la doc sur la gestion des buttons 'radio', on peut arriver à plus simple !

► Afficher le texte

Code : Tout sélectionner

;***** Les includes ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#include <AD.au3>
; variables pour les labels AD départ et mutation
Dim Const $txtDM_1A = "Suppression des groupes utilisateur en attente"
Dim Const $txtDM_1EC = "Suppression des groupes utilisateur en cours"
Dim Const $txtDM_1T = "Suppression des groupes utilisateur terminé"
Dim Const $txtDM_2A = "Déplacement de l'utilisateur dans l'OU Mutation en attente"
Dim Const $txtDM_2EC = "Déplacement de l'utilisateur dans l'OU Mutation en cours"
Dim Const $txtDM_2T = "Déplacement de l'utilisateur dans l'OU Mutation terminé"
Dim Const $txtDM_3A = "Suppression du Profil utilisateur en attente"
Dim Const $txtDM_3EC = "Suppression du Profil utilisateur en cours"
Dim Const $txtDM_3T = "Suppression du Profil utilisateur terminé"
Dim Const $txtDM_4A = "Suppression de l'utilisateur du domaine AT en attente"
Dim Const $txtDM_4EC = "Suppression de l'utilisateur du domaine AT en cours"
Dim Const $txtDM_4T = "Suppression de l'utilisateur du domaine AT terminé"

; variables pour les labels Migration RDS
Dim Const $txtRDS_1A = "Ajout de l'utilisateur dans le groupe RDS en attente"
Dim Const $txtRDS_1EC = "Ajout de l'utilisateur dans le groupe RDS en cours"
Dim Const $txtRDS_1T = "Ajout de l'utilisateur dans le groupe RDS terminé"
Dim Const $txtRDS_2A = "Déplacement de l'utilisateur dans l'OU RDS en attente"
Dim Const $txtRDS_2EC = "Déplacement de l'utilisateur dans l'OU RDS en cours"
Dim Const $txtRDS_2T = "Déplacement de l'utilisateur dans l'OU RDS terminé"

; variables pour les labels Sauvegarde
Dim Const $txtSAUVE_1A = "Suppression sauvegarde Pablo en attente"
Dim Const $txtSAUVE_1EC = "Suppression sauvegarde Pablo en cours"
Dim Const $txtSAUVE_1T = "Suppression sauvegarde Pablo terminé"
Dim Const $txtSAUVE_2A = "Suppression sauvegarde Firefox en attente"
Dim Const $txtSAUVE_2EC = "Suppression sauvegarde Firefox en cours"
Dim Const $txtSAUVE_2T = "Suppression sauvegarde Firefox terminé"
Dim Const $txtSAUVE_3A = "Suppression sauvegarde Favoris en attente"
Dim Const $txtSAUVE_3EC = "Suppression sauvegarde Favoris en cours"
Dim Const $txtSAUVE_3T = "Suppression sauvegarde Favoris terminé"
Dim Const $txtSAUVE_4A = "Suppression sauvegarde Open office en attente"
Dim Const $txtSAUVE_4EC = "Suppression sauvegarde Open office en cours"
Dim Const $txtSAUVE_4T = "Suppression sauvegarde Open office terminé"
Dim Const $txtSAUVE_5A = "Suppression sauvegarde Dossier local en attente"
Dim Const $txtSAUVE_5EC = "Suppression sauvegarde Dossier local en cours"
Dim Const $txtSAUVE_5T = "Suppression sauvegarde Dossier local terminé"
Dim Const $txtSAUVE_5CCA = "Copie sauvegarde Dossier local vers FTP en attente"
Dim Const $txtSAUVE_5CC = "Copie sauvegarde Dossier local vers FTP en cours"
Dim Const $txtSAUVE_5CCT = "Copie sauvegarde Dossier local vers FTP terminé"

#Region ### START Koda GUI section ### Form=c:\users\bernardlu\documents\autoit\script\depart_utilisateurs\form1.kxf
Global $Form1_1 = GUICreate("Form1", 625, 443, 364, 203)
GUISetBkColor(0xFFFFFF)
Global $Group1 = GUICtrlCreateGroup("Mouvement Utilisateurs", 8, 8, 609, 425)
Global $Label1 = GUICtrlCreateLabel("renseigner le nom de login utilisateur", 16, 24, 200, 17, $WS_GROUP)
Global $Radio1 = GUICtrlCreateRadio("Mutation", 344, 24, 113, 25)
Global $Radio2 = GUICtrlCreateRadio("Départ", 344, 48, 113, 25)
Global $Radio3 = GUICtrlCreateRadio("Migration RDS", 344, 70, 113, 25)
Global $Input1 = GUICtrlCreateInput("", 16, 48, 190, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $Group2 = GUICtrlCreateGroup("...", 16, 96, 280, 273)
Global $Label3 = GUICtrlCreateLabel("", 24, 120, 250, 17)
Global $Label4 = GUICtrlCreateLabel("", 24, 152, 250, 17)
Global $Label5 = GUICtrlCreateLabel("", 24, 184, 250, 17)
Global $Label6 = GUICtrlCreateLabel("", 24, 216, 250, 17)
Global $Label7 = GUICtrlCreateLabel("", 24, 248, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Lancer", 208, 384, 90, 33, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Quitter", 336, 384, 90, 33, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Activer", 464, 32, 97, 57, $WS_GROUP)

Global $Group2 = GUICtrlCreateGroup("Mouvement mutation", 16, 96, 280, 273)
Global $Radio4 = GUICtrlCreateRadio("Avec Transfert Dossier local vers FTP", 24, 310, 200, 25)
Global $Radio5 = GUICtrlCreateRadio("Sans Transfert Dossier local vers FTP", 24, 330, 200, 25)
Global $Button4 = GUICtrlCreateButton("Activer", 232, 320, 49, 25, $WS_GROUP)

Global $Group3 = GUICtrlCreateGroup("Active Directory", 328, 96, 280, 273)
Global $Label8 = GUICtrlCreateLabel("", 336, 120, 250, 17)
Global $Label9 = GUICtrlCreateLabel("", 336, 152, 250, 17)
Global $Label10 = GUICtrlCreateLabel("", 336, 184, 250, 17)
Global $Label11 = GUICtrlCreateLabel("", 336, 216, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("Numéro d'UC (XXX)", 224, 24, 100, 17, $WS_GROUP)
Global $Input2 = GUICtrlCreateInput("", 224, 48, 90, 20, $ES_NUMBER, BitOR($ES_AUTOHSCROLL,$WS_GROUP))

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetState($Group2,$GUI_DISABLE)
GUICtrlSetState($Radio4,$GUI_DISABLE)
GUICtrlSetState($Radio5,$GUI_DISABLE)
GUICtrlSetState($Button4,$GUI_DISABLE)
;GUICtrlSetData($Label7, $txtSAUVE_5CCA)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg=$GUI_EVENT_CLOSE or $msg=$Button2
            ExitLoop

        Case $msg=$Radio1 And BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED
            GUICtrlSetState($Group2,$GUI_ENABLE)
            GUICtrlSetState($Radio4,$GUI_ENABLE)
            GUICtrlSetState($Radio5,$GUI_ENABLE)
            GUICtrlSetState($Button4,$GUI_ENABLE)
            GUICtrlSetData($Label3, $txtSAUVE_1A)
            GUICtrlSetData($Label4, $txtSAUVE_2A)
            GUICtrlSetData($Label5, $txtSAUVE_3A)
            GUICtrlSetData($Label6, $txtSAUVE_4A)
        Case $msg=$Radio4 And BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED
            GUICtrlSetData($Label7, $txtSAUVE_5CCA)
        Case $msg=$Radio5 And BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED
            GUICtrlSetData($Label7, $txtSAUVE_5A)
        Case $msg=$Button3


    EndSelect

    $loginad = GUICtrlRead($Input1)
    $uc = GUICtrlRead($Input2)

WEnd
 

[ludoo]

merci pour l'info et le script.

[pierrotm777]

Si votre sujet est résolu, n'oubliez pas de modifier la balise