XProfan

Français

Erasmus.Herold

Hallöchen ...

peux mir quelqu'un à einem kleinen Beispiel (avec z.B. 3 Radiobutton) expliquer,
comment je abfragen peux, quel qui trois Button ausgewählt wurde?

Aus qui Doku zum "GetCheck" erschließt sich Je ne qui Zuweisung trop
den 3 Buttons einer Gruppe trop dem auszulesenden Wert.

merci pour qui Unterstützung et cela winzige Beispiel.

Salut
Erasmus

11.06.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

Kompilieren Marque Séparation

Déclarer Long radio1, radio2, radio3, exit,  ende
ende = 0
Fenêtre 600, 400
Créer("GroupBox", %HWnd, "Meine Auswahl", 10, 10, 120, 140)
radio1 = Créer(Bouton Radio ", %HWnd, "Auswahl 1", 20, 40,  100, 25)
radio2 = Créer(Bouton Radio ", %HWnd, "Auswahl 2", 20, 80,  100, 25)
radio3 = Créer(Bouton Radio ", %HWnd, "Auswahl 3", 20, 120, 100, 25)
exit = Créer("Button", %HWnd, "EXIT", 20, 180, 60, 25)

WhileNot ende

    Waitinput

    Si GetCheck(radio1)

        DrawText 150, 50, "Radiobutton 1 gewählt !"

    ElseIf GetCheck(radio2)

        DrawText 150, 50, "Radiobutton 2 gewählt !"

    ElseIf GetCheck(radio3)

        DrawText 150, 50, "Radiobutton 3 gewählt !"

    EndIf

    Si Clicked(exit)

        ende = 1

    EndIf

Endwhile

Fin

qui GroupBox dient oui seulement zur Übersichtlichkeit. là braucht es aussi
pas absolument un Handle pour. important ist, qui on GetCheck pas
avec anderen Check-Funktionen (z.B. Clicked) vermischt. là reagiert
qui Button pas plus sur elle, pourquoi De toute façon. tout autor cela extra
Si Clicked().

PS: GetCheck gibt seulement True ou bien False (1 ou bien 0) zurück.
quoi passer soll, si einer sur une cette Radiobuttons
drückt, bleibt dir überlassen. il peut z.B. une variable avec
einem certain Wert füllen. Wird vielfach verwendet, um
un formulaire auszufüllen z.B. monsieur/madame wohin ensuite qui String
s = "Herr" ou bien s = "Frau" gesetzt wird.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

11.06.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Erasmus.Herold

merci!

parfait erklärt. Funktioniert.

11.06.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

qui Groupbox dient incidemment pas zur zur grafischen Aufhübschung mais sortiert qui Radiobuttons aussi dans ihrer Funktion.
tout autor ist es sinnvoller, qui Groupbox pour den Buttons trop erstellen. qui Buttons au-dessus de qui Groupboxzeile réagir ensuite comme separate Auswahlmöglichkeiten. une zweite Gruppe (ou bien weitere) peut ensuite extra abgefragt/markiert volonté.

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

12.06.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Erasmus.Herold

merci pour qui Zusatzinfo.

12.06.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Jörg était plus rapide

qui Gruppen-cadre wird zur optischen Gruppierung dedans de Dialogboxen eingesetzt, mais aussi zum Gruppieren qui Radiobuttons.

ici comme Beispiel

Kompilieren Marque Séparation

Déclarer Long radio1, radio2, radio3, radio4, radio5, radio6, exit,  ende
ende = 0
Fenêtre 600, 400
radio1 = Créer(Bouton Radio ", %HWnd, "Auswahl 1", 20, 40,  100, 25)
radio2 = Créer(Bouton Radio ", %HWnd, "Auswahl 2", 20, 80,  100, 25)
radio3 = Créer(Bouton Radio ", %HWnd, "Auswahl 3", 20, 120, 100, 25)
Créer("GroupBox", %HWnd, "Meine Auswahl", 10, 10, 120, 140)
exit = Créer("Button", %HWnd, "EXIT", 20, 180, 60, 25)
radio4 = Créer(Bouton Radio ", %HWnd, "Auswahl 4", 150, 40,  100, 25)
radio5 = Créer(Bouton Radio ", %HWnd, "Auswahl 5", 150, 80,  100, 25)
radio6 = Créer(Bouton Radio ", %HWnd, "Auswahl 6", 150, 120, 100, 25)
Créer("GroupBox", %HWnd, "Meine sélection 2", 140, 10, 120, 140)

WhileNot ende

    Waitinput

    Si GetCheck(radio1)

        DrawText 300, 50, "Radiobutton 1 gewählt !"

    ElseIf GetCheck(radio2)

        DrawText 300, 50, "Radiobutton 2 gewählt !"

    ElseIf GetCheck(radio3)

        DrawText 300, 50, "Radiobutton 3 gewählt !"

    EndIf

    Si GetCheck(radio4)

        DrawText 300, 70, "Radiobutton 4 gewählt !"

    ElseIf GetCheck(radio5)

        DrawText 300, 70, "Radiobutton 5 gewählt !"

    ElseIf GetCheck(radio6)

        DrawText 300, 70, "Radiobutton 6 gewählt !"

    EndIf

    Si Clicked(exit)

        ende = 1

    EndIf

Endwhile

Fin