Sending output of date selector

[richd1]

I am trying to create a date selector box with version 2 but cant seem to figure out how to send the input from what is selected to where I am typing (notepad or word document)

This is my code so far as best as I could figure out from searching the internet. Can someone help me fix the code.

Code: Select all

!d::

{

MyGui := Gui(, "Date")

MyGui.AddMonthCal("vMonthCalendar")

MyGui.Add("Button", "default", "OK").OnEvent("Click", ProcessUserInput)

MyGui.OnEvent("Close", ProcessUserInput)

MyGui.Show()

 

ProcessUserInput(*)

{

  Saved := MyGui.Submit()

}

}

[Mod edit: Added [code][/code] tags. Please use them yourself when posting code.]

[Mod action: Moved post from a very loosely related thread (about a function for bolding holidays in a date selector box) to its own thread.]

[boiler]

You can change the MsgBox to Send or whatever you want to do with the result.

Code: Select all

#Requires AutoHotkey v2.0

MyGui := Gui(, "Date")
MyGui.AddMonthCal("vMonthCalendar")
MyGui.Add("Button", "default", "OK").OnEvent("Click", ProcessUserInput)
MyGui.OnEvent("Close", ProcessUserInput)

!d::MyGui.Show()

ProcessUserInput(*)
{
  Saved := MyGui.Submit()
  MsgBox Saved.MonthCalendar
}

[kunkel321]

Added to Boilers, to make Enter key also enter the date.

Code: Select all

#SingleInstance
#Requires AutoHotkey v2.0

MyGui := Gui(, "Date")
MyGui.AddMonthCal("vMonthCalendar")
MyGui.Add("Button", "default", "OK").OnEvent("Click", ProcessUserInput)
MyGui.OnEvent("Close", ProcessUserInput)

!d::MyGui.Show()

#HotIf WinActive("Date") ; Only when caldendar gui is showing
Enter:: ; Press enter to choose date.
ProcessUserInput(*)
{
  Saved := MyGui.Submit()
  MsgBox formatTime(Saved.MonthCalendar, "MM/dd/yyyy")
}
#HotIf