Français
Forum

Toggle Button vom Programme aus mettons

 

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é
KompilierenMarqueSé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  
 




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 ...
01.08.2008  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.287 Views

Untitledvor 0 min.
Rainer Hoefs11.04.2023
Pedro Miguel14.09.2012
Julian Schmidt01.02.2012
Andreas Miethe28.04.2011

Themeninformationen

cet Thema hat 2 participant:

Jörg Sellmeyer (1x)
Web Scanner (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie