[R] La colorisation d'un bouton modifie son comportement

[jl56]

bonjour

Pour rendre plus agreable un script j'ai voulu colorié certain bouton et inputbox

mais le comportement du bouton provoque un rebond comme si il était cliqué 2 fois ( tester l'exemple ci dessous )
dans mon appli c'est plusieurs fois je suis obligé de sortir du script

Code : Tout sélectionner

#include <GuiConstants.au3>
GuiCreate("coloration d'un bouton c'est zarbi ",700, 510)
GUISetState ()

$quitter = GUICtrlCreateButton(" QUITTER", 590, 270, 100, 30)
$pingip = GuiCtrlCreateInput(@IPAddress1, 164, 224, 100, 20)
GUICtrlSetBkColor(-1,0xFFBFFF)

$pingipbt = GUICtrlCreateButton("PING  de l'adresse     -----> ", 10, 220, 150, 30)
;~ GUICtrlSetBkColor($pingipbt,0XEE82EE)
;~ GUICtrlSetBkColor($pingipbt,0x00ff00)
;~ GUICtrlSetBkColor($pingipbt,0XFF00FF)
GUICtrlSetBkColor($pingipbt,0XFFFF00)
; debut boucke ************************************************
Do


$msg = GUIGetMsg()

if $msg=$pingipbt then
    
    MsgBox(4096,"","test du bouton ping "&$msg)
    
EndIf
Until $msg = $GUI_EVENT_CLOSE or $msg = $quitter

quelqu'un aurait'il une suggestion

merci

a+ jl56

[Tlem]

Il y à effectivement un truc bizarre, car si on remplace le GUICtrlCreateButton par un GUICtrlCreateLabel, tout fonctionne correctement.

J'ai essayé plusieurs petites choses sans résultat.
A moins d'une option dont je ne connais pas l'existence, je pense qu'il y à un bug qu'il serait bon de signaler sur le forum Anglais.

[papami]

[quote="jl56"]bonjour

Pour rendre plus agreable un script j'ai voulu colorié certain bouton et inputbox

mais le comportement du bouton provoque un rebond comme si il était cliqué 2 fois ( tester l'exemple ci dessous )
dans mon appli c'est plusieurs fois je suis obligé de sortir du script

Code : Tout sélectionner

#include <GuiConstants.au3>
GuiCreate("coloration d'un bouton c'est zarbi ",700, 510)
GUISetState ()

$quitter = GUICtrlCreateButton(" QUITTER", 590, 270, 100, 30)
$pingip = GuiCtrlCreateInput(@IPAddress1, 164, 224, 100, 20)
GUICtrlSetBkColor(-1,0xFFBFFF)

$pingipbt = GUICtrlCreateButton("PING  de l'adresse     -----> ", 10, 220, 150, 30)
;~ GUICtrlSetBkColor($pingipbt,0XEE82EE)
;~ GUICtrlSetBkColor($pingipbt,0x00ff00)
;~ GUICtrlSetBkColor($pingipbt,0XFF00FF)
GUICtrlSetBkColor($pingipbt,0XFFFF00)
; debut boucke ************************************************
Do


$msg = GUIGetMsg()

if $msg=$pingipbt then
    
    MsgBox(4096,"","test du bouton ping "&$msg)
    
EndIf
Until $msg = $GUI_EVENT_CLOSE or $msg = $quitter[/autoit]



quelqu'un aurait'il une suggestion

merci

a+ jl56[/quote]


Bonjour
bricolage, mais 'ça marche' :
...
[autoit]if $msg=$pingipbt then
    MsgBox(4096,"","test du bouton ping "&$msg)
    $msg = GUIGetMsg() ; <------------- 
    endif
...

Bye

[sylvanie]

c'est amusant, quand on appuie sur le bouton via le clavier et non la souris, on n'a pas le problème, et on perd le focus

[jl56]

bonjour

merci papami

pour ton astuce c'a fonctionne
je comprend pas mais des fois faut pas chercher

comme le dit tlem il y a un bug
mais je ne suis pas anglophone pour en informer le forum anglais

je n'avais pas testé au clavier sylvanie c'est tres curieux comme resultat

a+ jl56

[jl56]

BONJOUR

dans l'exemple c'a fonctionne
mais dans mon appli
action du bouton est répété sans cesse

j'abandonne dommage c'était très jolie

j'ai créé un script qui affiche plein de valeur d'un pc
genre ip passerelle masque dns utilisateur domaine etc..

pour que mes clients puisse me donner l'info plus facilement
et avec des boutons colorisé c'était plus facile pour lancer un ping
"quel est le nombre affiché dans la case bleu (passerelle)"
"cliquez sur le bouton vert merci. avez vous des réponses ? si oui ok le routeur est bien branché"
etc..

a+ jl56

[Tlem]

Temps pis pour le bouton, passez par un label, puisque dans ce cas ca ne bug pas.

[ani]

je comprend même pas le problème...

mais il me semblait que la construction d'une gui etait suivit de ses controle et ensiute on y indiqué Guisetstate avant la boucle dite while ou do

[jl56]

bonjour ani
j'ai corrigé ce simple comme tu la précisé

Code : Tout sélectionner

#include <GuiConstants.au3>
GuiCreate("coloration d'un bouton c'est zarbi ",700, 510)
$quitter = GUICtrlCreateButton(" QUITTER", 590, 270, 100, 30)
$pingip = GuiCtrlCreateInput(@IPAddress1, 164, 224, 100, 20)
GUICtrlSetBkColor(-1,0xFFBFFF)
$pingipbt = GUICtrlCreateButton("PING  de l'adresse     -----> ", 10, 220, 150, 30)
GUICtrlSetBkColor($pingipbt,0XFFFF00)
GUISetState ()
Do
$msg = GUIGetMsg()
if $msg=$pingipbt then
MsgBox(4096,"","test du bouton ping ")
EndIf
Until $msg = $GUI_EVENT_CLOSE or $msg = $quitter

comme le dit sylvanie si tu sélectionnes le bouton au clavier
est différent du clic

a+ jl56

[jl56]

bonjour

la derniere version autoit
fonctionne

a+ jl56

[Tlem]

Vous voulez sans doute dire que le 'bug' à été corriger dans la version 3.2.10.0 de AutoIt3.