[R] Action lors d'un appui sur un bouton

[stephaneR]

Bonsoir,

Je voudrais faire quelque chose de tout bête:
Je voudrais recréer le fonctionnement d'un bouton poussoir. Quand j'appuie sur un bouton, je veux qu'un message dans un label change. Quand je relâche le bouton, le message disparait.

Or pour le moment, je sais changer le message d'un label quand je clique sur un bouton c'est à dire quand je relâche le bouton gauche de la souris.

Est-ce possible?

Merci à tous.

[bloodwolff]

Si par bouton vous voulez parler de bouton de souris et de clavier et non bouton de Gui , regarder du coté de _ispressed() , Je posterai un exemple dans quelque minutes le temps de lire les nouveaux messages et de faire l'exemple

Bien qu'il existe de nombreuse façon d'y parvenir voilà l'exemple tel que promis (Tester avec le clic gauche), si vous voulez d'autre façon de faire la même chose vous n'avez qu'à demander

Code : Tout sélectionner

#Include <Misc.au3>
While 1
    Sleep(100)
    if _IsPressed("01") Then
        SplashTextOn("", "Clic Gauche appuyé!")
        Do
            Sleep(100)
        Until not _IsPressed("01")
        SplashOff()
    EndIf
WEnd

[stephaneR]

Non malheureusement, je cherche à résoudre mon problème avec un bouton de GUI.

[bloodwolff]

Ah , c'est tout au aussi faisable Mais je ne pouvais pas deviner

Voilà j'ai tenter de faire simple , seul le premier #include est obligatoire

Code : Tout sélectionner

#Include <GuiButton.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Form1", 117, 60, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 99, 25)
$Label1 = GUICtrlCreateLabel("Non", 12, 8, 92, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)


While 1
    If BitAND(_GUICtrlButton_GetState($Button1),  $BST_PUSHED) =  $BST_PUSHED Then
        GUICtrlSetData($Label1, "Oui")
        Do
            Sleep(100)
        Until not BitAND(_GUICtrlButton_GetState($Button1),  $BST_PUSHED) =  $BST_PUSHED
        GUICtrlSetData($Label1, "Non")
    EndIf


    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    Sleep(100)
WEnd

[stephaneR]

Merci beaucoup, c'est exactement le fonctionnement que je souhaitais.
Demain, je vais analyser le code et essayer de l'intégrer dans mon programme.

Merci beaucoup à bloodwolff.
Bonne nuit à tous.

[stephaneR]

Finalement, je n'ai pas réussi à attendre demain et je viens de finir mon programme.
Encore merci à bloodwolff.
Et cette fois bonne nuit.

[bloodwolff]

Merci d'éditer le titre selon les règles

[stephaneR]

Je voudrais rendre le sujet résolu.
J'espère que la manip est correcte.

[bloodwolff]

Édite le titre de ton premier message et remplace le [..] par [R]