Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dt As New DataTable
dt.Columns.Add("Title")
dt.Columns.Add("Link")
' منتدى الابداع العربي :: قسم الترفيه والانمي :: قسم اليوتيوب والدايلي موشن
Dim reader As Xml.XmlReader = Xml.XmlReader.Create("http://www.ibda3araby.com/feed/?f=183")
While reader.Read
If reader.NodeType = Xml.XmlNodeType.Element Then
Dim r As DataRow
Select Case reader.Name
Case "title"
r = dt.NewRow
reader.Read()
r.Item("Title") = reader.Value
Case "link"
reader.Read()
r.Item("Link") = reader.Value
dt.Rows.Add(r)
End Select
End If
End While
Me.ListBox1.DataSource = dt
Me.ListBox1.DisplayMember = "Title"
Me.ListBox1.ValueMember = "Link"
End Sub
Private Sub ListBox1_Click(sender As Object, e As System.EventArgs) Handles ListBox1.Click
Me.WebBrowser1.Navigate(ListBox1.SelectedValue)
End Sub
End Class
