[R] Boutons incliquable

[Kisskool]

Bonjours a tous ! Me revoilà pour un nouveau problème, j'étais déjà passé pour un problème de chargement de label, me revoilà avec un problème de boutons, il m'est impossible de cliquer sur deux boutons, plus un ou la zone est très réduit et je ne vois aucune raison...Pourriez vous m'éclaircir ?

Code : Tout sélectionner

Func Button1_433()
Opt("GUIOnEventMode", 1)  ; Passe en mode événement
$secondwindow = GUICreate("Football M. Prog 1.0 - Modification d'un joueur", 550, 300)
GUICtrlCreateLabel("Ici vous pourrez changé les caractéristiques des joueurs pour obtenirs des détails/aides", 60, 10)
$labelforce=GUICtrlCreateLabel("Force : " & $force, 30, 50, 150, 150)
$forcebutton = GUICtrlCreateButton("Modifier", 135, 45)
$labelhab = GUICtrlCreateLabel("Habilité :" & $hab, 30, 90, 150, 150)
$habilitebutton = GUICtrlCreateButton("Modifier", 135, 85)
$labelvit = GUICtrlCreateLabel("Vitesse :" & $vit, 30, 130, 150, 150)
$vitessebutton = GUICtrlCreateButton("Modifier", 135, 125)
$labelend = GUICtrlCreateLabel("Endurance :" & $end, 30, 170, 150, 150)
$endurancebutton = GUICtrlCreateButton("Modifier", 155, 165)
$labelint = GUICtrlCreateLabel("Intelligence :" & $int, 30, 210, 150, 150)
$intelligencebutton = GUICtrlCreateButton("Modifier", 155, 205)
$buttonok = GUICtrlCreateButton("OK", 245, 260, 60)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEsecond")
GUICtrlSetOnEvent($forcebutton, "FORCEmodif")
GUICtrlSetOnEvent($habilitebutton, "HABmodif")
GUICtrlSetOnEvent($vitessebutton, "VITmodif")
GUICtrlSetOnEvent($intelligencebutton, "INTmodif")
GUICtrlSetOnEvent($endurancebutton, "ENDmodif")
GUISetState(@SW_SHOW)
EndFunc

Func FORCEmodif()
    $force = InputBox( "Force", " Veuillez entrée le nombre de points de force que possède votre joueur" )
GUICtrlSetData( $labelforce, "Force : " & $force)
EndFunc
Func HABmodif()
    $hab = InputBox( "Habilité", " Veuillez entrée le nombre de points d' habilité que possède votre joueur" )
GUICtrlSetData( $labelhab, "Habilité : " & $hab)
EndFunc

Func VITmodif()
    $vit = InputBox( "Vitesse", " Veuillez entrée le nombre de points de vitesse que possède votre joueur" )
GUICtrlSetData( $labelvit, "Vitesse : " & $vit)
EndFunc

Func ENDmodif()
    $end = InputBox( "Endurance", " Veuillez entrée le nombre de points d' endurance que possède votre joueur" )
GUICtrlSetData( $labelend, "Endurance : " & $end)
EndFunc

Func INTmodif()
    $int = InputBox( "Intelligence", " Veuillez entrée le nombre de points d' intelligence que possède votre joueur" )
GUICtrlSetData( $labelint, "Intelligence : " & $int)
EndFunc

Voila le code, ce n'est qu'une partie du programme, mais je ne comprend pas pourquoi le bouton modifier qui se trouve en face de Habilité et de Vitesse, ainsi que celui en-face de Force où la zone est juste réduite. De plus tant que je suis là, comment pourrais-je fermer cette fenêtre du programme au clic de la croix ? Je ne parle pas d'exit, car il y a plusieurs GUI et je voudrais fermer juste celle ci, y a t'il d'autre moyen que la désactiver ou la cacher ?

[Jerome]

Coucou,


Pour l'histoire des boutons, c'est simple, ton label est trop grand en taille, et donc celui - ci passe par dessus ton bouton. Cela ne se voit pas, puisque c'est transparent, mais en gros au moment ou tu veux cliquer sur ton bouton, tu cliques sur le label en faite...

Essaye sa :

► Afficher le texte

Code : Tout sélectionner

