XProfan

Español

Rainer
Hoefs

¡Hola zusammen,

habe como una Bitte,

Yo möchte de una Kalender (con SysMonthCal32 erstellt) el Datum auslesen.

Posesiones ya gesucht y gesucht y gesucht...
aber desafortunadamente nichts gefunden.

Kann me Por favor, alguien helfen?

Gracias en el voraus
Rainer

Kompilieren Marca Separación

' Code producido con F.Abbing's LemonViD Versión 1.0.0.3 al 19.04.2016 en 12:59 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools para XProfan en https://frabbing.net
' Technischer Apoyo en ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan y https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Declarar 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

    Ventana de Estilo 10 | 512 | 2048
    Título de la ventana "Arbeitsfenster"
    Ventana 280, 0 - 474, 434
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    dialog1% = Crear("Dialog", %hwnd, "dialog", 64, 40, 224, 280)
    calendar1% = Control("SysMonthCal32", "", $54000000, 8, 13, 200, 200, dialog1%, $4000, %hInstance, 0)
    button2% = Crear("Button", dialog1%, "Abbrechen", 112, 221, 96, 24)
    button1% = Crear("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

    Mensajes del usuario 16
    ShowWindow(%hwnd, 1)
    Subclass calendar1%, 1

    Mientras que 1

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

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

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

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

        EndIf

    EndWhile

    Subclass calendar1%, 0

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
End

FreeProfan

19.04.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Yo habe veces una Función "GetDate" instalado, con de los aktuell gewählte Datum ausgelesen voluntad kann:

Kompilieren Marca Separación

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

    Ventana de Estilo 10 | 512 | 2048
    Título de la ventana "Arbeitsfenster"
    Ventana 280, 0 - 474, 434
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    dialog1% = Crear("Dialog", %hwnd, "dialog", 64, 40, 224, 280)
    calendar1% = Control("SysMonthCal32", "", $54000000, 8, 13, 200, 200, dialog1%, $4000, %hInstance, 0)
    button2% = Crear("Button", dialog1%, "Abbrechen", 112, 221, 96, 24)
    button1% = Crear("Button", dialog1%, "Datum lesen", 8, 221, 96, 24)

ENDPROC

Proc GetDate

    Parámetros cal&
    Declarar Datum#, Erg$
    dim Datum#,20
    SendMessage(Cal&,4097,0,Datum#)
    Erg$ = format$("00",word(Datum#,6))+"."+format$("00",word(Datum#,2))+"."+format$("0000",word(Datum#,0))
    Disponer Datum#
    Volver Erg$

ENDPROC

Proc MainLoop

    Mensajes del usuario 16
    ShowWindow(%hwnd, 1)

    Mientras que 1

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

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

            imprimir GetDate(calendar1%)

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

            DestroyWindow(dialog1%)

        EndIf

    EndWhile

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
End