Ms Calendar Object

[xroot]

Here is a calendar with the MS Calendar control (mscal.ocx).
If you don't have the control I found it here: http://www.fontstuff.com/mailbag/qvba01.htm

I used the "Shell.Explorer" object to dump the MS Calendar control into.
Click any day to get the date.
Very basic stuff, please read the help file for any info on the control.

Tested on Win 7/64 and IE 11.

expandcollapse popup

Func I_Quit()
    Exit
EndFunc



Func Cal_Click()
    MsgBox(4160,"Date Clicked!",$cal.month & "/" & $cal.day & "/" & $cal.year,2)
    $cal.month = @MON
    $cal.day   = @MDAY
    $cal.year  = @YEAR
    WinActivate($hWnd)
EndFunc



HotKeySet("{ESC}","I_Quit")

local $W = 500,$H = 400
global $hWnd     = GuiCreate("ms_Calendar",$W,$H)
local  $shellObj = ObjCreate("Shell.Explorer")
GUICtrlCreateObj($shellObj,0,0,$W,$H)

$shellObj.navigate("about:blank")

While $shellObj.busy
    Sleep(10)
WEnd



local $doc  = $shellObj.document
local $body = $doc.body

global $cal = $doc.createElement("object")
With $cal

    .style.position = "absolute"
    .style.left     = 0
    .style.top      = 0
    .style.width    = $W
    .style.height   = $H
    .classid = "clsid:8E27C92B-1264-101C-8A2F-040224009C02"  ;msCalendar object mscal.ocx  found here:-> http://www.fontstuff.com/mailbag/qvba01.htm

    $body.appendChild($cal)                                  ;must be after classid for cal properties to work
    .titlefont.size = 22
    .titlefont.bold = True
    .dayfont.size   = 12
    .dayfont.bold   = True
    .dayfontcolor   = 0x0000ff  ;red
    .gridfont.size  = 14
    .gridfont.bold  = True
    .gridfontcolor  = 0xff0000  ;blue
    .gridcelleffect = 0
    .backcolor      = 0xb7d5ee  ;bisque
EndWith



ObjEvent($cal.Object,"Cal_")

GuiSetState()

While GUIGetMsg() <> -3
    Sleep(10)
WEnd

 

[argumentum]

Some help:

expandcollapse popup

Events          Description
AfterUpdate     Occurs after the user moves to a new date in the Calendar control and after the calendar has been refreshed.
BeforeUpdate    Occurs after the user moves to a new date in the Calendar control but before the calendar has been refreshed.
Click           Occurs when the user clicks a date in the Calendar control.
DblClick        Occurs when the user double-clicks a date in the Calendar control.
KeyDown         Occurs when the user presses a key while the Calendar control has the focus.
KeyPress        Occurs when the user presses and releases an ANSI key while the Calendar control has the focus.
KeyUp           Occurs when the user releases a key while the Calendar control has the focus.
NewMonth        Occurs when the Calendar control date changes to a new month.
NewYear         Occurs when the Calendar control date changes to a new year.

Method          Description
AboutBox        Displays the version and copyright information.
NextDay         Increments the value of the Calendar control by one day.
NextMonth       Increments the value of the Calendar control by one month.
NextWeek        Increments the value of the Calendar control by one week.
NextYear        Increments the value of the Calendar control by one year.
PreviousDay     Decrements the value of the Calendar control by one day.
PreviousMonth   Decrements the value of the Calendar control by one month.
PreviousWeek    Decrements the value of the Calendar control by one week.
PreviousYear    Decrements the value of the Calendar control by one year.
Refresh         Repaints the calendar.
Today           Sets the current date to today's date.

Property            Description
BackColor           The background color for the Calendar control.
Day                 The currently selected day of the month.
DayFont             The font used to display the days of the week in the Calendar control.
DayFontColor        The color used to display the days of the week.
DayLength           The format used to display days of the week.
FirstDay            The first day of the week that appears in the Calendar control.
GridCellEffect      The effect used to display the calendar.
GridFont            The font used to display the days of the month in the grid.
GridFontColor       The color of the font used to display the days of the month.
GridLinesColor      The gridline color for a Calendar control whose GridCellEffect property is set to Flat (0).
Month               The month currently displayed in a Calendar control.
MonthLength         The format used to display months of the year.
ShowDateSelectors   The visibility of the month and year date selectors.
ShowDays            The visibility of the days of the week.
ShowHorizontalGrid  The visibility of the horizontal gridlines for a Calendar control whose GridCellEffect property is set to Flat.
ShowTitle           The visibility of the month/year title.
ShowVerticalGrid    The visibility of the vertical gridlines for a Calendar control whose GridCellEffect property is set to Flat.
TitleFont           The font used to display the month/year title above the calendar grid.
TitleFontColor      The color to use when displaying the month/year title.
Value               The date value that corresponds to the selected date in the Calendar control.
ValueIsNull         The appearance of the current date as highlighted or not highlighted.
Year                The currently selected year.

 

[mLipok]

Some CleanUp, ..

expandcollapse popup

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

#cs
    https://www.autoitscript.com/forum/topic/179631-ms-calendar-object/

    Calendar Control Reference
    https://technet.microsoft.com/en-us/library/ee692611.aspx

    Calendar Control for All Office versions - including Office 2010 64 bit
    https://sites.google.com/site/e90e50/calendar-control-class
#ce


; Error monitoring. This will trap all COM errors while alive.
; This particular object is declared as local, meaning after the function returns it will not exist.
Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

HotKeySet("{ESC}", "I_Quit")

Local $W = 500, $H = 400
Global $hWnd = GUICreate("ms_Calendar", $W, $H)
Local $shellObj = ObjCreate("Shell.Explorer")
GUICtrlCreateObj($shellObj, 0, 0, $W, $H)

$shellObj.navigate("about:blank")

While $shellObj.busy
    Sleep(10)
WEnd

Local $oDocument = $shellObj.document
Local $oBody = $oDocument.body

Global $oCalendar = $oDocument.createElement("object")
With $oCalendar

    With $oCalendar.style
        .position = "absolute"
        .left = 0
        .top = 0
        .width = $W
        .height = $H
    EndWith

    .classid = "clsid:8E27C92B-1264-101C-8A2F-040224009C02" ;msCalendar object mscal.ocx  found here:-> http://www.fontstuff.com/mailbag/qvba01.htm

    $oBody.appendChild($oCalendar) ;must be after classid for cal properties to work

    .titlefont.size = 22
    .titlefont.bold = True
    .dayfont.size = 12
    .dayfont.bold = True
    .dayfontcolor = 0x0000ff ;red
    .gridfont.size = 14
    .gridfont.bold = True
    .gridfontcolor = 0xff0000 ;blue
    .gridcelleffect = 0
    .backcolor = 0xb7d5ee ;bisque
EndWith

ObjEvent($oCalendar.Object, "Cal_")

GUISetState()

While GUIGetMsg() <> -3
    Sleep(10)
WEnd

Func I_Quit()
    Exit
EndFunc   ;==>I_Quit


Func Cal_Click()
    MsgBox(4160, "Date Clicked!", $oCalendar.month & "/" & $oCalendar.day & "/" & $oCalendar.year, 2)
    $oCalendar.month = @MON
    $oCalendar.day = @MDAY
    $oCalendar.year = @YEAR
    WinActivate($hWnd)
EndFunc   ;==>Cal_Click

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

 

Edited December 31, 2015 by mLipok