XProfan

Français

Web
Scanner

qui Toggel - Button - Funktion habe je dans qui XProfan 10 Aider trouvé.
peux on den Button aussi programmässig vorab reindrücken?

je hab 8 Buttons sur dem Hauptfenster, qui je entsprechen Travailler veux.
devoir mais pas toujours alle, mais un paire gedrückt volonté
Kompilieren Marque Séparation

-Begin-----------------------------------------------------------------
-HeaderFiles---------------------------------------------------------
 $H Messages.ph
 $H Windows.ph
 $H CommCtrl.ph
-Constants-----------------------------------------------------------
Def &False 0
Def &True 1
-Variables-----------------------------------------------------------
Declare hWin&, hButton&
Declare Ende&
-Function ToggleButton-----------------------------------------------

Proc ToggleButton

    Parameters hButton&
    Declare btnStyle&, Result&
    btnStyle& = ~GetWindowLong(hButton&, ~GWL_STYLE)
    Result& = ~SetWindowLong(hButton&, ~GWL_STYLE, btnStyle& | $1003)

    If Result& = btnStyle&

        Return &True

    Else

        Return &False

    EndIf

EndProc

-Main----------------------------------------------------------------
hWin& = @Create("Window", %hWnd, "Bild im Button", 0, 0, 640, 480)
hButton& = @Create("Button", hWin&, "", 10, 10, 250, 100)
ToggleButton(hButton&)
-Loop--------------------------------------------------------------
Clear Ende&

Repeat

    WaitInput

    If %Key = 2

        Ende& = &True

    EndIf

Until Ende&

-End-------------------------------------------------------------------
./../funcion-referencias/XProfan/end/'>Fin

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

01.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

un paire pourrait schwierig volonté. Wenns seulement einer dans einer Gruppe son soll, versuchs la fois avec einer Groupbox drumherum.
Sonst dois Du pour chaque Klick den Status qui Buttons abfragen et entsprechend mettons. cela allez sogar entier simple avec GetCheck/SetCheck.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...