[trakktour]

(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

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