Italia
Fonte/ Codesnippets

Dialoge Eingabemöglich Erstellen Radiobuttons

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialoge erstellen (auch mit Radiobuttons und Eingabemöglichkeit)
Declare Ende%

PROC Dialog1

    Declare hD%, hB%, OK%
    Dialogfenster erzeugen
    Let hD% = @CreateDialog(%HWnd,Dialogfenster,80,90,180,160)
    Einen Button mit OK erzeugen
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        EndIf

    Wend

    Dialogfenster (incl. Button) entfernen
    @DestroyWindow(hD%)

ENDPROC

PROC Dialog2

    Declare hD%, hB%, OK%
    Dialogfenster erzeugen
    Let hD% = @CreateDialog(%HWnd,Dialogfenster,80,90,180,160)
    Einen Button mit OK erzeugen
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        ElseIf @MenuItem(199) Menüpunkt Ende

            Let Ok% = 1
            Let Ende% = 1

        EndIf

    Wend

    Dialogfenster (incl. Button) entfernen
    @DestroyWindow(hD%)

ENDPROC

PROC Dialog3

    Declare hD%, hB%, OK%
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 3,80,90,180,160)
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    @CreateText(hD%,Ihre Festplatte wird formatiert,
    20,5,140,50)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog4

    Declare hD%, hB%, hA%, OK%
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 4,80,90,180,160)
    Let hB% = @CreateButton(hD%,&OK,10,100,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,100,60,25)
    @CreateText(hD%,Ihre Festplatte wird formatiert,
    20,5,140,50)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hA%)     ABBRUCH wurde angeklickt

            Let Ok% = 1

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Print Die Festplatte wurde formatiert!

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog5

    Declare hD%, hB%, hA%, hV%, hN%, OK%,
    Name$, Vorname$
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 5,80,90,180,160)
    @CreateText(hD%,Vorname:, 10, 8,60,20)
    @CreateText(hD%,Name:,    10,33,60,20)
    Let hV% = @CreateEdit(hD%,,75, 5,85,24)
    Let hN% = @CreateEdit(hD%,,75,30,85,24)
    Let hB% = @CreateButton(hD%,&OK,10,100,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,100,60,25)
    Dialog-Schleife
    @SetFocus(hV%)
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @Equ(%Key,2)       Alt-F4 bzw. Schließen

            Let Ok% = 1

        ElseIf @GetFocus(hA%) ABBRUCH wurde angeklickt

            Let Ok% = 1
            Cls
            Print ... abgebrochen ...

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Let Name$    = @GetText$(hN%)
            Let Vorname$ = @GetText$(hV%)
            Cls
            Print Name: ;Vorname$,Name$

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

PROC Dialog6

    Declare hD%, hB%, hA%, hV%, hN%, hK%, hGm%, hGw%, OK%,
    Name$, Vorname$
    Let hD% = @CreateDialog(%HWnd,Dialogfenster 6,80,90,180,200)
    @CreateText(hD%,Vorname:, 10, 8,60,20)
    @CreateText(hD%,Name:,    10,33,60,20)
    @CreateIcon(hD%,PROFAN, 125,90)
    @CreateGroupBox(hD%,Geschlecht,10,75,100,60)
    Let hV% = @CreateEdit(hD%,,75, 5,85,24)
    Let hN% = @CreateEdit(hD%,,75,30,85,24)
    Let hk% = @CreateCheckBox(hD%,Kunde,10,55,60,24)
    Let hGw%= @CreateRadioButton(hD%,weiblich,17, 93,80,20)
    Let hGm%= @CreateRadioButton(hD%,männlich,17,113,80,20)
    Let hB% = @CreateButton(hD%,&OK,10,140,40,25)
    Let hA% = @CreateButton(hD%,&Abbruch,100,140,60,25)
    @SetFocus(hV%)
    SetCheck hGw%,1         weiblich ankreuzen
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @Equ(%Key,2)       Alt-F4 bzw. Schließen

            Let Ok% = 1

        ElseIf @GetFocus(hA%) ABBRUCH wurde angeklickt

            Let Ok% = 1
            Cls
            Print ... abgebrochen ...

        ElseIf @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1
            Let Name$    = @GetText$(hN%)
            Let Vorname$ = @GetText$(hV%)
            Cls
            Print Name: ;Vorname$,Name$

            If @GetCheck(hGw%)

                Print weiblich ;

            Else

                Print männlich ;

            Endif

            If @GetCheck(hK%)

                Print und Kunde!

            Else

                Print und noch nicht Kunde!

            Endif

        EndIf

    Wend

    @DestroyWindow(hD%)

ENDPROC

Haupt-Programm
--------------
Window 20,20-400,300
PopUp &Aktion
AppendMenu 101,Dialog &1
AppendMenu 102,Dialog &2
AppendMenu 103,Dialog &3
AppendMenu 104,Dialog &4
AppendMenu 105,Dialog &5
AppendMenu 106,Dialog &6
Separator
AppendMenu 199,&Ende
Let Ende% = 0

WhileNot Ende%

    WaitInput

    If @MenuItem(101)

        Dialog1

    ElseIf @MenuItem(102)

        Dialog2

    ElseIf @MenuItem(103)

        Dialog3

    ElseIf @MenuItem(104)

        Dialog4

    ElseIf @MenuItem(105)

        Dialog5

    ElseIf @MenuItem(106)

        Dialog6

    ElseIf @MenuItem(199)

        Let Ende% = 1

    EndIf

Wend

End
 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

1.647 Views

Untitledvor 0 min.
rquindt08.05.2018
Ernst15.06.2016
Torben Nissen02.03.2015
holmol9312.06.2013
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


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