تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكل عدم تشتغل القنوات عندما اقوم بضغط عليها
#1
سلام عليكم ممكن حل ارجوكم وجزاكم الله خيرا
انا عملت ايقونة عندما تضغط عليه تستدعي سيرفر 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
الرد }}}
تم الشكر بواسطة:
#2
(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
تحياتى لك
وتمنياتى لك التوفيق
الرد }}}
تم الشكر بواسطة: elgokr , حاتمي
#3
شكرا الله ينورك وعطيك العافيا  Heart Heart

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 338 16-11-23, 12:02 AM
آخر رد: بلال بلال
  مشكلة غربية عندما اقوم بالطباعة تطلع معي فاتورة الكاشير صغيرة جدا moh61 3 357 28-10-23, 06:57 PM
آخر رد: moh61
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  مشكلة عجيبة و غريبة ! عندما اقوم بطباعة فاتورة من Reportveiwer ينطبع التاريخ هجري moh61 2 327 09-09-23, 11:15 AM
آخر رد: alfaiz678
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  كيف اقوم بالضغط على ذر الويندوز بالكيبورد هل من حل moh61 0 217 01-08-23, 09:45 PM
آخر رد: moh61
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 645 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  مشكل إختفاء الفرومات من مشروع YANNOURI 1 439 13-04-23, 03:41 AM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم