[R] Problème de bouton.

[Linox]

Bonjour, j'ai ce code:

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Dim $vrRepSource, $vrSaisiUser
Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $Button_1, $Button_2, $msg
    GUICreate("My GUI Button") ; will create a dialog box that when displayed is centered

    Opt("GUICoordMode", 2)
    $Button_1 = GUICtrlCreateButton("Saisire un texte", 10, 30, 100)
    $Button_2 = GUICtrlCreateButton("Parcourir", 0, -1)
    $Button_3 = GUICtrlCreateButton("Afficher", 0, -10)

    GUISetState()      ; will display an  dialog box with 2 button

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                Call("TextSaisi")
            Case $msg = $Button_2
                Call("Parcour")
            Case $msg = $Button_3
                Call("Affich")
        EndSelect
    WEnd
EndFunc   ;




Func Parcour()
 $vrRepSource = FileSelectFolder("Choisir un dossier (Sélectionnez le dossier contenant les photos ou images à ajouter dans votre galerie) ", " ")

  If $vrRepSource = "" Then 
     Beep(500,200)
     MsgBox(0,"Texte saisie","Vous n'avez pas choisi de dossier, création de la galerie anulée") 
     exit
  Else
  EndIf
EndFunc 


Func TextSaisi()
 $vrSaisiUser = InputBox("Nom de la galerie", "Entrer ici le nom souhaité de la galerie:", "", "")

  If $vrSaisiUser = "" Then 
     Beep(500,200)
     MsgBox(0,"Texte saisie","Vous n'avez pas choisi de nom, création de la galerie anulée") 
     exit
  Else
  EndIf
EndFunc 

Func Affich()
  MsgBox(0,"Texte saisie", $vrSaisiUser & @CRLF & $vrRepSource) 
EndFunc

j'ai une erreur sur cette ligne:

Code : Tout sélectionner

    $Button_3 = GUICtrlCreateButton("Afficher", 0, -10)

comment bien placer le bouton ?

[ani]

un oublie surement
l'erreur formulé etait donc celle-ci

Code : Tout sélectionner

F:\aideforum.au3(80,56) : WARNING: $Button_3 possibly not declared/created yet
    $Button_3 = GUICtrlCreateButton("Afficher", 0, -10)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

(80,56) = ligne,colonne /en ligne 80, caratère 56
Danger : la variable $Button_3 n'est pas déclaré, il faudra donc l'ajouter

Code : Tout sélectionner

Func Example()
    Local $Button_1, $Button_2, $Button_3, $msg

bonne continuation