منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكل عدم تشتغل القنوات عندما اقوم بضغط عليها

سلام عليكم ممكن حل ارجوكم وجزاكم الله خيرا
انا عملت ايقونة عندما تضغط عليه تستدعي سيرفر 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

(11-03-19, 12:50 PM)حاتمي كتب : [ -> ]سلام عليكم ممكن حل ارجوكم وجزاكم الله خيرا
انا عملت ايقونة عندما تضغط عليه تستدعي سيرفر 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

و عليكم السلام
قم بإضافة هذا الكود

كود :

 Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick

        Dim trakktour As String = ListView1.SelectedItems(0).SubItems(1).Text

        AxVLCPlugin21.Visible = True

        AxVLCPlugin21.playlist.stop()

        AxVLCPlugin21.playlist.clear()

        AxVLCPlugin21.playlist.add(trakktour, Missing.Value, Missing.Value)

        AxVLCPlugin21.playlist.play()

    End Sub

تحياتى لك
وتمنياتى لك التوفيق

شكرا الله ينورك وعطيك العافيا Heart

ممكن ترد على فيسبوك من اجل مشكل المشغل وشكرا Heart