Google 日历 API 创建全天活动 VB.net
Google Calendar API create all day event VB.net
我正在尝试通过 vb.net 中的 winforms 应用在 google 日历中创建全天活动。我可以使用开始时间和结束时间很好地创建一个事件,但我不知道如何整天都在创建一个事件。下面注释掉的代码适用于 'time of day' 事件。
'Dim CalendarEvent As New Data.Event
'Dim StartDateTime As New Data.EventDateTime
'Dim datestr As String
'datestr = UIFORM.REQDATE.Value.ToString("dd/MM/yyyy") & " 07:00 am"
'StartDateTime.DateTime = Date.ParseExact(datestr, "dd/MM/yyyy hh:mm tt", System.Globalization.DateTimeFormatInfo.InvariantInfo)
'datestr = UIFORM.REQDATE.Value.ToString("dd/MM/yyyy") & " 03:00 pm"
'Dim EndDateTime As New Data.EventDateTime
'EndDateTime.DateTime = Date.ParseExact(datestr, "dd/MM/yyyy hh:mm tt", System.Globalization.DateTimeFormatInfo.InvariantInfo)
'CalendarEvent.Start = StartDateTime
'CalendarEvent.End = EndDateTime
'CalendarEvent.Description = "Inserted from Order Entry"
'CalendarEvent.Summary = NUMBER & " - " & NAME
'Authenticate()
'service.Events.Insert(CalendarEvent, "primary").Execute()
根据一些消息来源,我只需要指定日期而无需指定时间来制作一整天的活动。这是我尝试过的:
Dim CalendarEvent As New Data.Event
Dim datestr As String
datestr = UIFORM.REQDATE.Value.ToString("yyyy-MM-dd")
CalendarEvent.Start.Date = datestr
CalendarEvent.End.Date = datestr
CalendarEvent.Description = "Inserted from Order Entry"
CalendarEvent.Summary = "all day test"
Authenticate()
service.Events.Insert(CalendarEvent, "primary").Execute()
一碰到 CalendarEvent.Start.Date = datestr,我就收到一个对象引用错误。
我认为你需要这样做:
Dim datestr As String = UIFORM.REQDATE.Value.ToString("yyyy-MM-dd")
Dim StartDateTime As New Data.EventDateTime With {.Date = datestr}
Dim EndDateTime As New Data.EventDateTime With {.Date = datestr}
Dim CalendarEvent As New Data.Event With {
.Start = StartDateTime,
.End = EndDateTime,
.Description = "Inserted from Order Entry",
.Summary = "all day test"
}
Authenticate()
service.Events.Insert(CalendarEvent, "primary").Execute()
基于此处的 API 参考:
在这个 Stack Overflow 问题的进一步帮助下:
Creating a Google Calendar event in VB
我正在尝试通过 vb.net 中的 winforms 应用在 google 日历中创建全天活动。我可以使用开始时间和结束时间很好地创建一个事件,但我不知道如何整天都在创建一个事件。下面注释掉的代码适用于 'time of day' 事件。
'Dim CalendarEvent As New Data.Event
'Dim StartDateTime As New Data.EventDateTime
'Dim datestr As String
'datestr = UIFORM.REQDATE.Value.ToString("dd/MM/yyyy") & " 07:00 am"
'StartDateTime.DateTime = Date.ParseExact(datestr, "dd/MM/yyyy hh:mm tt", System.Globalization.DateTimeFormatInfo.InvariantInfo)
'datestr = UIFORM.REQDATE.Value.ToString("dd/MM/yyyy") & " 03:00 pm"
'Dim EndDateTime As New Data.EventDateTime
'EndDateTime.DateTime = Date.ParseExact(datestr, "dd/MM/yyyy hh:mm tt", System.Globalization.DateTimeFormatInfo.InvariantInfo)
'CalendarEvent.Start = StartDateTime
'CalendarEvent.End = EndDateTime
'CalendarEvent.Description = "Inserted from Order Entry"
'CalendarEvent.Summary = NUMBER & " - " & NAME
'Authenticate()
'service.Events.Insert(CalendarEvent, "primary").Execute()
根据一些消息来源,我只需要指定日期而无需指定时间来制作一整天的活动。这是我尝试过的:
Dim CalendarEvent As New Data.Event
Dim datestr As String
datestr = UIFORM.REQDATE.Value.ToString("yyyy-MM-dd")
CalendarEvent.Start.Date = datestr
CalendarEvent.End.Date = datestr
CalendarEvent.Description = "Inserted from Order Entry"
CalendarEvent.Summary = "all day test"
Authenticate()
service.Events.Insert(CalendarEvent, "primary").Execute()
一碰到 CalendarEvent.Start.Date = datestr,我就收到一个对象引用错误。
我认为你需要这样做:
Dim datestr As String = UIFORM.REQDATE.Value.ToString("yyyy-MM-dd")
Dim StartDateTime As New Data.EventDateTime With {.Date = datestr}
Dim EndDateTime As New Data.EventDateTime With {.Date = datestr}
Dim CalendarEvent As New Data.Event With {
.Start = StartDateTime,
.End = EndDateTime,
.Description = "Inserted from Order Entry",
.Summary = "all day test"
}
Authenticate()
service.Events.Insert(CalendarEvent, "primary").Execute()
基于此处的 API 参考:
在这个 Stack Overflow 问题的进一步帮助下:
Creating a Google Calendar event in VB