XProfan

English

Hello Mitstreiter,

as Beginner would like I a Mehtfachbutton using,d.h. at 1.activate action1,at 2.action2,at3.action3,at 4.again action1 etc.
goes such a thing with profane8?

About Help be I grateful
Uli

01/11/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hi,

the behaviour can You a Merker How z.B. of/ one Variable achieve.

If Button pressed:

Merker=Merker+1

if merker=1
...
or merker=2
...
or merker=3
...

Compile Mark Separation

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*

01/11/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

You can then with SetText the Button each time too a others Text miss out on, so that the users too white, which action it expects.
so can You then in the principle too your Program steer.

Compile Mark Separation

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"
            action1

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

            action2
            SetText button&,"Aktion 3"

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

            action3
            SetText button&,"Aktion 4"

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

            action4
            SetText button&,"Aktion 1"

        endif

    endif

wend