سلام عليكم ممكن حل ارجوكم وجزاكم الله خيرا
انا عملت ايقونة عندما تضغط عليه تستدعي سيرفر iptv عن بعد وتضعه في اضافة listview
لكن لاتشتغل القنوات عندما اقوم بضغط عليها
كود البرمجة لكي تعرف المشكل
انا عملت ايقونة عندما تضغط عليه تستدعي سيرفر iptv عن بعد وتضعه في اضافة listview
لكن لاتشتغل القنوات عندما اقوم بضغط عليها
كود البرمجة لكي تعرف المشكل
كود :
Try
Dim raw As New WebClient
Dim raw_pastbin As String = raw.DownloadString("https://pastebin.com/raw/tgfWfGc7")
Dim hatmi As New List(Of ListViewItem)
Dim Lines As String() = raw_pastbin.Split(vbNewLine)
Dim row(1) As String
For Each line As String In Lines
If line.Trim.StartsWith("#EXTINF") Then
row(0) = line.Split(",")(1)
ElseIf line.Trim.StartsWith("http://") Then
row(1) = line.Trim
hatmi.Add(New ListViewItem(row))
End If
Next
ListView1.Items.AddRange(hatmi.ToArray)
Catch ex As Exception
MsgBox(ex.Message)
End Try