フィードが存在しないか、何らかの理由で作成できない場合にfalseまたはnullを返すように、try catchを作成して、変数をテストしてデフォルトのアイテムを作成できるようにします。
Function GetFeed(url As String) As SyndicationFeed
Dim feed = New SyndicationFeed
Try
Dim reader = XmlReader.Create(url)
feed = SyndicationFeed.Load(reader)
Catch ex As Exception
feed = Nothing
End Try
Return feed
End Function
タイプ「SyndicationFeed」をブール値に設定できないと表示されます。
エラーは次のコードにあります:
Dim feedUrl = "http://rss.news.yahoo.com/rss/entertainment"
Dim feed As SyndicationFeed = GetFeed(feedUrl)
If feed = Nothing Then
End If
「演算子'='はSyndicationFeedタイプには定義されていません」と書かれています。