Page 1 sur 1
[R] Problème boutons non cliquables
Posté : jeu. 08 oct. 2015 17:46
par Pyrithe
Bonjour tout le monde,
J'ai un soucis avec mes boutons
J'essaye de mettre en place des boutons avec des fichiers .ico pour embellir un peu le truc.
L'affichage fonctionne parfaitement.
Par contre, maintenant, quand je clic dessus, plus d'effet.
Bon visuellement c'est une chose (je me pencherais dessus après), mais je veux dire que ca ne lance plus rien.
Je vous laisse mon code là, si quelqu'un peut me dire où j'ai déconné, parce que je vois pas du tout...
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; ----- Variables executables -----
$Folder = "C:\Program Files\OpenVPN"
$OpenVpn = "bin\openvpn.exe"
$OpenVpnR = "config\R\ClientR.ovpn"
; ----- Interface -----
$Menu1 = GUICreate("Easy OpenVPN", 580, 290)
$BandeauHaut = GUICtrlCreatePic(@scriptdir & "\Img\Interface\BandeauHaut.jpg", 0, 0, 580, 40)
$Corps = GUICtrlCreatePic(@scriptdir & "\Img\Interface\Corps.jpg", 0, 40, 580, 220)
$BandeauBas = GUICtrlCreatePic(@scriptdir & "\Img\Interface\BandeauBas.jpg",0, 260, 580, 30)
; ------ Boutons au départ ------
$BoutonExit = GUICtrlCreateButton("BoutonExit", 540, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Img\Boutons\Off.ico")
$Bouton1 = GUICtrlCreateButton("Bouton1", 40, 80, 140, 140, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Img\Boutons\Connection.ico")
GUISetState(@SW_SHOW, $Menu1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $BoutonExit
$Exit=MsgBox(4 + 64, "EOVPN", "Voulez vous quitter l'application?")
If ($Exit=6) Then
Exit
EndIf
EndSwitch
WEnd
Là, dans l'état, quand je clique sur mon bouton "$BoutonExit", ca ne fait rien...
Re: [..] Problème boutons non cliquables
Posté : jeu. 08 oct. 2015 19:14
par franco
Salut.
les images sont déclarées avant les boutons : ils sont donc inutilisables.
Faut déclarer tes boutons avant l'image, comme ceci :
► Afficher le textecode
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; ----- Variables executables -----
;~ $Folder = "C:\Program Files\OpenVPN"
;~ $OpenVpn = "bin\openvpn.exe"
;~ $OpenVpnR = "config\R\ClientR.ovpn"
; ----- Interface -----
$Menu1 = GUICreate("Easy OpenVPN", 580, 290)
; ------ Boutons au départ ------
$BoutonExit = GUICtrlCreateButton("BoutonExit", 540, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Img\Boutons\Off.ico")
$Bouton1 = GUICtrlCreateButton("Bouton1", 40, 80, 140, 140, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Img\Boutons\Connection.ico")
GUISetState(@SW_SHOW, $Menu1)
$BandeauHaut = GUICtrlCreatePic(@scriptdir & "\Img\Interface\BandeauHaut.jpg", 0, 0, 580, 40)
$Corps = GUICtrlCreatePic(@scriptdir & "\Img\Interface\Corps.jpg", 0, 40, 580, 220)
$BandeauBas = GUICtrlCreatePic(@scriptdir & "\Img\Interface\BandeauBas.jpg",0, 260, 580, 30)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $BoutonExit
$Exit=MsgBox(4 + 64, "EOVPN", "Voulez vous quitter l'application?")
If ($Exit=6) Then
Exit
EndIf
EndSwitch
WEnd
Source :
http://autoitscript.fr/forum/viewtopic.php?f=3&t=7610
EDIT :
Pense à mettre la balise spoiler la prochaine fois
Et la recherche google, ce sujet a été traité maintes fois.
++
Re: [R] Problème boutons non cliquables
Posté : jeu. 08 oct. 2015 20:48
par Pyrithe
Merci énormément!!!
Ca fonctionne parfaitement.
J'ai bien effectué des recherches, j'ai passé pas mal de temps dessus, sans succès.
Après, étant donné que je débute, j'ai passé du temps à lire les fonctions, etc,... que dalle. Mais quand, au fond, tu ne sais pas vraiment ce que tu cherche...
En tous cas merci beaucoup, je progresserais un peu!
Et si tu as une piste pour faire de mon image (ou ensemble d'images, je cherche), quelque chose de dynamique qui donne l'illusion d'un vrai clic bouton, je suis preneur!
Re: [R] Problème boutons non cliquables
Posté : jeu. 08 oct. 2015 21:00
par franco
Salut
Et si tu crées une image pour le bouton, sachant que guictrlcreatepic peut servir comme "bouton" ?
Exemple
Et plus loin
++
Re: [R] Problème boutons non cliquables
Posté : dim. 11 oct. 2015 09:50
par Pyrithe
J'ai trouvé quelqu'un sur ce forum qui a créé une fonction pour utiliser plusieurs images.
Reste à créer des images donnant l'effet voulu. Ca marche parfaitement bien, et on peut utiliser plus de deux images (pas testé).
La fonction :
► Afficher le texte
Code : Tout sélectionner
_GuiAnimImage($Image1,$Bouton1,200)
Func _GuiAnimImage($ArrayOfImage,$ctrlId=-1,$sleep=10)
If $ctrlId = "" Or $ctrlId = Default Then $ctrlId=-1;on initialise les parametre si pas donné
If $sleep = "" Or $sleep = Default Or $sleep <= 0 Then $sleep=10;on initialise les parametre si pas donné
If IsArray($ArrayOfImage)Then; on vérifie les parametre
Local $max=UBound($ArrayOfImage); nombre d'image ?
If Not @error Then ;si pas d'erreur=array à bonne dimension
For $i=0 To $max-1
Local $ImageDone=GUICtrlSetImage($ctrlId,$ArrayOfImage[$i]); on insere l'image
If $ImageDone=0 Then;si il y'a une erreur
SetError(2);pas trouver d'image
ExitLoop;Path de l'image pas bonne, donc on quitte la boucle!
EndIf
Sleep($sleep);le temps d'affichage entre chaque image
Next
EndIf
Else
SetError(1);pas d'array
EndIf
EndFunc