Deutsch
Forum

Toggle Button vom Programm aus setzen

 

Web
Scanner
Die Toggel - Button - Funktion habe ich in der XProfan 10 Hilfe gefunden.
Kann man den Button auch programmässig vorab reindrücken?
Ich hab 8 Buttons auf dem Hauptfenster, die ich entsprechen bearbeiten will.
Sollen aber nicht immer alle, sondern ein paar gedrückt werden
KompilierenMarkierenSeparieren
-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-------------------------------------------------------------------
End

Grüße

Web
 
Xprofan X3.1
Win7 auf AMDX6
01.08.2008  
 




Jörg
Sellmeyer
Ein paar könnte schwierig werden. Wenns nur einer in einer Gruppe sein soll, versuchs mal mit einer Groupbox drumherum.
Sonst mußt Du nach jedem Klick den Status der Buttons abfragen und entsprechend setzen. Das geht sogar ganz einfach mit GetCheck/SetCheck.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
01.08.2008  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

3.283 Betrachtungen

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

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

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


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie