↑  ←  Описание функции


_GUICtrlMonthCal_Create

Создаёт календарь месяца

#include <GuiMonthCal.au3>
_GUICtrlMonthCal_Create($hWnd, $iX, $iY [, $iStyle = 0x00000000 [, $iExStyle = 0x00000000]])

Параметры

$hWnd Дескриптор родительского окна или окна владельца
$iX Координата левого края
$iY Координата верхнего края
$iStyle [необязательный] Стиль элемента:
    $MCS_DAYSTATE - Элемент календарь высылает сообщение $MCN_GETDAYSTATE для запроса информации о том, какие дни должны отображаться жирным шрифтом.
    $MCS_MULTISELECT - Элемент календарь позволяет пользователю выбрать диапазон дат
    $MCS_WEEKNUMBERS - Элемент календарь отображает номера недель (1-52) слева от каждого ряда дней (счёт от начала года).
    $MCS_NOTODAYCIRCLE - Элемент календарь не отображает рамку вокруг "текущей" даты.
    $MCS_NOTODAY - Элемент календарь не отображает "текущую" дату в нижней части элемента.
    принудительный стиль: $WS_CHILD, $WS_VISIBLE
$iExStyle [необязательный] Расширенный стиль элемента

Возвращаемое значение

Успех:Возвращает дескриптор элемента
Ошибка:Возвращает 0

Примечания

Эта функция предназначена для опытных пользователей и для изучения того, как элемент работает.

См. также

_GUICtrlMonthCal_Destroy, _GUICtrlMonthCal_GetColorArray

Пример

#include <GUIConstantsEx.au3>
#include <GuiMonthCal.au3>
#include <WindowsConstants.au3>

$Debug_MC = False ; Проверяет ClassName передаваемый в MonthCal функции. Установите True и используйте дескриптор от другого элемента, чтобы увидеть как это работает

Global $hMonthCal

_Main()

Func _Main()
    Local $hGUI

    ; Создаёт GUI
    $hGUI = GUICreate("Создание календаря месяца", 400, 300)
    $hMonthCal = _GUICtrlMonthCal_Create($hGUI, 4, 4, $WS_BORDER)
    GUISetState()

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

    ; Цикл выполняется, пока окно не будет закрыто
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hMonthCal
            Switch $iCode
                Case $MCN_GETDAYSTATE ; Sent by a month calendar control to request information about how individual days should be displayed
                    $tInfo = DllStructCreate($tagNMDAYSTATE, $ilParam)
                    _DebugPrint("$MCN_GETDAYSTATE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->Year:" & @tab & DllStructGetData($tInfo, "Year") & @LF & _
                            "-->Month:" & @tab & DllStructGetData($tInfo, "Month") & @LF & _
                            "-->DOW:" & @tab & DllStructGetData($tInfo, "DOW") & @LF & _
                            "-->Day:" & @tab & DllStructGetData($tInfo, "Day") & @LF & _
                            "-->Hour:" & @tab & DllStructGetData($tInfo, "Hour") & @LF & _
                            "-->Minute:" & @tab & DllStructGetData($tInfo, "Minute") & @LF & _
                            "-->Second:" & @tab & DllStructGetData($tInfo, "Second") & @LF & _
                            "-->MSecond:" & @tab & DllStructGetData($tInfo, "MSecond") & @LF & _
                            "-->DayState:" & @tab & DllStructGetData($tInfo, "DayState") & @LF & _
                            "-->pDayState:" & @tab & DllStructGetData($tInfo, "pDayState"))
                    ; Address of an array of MONTHDAYSTATE (DWORD bit field that holds the state of each day in a month)
                    ; Each bit (1 through 31) represents the state of a day in a month. If a bit is on, the corresponding day will
                    ; be displayed in bold; otherwise it will be displayed with no emphasis.
                    ; Нет возвращаемых значений
                Case $MCN_SELCHANGE ; Sent by a month calendar control when the currently selected date or range of dates changes
                    $tInfo = DllStructCreate($tagNMSELCHANGE, $ilParam)
                    _DebugPrint("$MCN_SELCHANGE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->BegYear:" & @tab & DllStructGetData($tInfo, "BegYear") & @LF & _
                            "-->BegMonth:" & @tab & DllStructGetData($tInfo, "BegMonth") & @LF & _
                            "-->BegDOW:" & @tab & DllStructGetData($tInfo, "BegDOW") & @LF & _
                            "-->BegDay:" & @tab & DllStructGetData($tInfo, "BegDay") & @LF & _
                            "-->BegHour:" & @tab & DllStructGetData($tInfo, "BegHour") & @LF & _
                            "-->BegMinute:" & @tab & DllStructGetData($tInfo, "BegMinute") & @LF & _
                            "-->BegSecond:" & @tab & DllStructGetData($tInfo, "BegSecond") & @LF & _
                            "-->BegMSeconds:" & @tab & DllStructGetData($tInfo, "BegMSeconds") & @LF & _
                            "-->EndYear:" & @tab & DllStructGetData($tInfo, "EndYear") & @LF & _
                            "-->EndMonth:" & @tab & DllStructGetData($tInfo, "EndMonth") & @LF & _
                            "-->EndDOW:" & @tab & DllStructGetData($tInfo, "EndDOW") & @LF & _
                            "-->EndDay:" & @tab & DllStructGetData($tInfo, "EndDay") & @LF & _
                            "-->EndHour:" & @tab & DllStructGetData($tInfo, "EndHour") & @LF & _
                            "-->EndMinute:" & @tab & DllStructGetData($tInfo, "EndMinute") & @LF & _
                            "-->EndSecond:" & @tab & DllStructGetData($tInfo, "EndSecond") & @LF & _
                            "-->EndMSeconds:" & @tab & DllStructGetData($tInfo, "EndMSeconds"))
                    ; Нет возвращаемых значений
                Case $MCN_SELECT ; Sent by a month calendar control when the user makes an explicit date selection within a month calendar control
                    $tInfo = DllStructCreate($tagNMSELCHANGE, $ilParam)
                    _DebugPrint("$MCN_SELECT" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->BegYear:" & @tab & DllStructGetData($tInfo, "BegYear") & @LF & _
                            "-->BegMonth:" & @tab & DllStructGetData($tInfo, "BegMonth") & @LF & _
                            "-->BegDOW:" & @tab & DllStructGetData($tInfo, "BegDOW") & @LF & _
                            "-->BegDay:" & @tab & DllStructGetData($tInfo, "BegDay") & @LF & _
                            "-->BegHour:" & @tab & DllStructGetData($tInfo, "BegHour") & @LF & _
                            "-->BegMinute:" & @tab & DllStructGetData($tInfo, "BegMinute") & @LF & _
                            "-->BegSecond:" & @tab & DllStructGetData($tInfo, "BegSecond") & @LF & _
                            "-->BegMSeconds:" & @tab & DllStructGetData($tInfo, "BegMSeconds") & @LF & _
                            "-->EndYear:" & @tab & DllStructGetData($tInfo, "EndYear") & @LF & _
                            "-->EndMonth:" & @tab & DllStructGetData($tInfo, "EndMonth") & @LF & _
                            "-->EndDOW:" & @tab & DllStructGetData($tInfo, "EndDOW") & @LF & _
                            "-->EndDay:" & @tab & DllStructGetData($tInfo, "EndDay") & @LF & _
                            "-->EndHour:" & @tab & DllStructGetData($tInfo, "EndHour") & @LF & _
                            "-->EndMinute:" & @tab & DllStructGetData($tInfo, "EndMinute") & @LF & _
                            "-->EndSecond:" & @tab & DllStructGetData($tInfo, "EndSecond") & @LF & _
                            "-->EndMSeconds:" & @tab & DllStructGetData($tInfo, "EndMSeconds"))
                    ; Нет возвращаемых значений
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
    ConsoleWrite( _
            "!===========================================================" & @LF & _
            "+======================================================" & @LF & _
            "-->Строка(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
            "+======================================================" & @LF)
EndFunc   ;==>_DebugPrint