GUICtrlCreateMonthCal format headache

[Noshmon]

Hi all,

I'm trying to use GUICtrlRead to read the selected date from a calendar. That is then intended to be used as a filename. I've tried using GUICtrlCreateDate but I need the calendar embedded as opposed to a drop down. I have no experience in arrays as of yet so I haven't tried using StringSplit. Could this be an option? If so a description of what the code is doing would be helpful as I'm eager to learn.

I don't think that you'll need the code but I'll be happy to post up upon request.

Thanks in advance

[PsaltyDS]

If you are not using GuiCtrlCreateDate(), then how are you creating your calendar? Post a short demo script that just creates a simple GUI with your calendar in it and maybe displays the selection text you are getting (creating files, etc. is not required).

[Noshmon]

Thanks for your reply.

GUICtrlCreateDate shows a drop out calendar. GUICtrlCreateMonthCal has a calendar embedded into the GUI.

GUICreate("Sample Calendar")

; This creates the calendar
$Calendar = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @YDAY,5,5,200,200)

$MsgBox   = GUICtrlCreateButton("Show Output",5,205)
$Exit     = -3


GuiSetState()
While 1
    Switch GUIGetMsg()
        Case $Exit
            ExitLoop

        Case $MsgBox
            $Output = GUICtrlRead($Calendar)
            MsgBox(0,"Calendar Output",$Output)
    EndSwitch
WEnd

[JoHanatCent]

Hi all,

I'm trying to use GUICtrlRead to read the selected date from a calendar. That is then intended to be used as a filename.

Are you just trying to get it in a different format for the file name?

GUICreate("Sample Calendar")
; This creates the calendar
$Calendar = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @YDAY,5,5,200,200)
$MsgBox   = GUICtrlCreateButton("Show Output",5,205)
$Exit     = -3
GuiSetState()
While 1
    Switch GUIGetMsg()
        Case $Exit
            ExitLoop
        Case $MsgBox
            $Output = GUICtrlRead($Calendar)
            $Output = StringLeft($Output,4) & StringMid($Output,6,2)&StringRight($Output,2)
            MsgBox(0,"Calendar Output","Useable string = > " &$Output);<<< ?
    EndSwitch
WEnd

Spellings

Edited March 8, 2011 by JoHanatCent

[Noshmon]

Hi Jo,

Thanks for that. It works exactly as I need it to.

[JoHanatCent]

Hi Jo,

Thanks for that. It works exactly as I need it to.

Welcome!