Func Button1_433()
Opt("GUIOnEventMode", 1)  ; Passe en mode événement
$secondwindow = GUICreate("Football M. Prog 1.0 - Modification d'un joueur", 550, 300)
GUICtrlCreateLabel("Ici vous pourrez changé les caractéristiques des joueurs pour obtenirs des détails/aides", 60, 10)
$labelforce=GUICtrlCreateLabel("Force : " & $force, 30, 50, 50, 50)
$forcebutton = GUICtrlCreateButton("Modifier", 135, 45)
$labelhab = GUICtrlCreateLabel("Habilité :" & $hab, 30, 90, 50, 50)
$habilitebutton = GUICtrlCreateButton("Modifier", 135, 85)
$labelvit = GUICtrlCreateLabel("Vitesse :" & $vit, 30, 130, 50, 50)
$vitessebutton = GUICtrlCreateButton("Modifier", 135, 125)
$labelend = GUICtrlCreateLabel("Endurance :" & $end, 30, 170, 50, 50)
$endurancebutton = GUICtrlCreateButton("Modifier", 155, 165)
$labelint = GUICtrlCreateLabel("Intelligence :" & $int, 30, 210, 50, 50)
$intelligencebutton = GUICtrlCreateButton("Modifier", 155, 205)
$buttonok = GUICtrlCreateButton("OK", 245, 260, 60)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEsecond")
GUICtrlSetOnEvent($forcebutton, "FORCEmodif")
GUICtrlSetOnEvent($habilitebutton, "HABmodif")
GUICtrlSetOnEvent($vitessebutton, "VITmodif")
GUICtrlSetOnEvent($intelligencebutton, "INTmodif")
GUICtrlSetOnEvent($endurancebutton, "ENDmodif")
GUISetState(@SW_SHOW)
EndFunc

Func FORCEmodif()
    $force = InputBox( "Force", " Veuillez entrée le nombre de points de force que possède votre joueur" )
GUICtrlSetData( $labelforce, "Force : " & $force)
EndFunc
Func HABmodif()
    $hab = InputBox( "Habilité", " Veuillez entrée le nombre de points d' habilité que possède votre joueur" )
GUICtrlSetData( $labelhab, "Habilité : " & $hab)
EndFunc

Func VITmodif()
    $vit = InputBox( "Vitesse", " Veuillez entrée le nombre de points de vitesse que possède votre joueur" )
GUICtrlSetData( $labelvit, "Vitesse : " & $vit)
EndFunc

Func ENDmodif()
    $end = InputBox( "Endurance", " Veuillez entrée le nombre de points d' endurance que possède votre joueur" )
GUICtrlSetData( $labelend, "Endurance : " & $end)
EndFunc

Func INTmodif()
    $int = InputBox( "Intelligence", " Veuillez entrée le nombre de points d' intelligence que possède votre joueur" )
GUICtrlSetData( $labelint, "Intelligence : " & $int)
EndFunc

Pour ce qui est de la croix en haut, il faut que tu rajoutes ceci dans le bon endroit de ton script : (cf KODA)

Code : Tout sélectionner

Case $GUI_EVENT_CLOSE
            Exit
 

Bizarrement, je ne sait pourquoi (peut - être normal j'en ai aucune idée), le Opt("GUIOnEventMode", 1) empêche la fermeture de la GUI.




Jérôme

[Kisskool]

Merci beaucoup Jérôme de ton aide
J'attends toujours une petite aide pour la fermeture de la GUI, mais si il y a pas, j'essayerais de me débrouiller sans ( en la cachant ou autre... )

EDIT: C'est normal que sa marche pas ton code... Je suis en mode event, toi tu pense au mode Loop, de plus exit fermera toutes les GUI :s j'ai déjà essayer...enfin je me suis peut-être tromper...

[BlueCore]

Salut Kisskool.

Je suis en mode event...

Efféctivement, tu est bel et bien dans un script "OnEventMode", dans ce cas, tu utilises :

Code : Tout sélectionner

GUICtrlSetOnEvent($secondwindow, "_Exit")

N'oublie pas de créer là fonction _Exit() qui contiendra "Exit" ainsi que le code à éfféctuer avant de quitter (si il y en à).

Bonne Chance.

- BlueCore

[Kisskool]

Ca ne marche pas, ce qui est compréhensible car $secondwindow est la variable contenant la fenêtre...Mais j'ai adapté pour que se soit au clic de la croix rouge, mais Exit produit la même action que j'ai dit précédemment, Exit ferme toutes les fenêtres du programme, je voudrais fermer juste celle la...

[Kisskool]

Je laisse tomber...Merci quand même

[Tlem]

La commande Exit ferme le script.
Si vous voulez masquer/effacer une seconde GUI, alors il vous faut sont control ID ou sont winhandle et utiliser la commande qui va bien :

Code : Tout sélectionner

GUISetState(@SW_HIDE ,$GUI2]) ; Cache la GUI
ou
GUIDelete($GUI2) ; Détruit la GUI

[Kisskool]

Sa marche ! =D merci beaucoups
Désoler, je ne pensais pas que cette commande était aussi simple...Merci beaucoups !