XProfan

Español

¡Hola Mitstreiter,

como Principiante möchte Soy un Mehtfachbutton benutzen,d.h. beim 1.betätigen aktion1,beim 2.aktion2,beim3.aktion3,beim 4.otra vez aktion1 usw.
va así algo con profano8?

Über Ayuda bin Yo dankbar
Uli

11.01.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi,

el Comportamiento kannst Usted encima una Merker como z.B. uno Variable erreichen.

Wenn Button gedrückt:

Merker=Merker+1

si merker=1
...
oder merker=2
...
oder merker=3
...

Kompilieren Marca Separación

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

mientras que 1

    waitInput

    if getFocus(button&)

        merker&=merker&+1

        if merker&=1

            imprimir "akt1"

        elseif merker&=2

            imprimir "akt"

        endif

    endif

wend

*ungetestet*

11.01.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted puede entonces con SetText el Button cada vez auch una otro Texto verpassen, así daß el Anwender auch weiß, welche Aktion ihn esperado.
So kannst Usted entonces en el Principio auch Su Programa steuern.

Kompilieren Marca Separación

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

mientras que 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