[youssef1]

(10-02-17, 02:13 AM)مساعدة كتب : تفضل الكود

كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
   For Each l As String In lines
       Dim data() As String = l.Split(",")
       If data.Length = 2 Then
           Me.ListBox1.Items.Add(data(0))
           channelList.Add(data(1))
       End If
   Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
   If Me.ListBox1.SelectedIndex >= 0 Then
       Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
   End If
End Sub

تمام شكرا اخي هل يمكن ان ارفع الملف عل استضافه كي اتحكم فيهم لانه يجب ان يكون عند الكل الملف اريد رفع الملف
علي الاستضاافه ووضع الرابط لو سمحت اخي