Google日历API vb.net 2010，到达日历事件的事件时间

我正在开发一个支持谷歌日历API的定制记事本应用程序，并且已经陷入了死胡同一段时间了。问题是我尝试（使用标准代码）更新/调整现有事件。但在VB中，我只获得了一个AtomFeed，它允许除更改事件日期/时间（据我所知/Google）以外的所有操作。守则：

EventQuery myQuery = new EventQuery(feedUrl);
myQuery.Query = "Tennis";
EventFeed myResultsFeed = myService.Query(myQuery);
if (myResultsFeed.Entries.Count > 0) {
AtomEntry firstMatchEntry = myResultsFeed.Entries0];
String myEntryTitle = firstMatchEntry.Title.Text;

在这段代码中，查询返回一个EventFeed类型，该类型包含单个发生事件的开始/结束时间，可通过When类轻松访问。但是，如果我将代码翻译成VB而不是C#（我在VB.NET 2010中创建了notes应用程序），service.Query方法只返回一个AtomFeed。我似乎无法从AtomEntry访问事件开始/结束日期，也没有找到解析Atom类型或将其转换为事件类型类的方法。。。我当前的代码：

Dim myResultsFeed As AtomFeed = service.Query(myQuery)
Dim firstMatchEntry As AtomEntry

If (myResultsFeed.Entries.Count > 0) Then
firstMatchEntry = myResultsFeed.Entries(0)
firstMatchEntry.Title.Text = updatedNote.Subject

'Would be available in the EventEntry class
'firstMatchEntry.times.add(New [When](gNote.GCalendarDate, endDate))
firstMatchEntry.Update()

---

我在网上广泛搜索过。非常感谢您的回复

我不确定是否理解了您的问题，但如果您想从vb.net更新开始和结束时间，首先必须清除现有时间并添加新时间，就像使用create event一样。下面是代码

>

Dim srvce作为新的Google.GData.Calendar.CalendarService（“gCal”）
Dim查询作为新的FeedQuery
将EVNTERY设置为Google.GData.Calendar.EventEntry
query.Uri=newuri（eventSelfURI）'selfuri是GOOGLE日历提要的Uri
srvce.setUserCredentials（“，”）
将calfeed设置为AtomFeed
calfeed=srvce.Query（查询）
evntretry.Title.Text=newTitle
evntretry.Content.Content=newContent
'设置开始和结束时间-首先清除现有时间并添加新时间
EVNTERY.Times.Clear（）'这将清除现有时间
将新时间变暗为新[何时]（）
newTime.StartTime=newStartDateTime
newTime.EndTime=newEndDateTime
EVNTERY.Times.Add（新时间）
evntretry.Update（）

---

希望这能对您有所帮助。

我不确定是否理解您的问题，但如果您想从vb.net更新开始和结束时间，首先必须清除现有时间并添加新时间，就像使用create event一样。下面是代码

>

Dim srvce作为新的Google.GData.Calendar.CalendarService（“gCal”）
Dim查询作为新的FeedQuery
将EVNTERY设置为Google.GData.Calendar.EventEntry
query.Uri=newuri（eventSelfURI）'selfuri是GOOGLE日历提要的Uri
srvce.setUserCredentials（“，”）
将calfeed设置为AtomFeed
calfeed=srvce.Query（查询）
evntretry.Title.Text=newTitle
evntretry.Content.Content=newContent
'设置开始和结束时间-首先清除现有时间并添加新时间
EVNTERY.Times.Clear（）'这将清除现有时间
将新时间变暗为新[何时]（）
newTime.StartTime=newStartDateTime
newTime.EndTime=newEndDateTime
EVNTERY.Times.Add（新时间）
evntretry.Update（）

希望这对你有帮助

       Dim srvce As New Google.GData.Calendar.CalendarService("gCal")
       Dim query As New FeedQuery
       Dim evntEntry As Google.GData.Calendar.EventEntry

       query.Uri = New Uri(eventSelfURI) 'SELF URI IS THE URI FOR GOOGLE CALENDAR FEED

       srvce.setUserCredentials("<<EMAIL>>", "<<PASSWORD>>")
       Dim calfeed As AtomFeed
       calfeed = srvce.Query(query)


       evntEntry.Title.Text = newTitle
       evntEntry.Content.Content = newContent

       'SETTING UP THE START AND END TIME - FIRST CLEARING EXISTING TIMING AND ADDING NEW
       evntEntry.Times.Clear() 'THIS WILL CLEAR THE EXISTING TIME
       Dim newTime As New [When]()
       newTime.StartTime = newStartDateTime
       newTime.EndTime = newEndDateTime
       evntEntry.Times.Add(newTime)

       evntEntry.Update()