XProfan

Français

allô Mitstreiter,

comme Débutant voudrais je une Mehtfachbutton benutzen,d.h. beim 1.betätigen aktion1,beim 2.aktion2,beim3.aktion3,beim 4.wieder aktion1 usw.
ça va quelque chose avec profan8?

Über Aider suis je reconnaissant
Uli

11.01.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi,

cela Verhalten peux Du sur une Merker comment z.B. einer Variable erreichen.

si Button gedrückt:

Merker=Merker+1

si merker=1
...
ou bien merker=2
...
ou bien merker=3
...

Kompilieren Marque Séparation

declare button&,merker&
cls
button&=createButton(%hWnd,"Test",10,10,100,100)

tandis que 1

    waitInput

    si getFocus(button&)

        merker&=merker&+1

        si merker&=1

            imprimer "akt1"

        elseif merker&=2

            imprimer "akt"

        endif

    endif

Wend

*ungetestet*

11.01.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

tu peux ensuite avec SetText dem Button chaque la fois aussi une anderen Text verpassen, si bien que qui Anwender aussi sais, quelle Aktion ihn erwartet.
So peux Du ensuite im Prinzip aussi Dein Programme steuern.

Kompilieren Marque Séparation

declare button&
cls
button&=createButton(%hWnd,"Aktion 1",10,10,100,100)

tandis que 1

    waitInput

    si getFocus(button&)

        Si GetText $(button&) = "Aktion 1"

            SetText button&,"Aktion 2"
            aktion1

        ElseIf GetText $(button&) = "Aktion 2"

            aktion2
            SetText button&,"Aktion 3"

        ElseIf GetText $(button&) = "Aktion 3"

            aktion3
            SetText button&,"Aktion 4"

        ElseIf GetText $(button&) = "Aktion 4"

            aktion4
            SetText button&,"Aktion 1"

        endif

    endif

Wend