XProfan

Italia

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 Aiuto bin ich dankbar
Uli

11.01.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hi,

das Verhalten kannst Du circa 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 Citazione Zeilenweise Citazione

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