Leitor RSS

[AnonymousKesha 12]

Feed RSS-Yahoo Respostas

 

Introdução

 

Deixei um projeto recentemente no qual ele faz a leitura das perguntas do Yahoo Respostas, agora venho deixar o mesmo projeto, só que com uma carinha nova e com todas as categorias do Yahoo Respostas.

 

 

Screen

 

 

 

 

Download & Scan

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Créditos

Desenvolvimento-Eu

[E-mega 0]

Vou dar uma dica para você:

 

Coloca o BackColor da Form em branco, depois coloca o Forecolor dos Buttons em Branco, e depois é só colocar o BackColor dos Buttons de Roxo (Obs: O FlatStyle do Button tem que estar setado em Flat)

Acho que ficaria bonito rs

[Cr4cko 1.215]

Opa ai sim, aprimorou e colocou uma interface mais amigável..

Gostei, esse download contém a source do projeto, ou é apenas a executável?

Abraços!

[AnonymousKesha 12]

Vou dar uma dica para você:

 

Coloca o BackColor da Form em branco, depois coloca o Forecolor dos Buttons em Branco, e depois é só colocar o BackColor dos Buttons de Roxo (Obs: O FlatStyle do Button tem que estar setado em Flat)

Acho que ficaria bonito rs

 

Obrigado mega, vou dar uma melhorada nele:yes:

[AnonymousKesha 12]

Opa ai sim, aprimorou e colocou uma interface mais amigável..

Gostei, esse download contém a source do projeto, ou é apenas a executável?

Abraços!

 

Cr4cko eu fiz manualmente pelo fato da api do yahoo ser voltada digamos mais para o C# e algumas coisas ficam difíceis de serem traduzidas, vou deixar a leitura abaixo, depois batas você ir em qualquer pagina que possua o RSS(feed) e com o direito do mouse da um Exibir código fonte da pagina, ai só procurar o link que leva para o xml e colocar no lugar do link original e se necessário mudar o datagridview se o feed tiver mais de 2 colunas.

Dim Xml As New XmlDocument

Dim noXml As XmlNodeList '= Xml.SelectNodes("rss/channel/item")

Xml.Load("Link da pagina")

noXml = Xml.SelectNodes("rss/channel/item")

For i = 0 To noXml.Count - 1

DataGridView1.Rows.Add(noXml.Item(i).ChildNodes(0).InnerText, _

noXml.Item(i).ChildNodes(2).InnerText)

Next