No seguimento dos dois post anteriores vamos agora criar um RSS Reader com o Visual Basic 2010.
A interface será assim
Componentes: um TableLayoutPanel (para organizar a interface), uma combobox (permite escolher a origem da feed RSS), uma listbox (onde apresentamos os títulos dos artigos), um label (sempre útil para mostrar estado e outras informações), um botão (permite iniciar o processo de download do ficheiro XML com a lista de artigos) e por fim um WebBrowser que permitirá visualizar as páginas dentro da nossa aplicação.
O código:
A parte principal do código está localizado no botão e tem o seguinte aspeto:
Dim ligacao As String
Dim doc As New XmlDocument
Dim items As XmlNodeList
If Me.ComboBox1.SelectedIndex = -1 Then
Me.Label1.Text = "Tem de selecionar a fonte de RSS!"
Exit Sub
End If
If Me.ComboBox1.Text = "PCMagazine" Then
ligacao = "http://rssnewsapps.ziffdavis.com/pcmag.xml"
Else
ligacao = "http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/front_page/rss.xml"
End If
Me.Label1.Text = "A carregar RSS! Aguarde..."
Application.DoEvents()
Me.ListBox1.Items.Clear()
doc.Load(ligacao)
items = doc.SelectNodes("//item")
Try
For Each item As XmlNode In items
'titulo
Me.ListBox1.Items.Add(item.SelectSingleNode("title").InnerText)
'link
lista.Add(item.SelectSingleNode("link").InnerText)
Next
Me.Label1.Text = "Concluído!"
Catch ex As Exception
Me.Label1.Text = "Erro de ligação"
End Try
Comparando com o código C# do post anterior é possível ver que é muito semelhante, à exceção da parte que lida com a listbox.
O clique num artigo da lista vai, então, carregar a página web correspondente no webcontrol, e o código que permite essa tarefa é:
If ListBox1.SelectedIndex = 0.1 Then Exit Sub
Dim ligacao As New Uri(lista(ListBox1.SelectedIndex))
Me.Label1.Text = ListBox1.Text
Me.WebBrowser1.Url = ligacao
E pronto assim temos um leitor de feeds RSS muito simples mas sempre útil.
O projeto.
A interface será assim
Componentes: um TableLayoutPanel (para organizar a interface), uma combobox (permite escolher a origem da feed RSS), uma listbox (onde apresentamos os títulos dos artigos), um label (sempre útil para mostrar estado e outras informações), um botão (permite iniciar o processo de download do ficheiro XML com a lista de artigos) e por fim um WebBrowser que permitirá visualizar as páginas dentro da nossa aplicação.
O código:
A parte principal do código está localizado no botão e tem o seguinte aspeto:
Dim ligacao As String
Dim doc As New XmlDocument
Dim items As XmlNodeList
If Me.ComboBox1.SelectedIndex = -1 Then
Me.Label1.Text = "Tem de selecionar a fonte de RSS!"
Exit Sub
End If
If Me.ComboBox1.Text = "PCMagazine" Then
ligacao = "http://rssnewsapps.ziffdavis.com/pcmag.xml"
Else
ligacao = "http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/front_page/rss.xml"
End If
Me.Label1.Text = "A carregar RSS! Aguarde..."
Application.DoEvents()
Me.ListBox1.Items.Clear()
doc.Load(ligacao)
items = doc.SelectNodes("//item")
Try
For Each item As XmlNode In items
'titulo
Me.ListBox1.Items.Add(item.SelectSingleNode("title").InnerText)
'link
lista.Add(item.SelectSingleNode("link").InnerText)
Next
Me.Label1.Text = "Concluído!"
Catch ex As Exception
Me.Label1.Text = "Erro de ligação"
End Try
Comparando com o código C# do post anterior é possível ver que é muito semelhante, à exceção da parte que lida com a listbox.
O clique num artigo da lista vai, então, carregar a página web correspondente no webcontrol, e o código que permite essa tarefa é:
If ListBox1.SelectedIndex = 0.1 Then Exit Sub
Dim ligacao As New Uri(lista(ListBox1.SelectedIndex))
Me.Label1.Text = ListBox1.Text
Me.WebBrowser1.Url = ligacao
E pronto assim temos um leitor de feeds RSS muito simples mas sempre útil.
O projeto.
Comentários
Enviar um comentário