Google calendar api vb.net中的谷歌日历

我正在尝试将谷歌网站上提供的C#.NET的日历代码转换为VB.NET，并面临一些转换问题。请帮帮我

C#.net中的代码：

我在VB.NET中的代码：

Public Sub RetrieveAcls(ByVal service As CalendarService)

        Dim query As New FeedQuery
        query.Uri = New Uri("http://www.google.com/calendar/feeds/testingforfinals@gmail.com")

        Dim calFeed As New AtomFeed(service.Query(query))

        Console.WriteLine()
        Console.WriteLine("Sharing permissions for your calendars:")

        Dim calendarEntry As New AtomEntry
        Dim link As New AtomLink
        Dim aclEntry As New AclEntry
        For Each calendarEntry In calFeed.Entries
            Console.WriteLine("Calendar: {0}", calendarEntry.Title.Text)

            link = calendarEntry.Links.FindService(AclNameTable.LINK_REL_ACCESS_CONTROL_LIST, "")

            If (link Is Nothing) Then
                Dim feed As AclFeed()

                feed = New AclFeed(query, service)

                feed = service.Query(New AclQuery(link.HRef.ToString()))



                For Each aclEntry In feed.Entries
                    Console.WriteLine("\tScope: Type={0} ({1})", aclEntry.Scope.Type, aclEntry.Scope.Value)
                    Console.WriteLine("\tRole: {0}", aclEntry.Role.Value)
                Next
            End If

        Next


    End Sub

我在“feed=New AclFeed（query，service）”中的“query”处遇到错误，其中表示Google.GData.Client.FeedQuery类型的值无法转换为“System.Uri”。。。这个问题已经解决了。。。最后一个问题如下所示

Dim myQuery As New EventQuery(feedURI)

Dim myResultsFeed As New EventFeed(service.Query(myQuery))

“myResultsFeed”上出现错误，原因是“Public Sub New（uriBase作为System.Uri，iSeries作为Google.GData.Client.iService）”的参数“iSeries设备”未指定参数”。而“service.Query（myQuery））上的另一个错误是“类型为'Google.GData.Calendar.EventFeed'的值无法转换为'System.Uri'。”

静态无效DateRangeQuery（CalendarService服务、DateTime startTime、DateTime endTime）
{
EventQuery myQuery=新的EventQuery（feedUri）；
myQuery.StartTime=StartTime；
myQuery.EndTime=EndTime；
EventFeed myResultsFeed=service.Query（myQuery）作为EventFeed；
WriteLine（“匹配从{0}到{1}的事件：”，
startTime.ToSortDateString（），
endTime.ToShortDateString（））；
Console.WriteLine（）；
for（int i=0；i

您已将其转换为：

AclFeed feed = service.Query(new AclQuery(link.HRef.ToString()));

为此：

Dim feed As AclFeed()
feed = New AclFeed(query, service)
feed = service.Query(New AclQuery(link.HRef.ToString()))

它们根本不一样！您的第二行调用构造函数没有明显的原因

这样就好了：

Dim feed As AclFeed = service.Query(New AclQuery(link.HRef.ToString()))

也不清楚为什么会有这样的台词：

Dim calendarEntry As New AtomEntry

为什么要调用

AtomEntry

的无参数构造函数？为什么要在ForEach循环之外声明变量？只需使用：

For Each calendarEntry As AtomEntry In calFeed.Entries

编辑：对于另一个问题，我认为您只需要：

Dim myEventFeed As CType(service.Query(myQuery), EventFeed)

---

如果您可以提供完整的方法，这将有所帮助。

您已经将其转换为：

AclFeed feed = service.Query(new AclQuery(link.HRef.ToString()));

为此：

Dim feed As AclFeed()
feed = New AclFeed(query, service)
feed = service.Query(New AclQuery(link.HRef.ToString()))

它们根本不一样！您的第二行调用构造函数没有明显的原因

这样就好了：

Dim feed As AclFeed = service.Query(New AclQuery(link.HRef.ToString()))

也不清楚为什么会有这样的台词：

Dim calendarEntry As New AtomEntry

为什么要调用

AtomEntry

的无参数构造函数？为什么要在ForEach循环之外声明变量？只需使用：

For Each calendarEntry As AtomEntry In calFeed.Entries

编辑：对于另一个问题，我认为您只需要：

Dim myEventFeed As CType(service.Query(myQuery), EventFeed)

---

如果你能提供完整的方法，那会有帮助。

我不确定它是否有效，但这是VB.Net的直接翻译，语法似乎是正确的。只是为了提示你接下来的问题；）

---

我不确定它是否有效，但这是对VB.Net的直接翻译，语法似乎是正确的。只是为了提示您接下来的问题；）

---

我还有一个最后的错误…我将它与代码一起发布在上面…请帮助…嘿，我尝试了第二个错误。这是否正确？“Dim myResultsFeed As EventFeed=service.Query（New EventQuery（feedURI））“我没有在这方面出错。我还有最后一个错误。。。我把它和代码一起贴在上面。。。请帮帮我…嘿，我试了第二个错误。这是正确的吗？“Dim myResultsFeed As EventFeed=service.Query（New EventQuery（feedURI））”我没有发现这个错误。您还没有向我们展示原始的C#，但从外观上看，基本上您没有传递正确的参数。看看你正在更仔细地转换的C#，这样可以吗？“Dim myResultsFeed As EventFeed=service.Query（New EventQuery（feedURI））”我将发布原始C#代码1 minWell您没有向我们展示原始C#，但从外观上看，基本上您传递的参数不正确。看看你正在更仔细地转换的C#，这样可以吗？“Dim myResultsFeed As EventFeed=service.Query（neweventquery（feedURI））”我将在1分钟后发布原始的C代码