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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكل عدم تشتغل القنوات عندما اقوم بضغط عليها (/showthread.php?tid=28963)

مشكل عدم تشتغل القنوات عندما اقوم بضغط عليها - حاتمي - 11-03-19

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


RE: حل مشكل بسيط - trakktour - 12-03-19

(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
تحياتى لك
وتمنياتى لك التوفيق

RE: مشكل عدم تشتغل القنوات عندما اقوم بضغط عليها - حاتمي - 12-03-19

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

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