Avançar para o conteúdo principal

XML - RSS Reader em VB.Net

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.

Comentários

Mensagens populares deste blogue

Vamos fazer um carro com o Unity 3D

Neste artigo vamos fazer um carro, simples, com o Unity 3D. A ideia é utilizar o motor de física do Unity 3D para simular o comportamento do carro. Os passos a seguir são: [1] - Criar um projeto novo

C# IEnumerable e IEnumerator

Neste artigo vamos aprender como utilizar a interface IEnumerator por forma a permitir utilizar um ciclo foreach num conjunto ou coleção de dados. A maior parte das coleções (listas e outras) já implementam a interface, mas neste caso vamos personalizar a maneira como percorremos a lista. Quando utilizamos código assim: foreach(Class c in Collection) { ... } O compilador converte este código em algo assim: IEnumerator cc = Collection.GetEnumerator() while(cc.MoveNext()) { c=(Class)cc.Current; ... } Ao implementar a interface IEnumerable significa que a classe implementa uma versão da função GetEnumerator() que deve devolver uma classe que implemente a interface IEnumerator. Vamos explorar um exemplo. Começamos pela classe client Esta classe permitirá guardar os dados dos clientes, existindo um campo para indicar se o cliente ainda está ativo ou não. De seguida temos uma classe que define uma lista de clientes e que implementa a interface IEnumerable que de

React - Introdução

 Neste post vamos fazer uma breve introdução ao React. React é uma framework javascript e por isso é importante ter conhecimentos desta linguagem de programação para melhor compreender o seu funcionamento. O que é necessário? Para construir páginas com React é necessário ter instalado a framework Node e o seu instalador de packages o npm. Com o Node instalado basta abrir uma janela da linha de comandos, eu aconselho utilizar o novo Windows Terminal ou o Cmder . Na sua linha de comando escolhida execute o comando: npx create-react-app Tutorial01 Este comando vai criar uma pasta com o nome Tutorial01 e instalar dos os ficheiros necessários para construir a sua primeira aplicação React dentro dessa pasta. De seguida entramos na pasta criada com o comando: cd Tutorial01 E iniciamos a aplicação com o comando: npm start Deve conseguir ver uma página com o seguinte aspeto: A partir daqui, até fechar a linha de comando, todas as alterações feitas aos ficheiros da sua aplicação são automaticam