XProfan

Deutsch

Hallo Mitstreiter,

als Anfänger möchte ich einen Mehtfachbutton benutzen,d.h. beim 1.betätigen aktion1,beim 2.aktion2,beim3.aktion3,beim 4.wieder aktion1 usw.
geht so etwas mit profan8?

Über Hilfe bin ich dankbar
Uli

11.01.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hi,

das Verhalten kannst Du über einen Merker wie z.B. einer Variable erreichen.

Wenn Button gedrückt:

Merker=Merker+1

wenn merker=1
...
oder merker=2
...
oder merker=3
...

Kompilieren Markieren Separieren

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

while 1

    waitInput

    if getFocus(button&)

        merker&=merker&+1

        if merker&=1

            print "akt1"

        elseif merker&=2

            print "akt"

        endif

    endif

wend

*ungetestet*

11.01.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Du kannst dann mit SetText dem Button jedes Mal auch einen anderen Text verpassen, so daß der Anwender auch weiß, welche Aktion ihn erwartet.
So kannst Du dann im Prinzip auch Dein Programm steuern.

Kompilieren Markieren Separieren

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

while 1

    waitInput

    if getFocus(button&)

        If 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