XProfan

Français

Rainer
Hoefs

allô zusammen,

habe là une s'il te plaît,

je voudrais aus einem le calendrier (avec SysMonthCal32 erstellt) cela date auslesen.

Habe déjà gesucht et gesucht et gesucht...
mais malheureusement rien trouvé.

peux mir s'il te plaît quelqu'un aider?

merci d'avance
Rainer

Kompilieren Marque Séparation

' Code erzeugt avec F.Abbing's LemonViD Version 1.0.0.3 am 19.04.2016 um 12:59 montre,
' Spenden-Button, sowie weitere Freeware-Tools pour XProfan sur https://frabbing.net
' Technischer Soutien sur ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan et https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Déclarer nurso%, dialog1%, button1%, button2%, calendar1%
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def GetDlgCtrlID(1) !"User32","GetDlgCtrlID"
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Def &WM_COMMAND $111

Proc CreateElements

    Fenêtre Style 10 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 280, 0 - 474, 434
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    dialog1% = Créer("Dialog", %hwnd, "dialog", 64, 40, 224, 280)
    calendar1% = Contrôle("SysMonthCal32", », $54000000, 8, 13, 200, 200, dialog1%, $4000, %hInstance, 0)
    button2% = Créer("Button", dialog1%, "Abbrechen", 112, 221, 96, 24)
    button1% = Créer("Button", dialog1%, "Datum lesen", 8, 221, 96, 24)

ENDPROC

SubClassProc

    Select %smessage

        CaseOf $114, $115

        SendMessage(%hwnd, %smessage, &swparam, &slparam)

        CaseOf $101, $202, $205, $208

        SendMessage(%hwnd, &WM_COMMAND, MakeLong(GetDlgCtrlID(&swnd), 0), &swnd)

    EndSelect

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)
    Sous-classe calendar1%, 1

    Tandis que 1

        WaitInput
        Cas ((%umessage = 16) And (&uwnd = %hwnd)) : BREAK

        Si Clicked(button1%)'dialog1% -> #window

        ElseIf Clicked(button2%)'dialog1% -> #window

        ElseIf Clicked(calendar1%)'dialog1% -> #window

        EndIf

    Endwhile

    Sous-classe calendar1%, 0

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
Fin

FreeProfan

19.04.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

j'ai la fois une Funktion "GetDate" incorporé, avec qui cela aktuell gewählte date ausgelesen volonté peux:

Kompilieren Marque Séparation

Def GetParent(1) !"User32","GetParent"
Def GetDlgCtrlID(1) !"User32","GetDlgCtrlID"
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Def &WM_COMMAND $111

Proc CreateElements

    Fenêtre Style 10 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 280, 0 - 474, 434
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    dialog1% = Créer("Dialog", %hwnd, "dialog", 64, 40, 224, 280)
    calendar1% = Contrôle("SysMonthCal32", », $54000000, 8, 13, 200, 200, dialog1%, $4000, %hInstance, 0)
    button2% = Créer("Button", dialog1%, "Abbrechen", 112, 221, 96, 24)
    button1% = Créer("Button", dialog1%, "Datum lesen", 8, 221, 96, 24)

ENDPROC

Proc GetDate

    Paramètres cal&
    Déclarer date#, Erg$
    dim date#,20
    SendMessage(Cal&,4097,0,date#)
    Erg$ = format$("00",word(date#,6))+"."+format$("00",word(date#,2))+"."+format$("0000",word(date#,0))
    Dispose date#
    Retour Erg$

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)

    Tandis que 1

        WaitInput
        Cas ((%umessage = 16) And (&uwnd = %hwnd)) : BREAK

        Si Clicked(button1%)'dialog1% -> #window

            imprimer GetDate(calendar1%)

        ElseIf Clicked(button2%)'dialog1% -> #window

            DestroyWindow(dialog1%)

        EndIf

    Endwhile

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
Fin