ItemCount Property | ||
Syntax
Remarks
Data Type
Example
Dim strFeed As String Dim nIndex As Long Dim nError As Long strFeed = "http://sockettools.com/rss/news.xml" ListBox1.Clear nError = NewsFeed1.Open(strFeed) If nError > 0 Then MsgBox NewsFeed1.LastErrorString, vbExclamation Exit Sub End If Label1.Caption = NewsFeed1.ItemCount & " news items, published on " & NewsFeed1.Published For nIndex = 1 To NewsFeed1.ItemCount nError = NewsFeed1.GetItem(nIndex) If nError > 0 Then MsgBox NewsFeed1.LastErrorString, vbExclamation Exit For End If ListBox1.AddItem NewsFeed1.ItemTitle Next See Also
|
||
Copyright © 2023 Catalyst Development Corporation. All rights reserved. |