منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اعمل خاصية حفظ للبرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28794)

الصفحات: 1 2 3


RE: كيف اعمل خاصية حفظ للبرنامج - حاتمي - 06-03-19

ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك


RE: كيف اعمل خاصية حفظ للبرنامج - trakktour - 06-03-19

(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

تفضل هذا ما تحتاجه
كود :
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
كل ما عليك هو اضافة listview
بتوفيق ان شاء الله


RE: كيف اعمل خاصية حفظ للبرنامج - حاتمي - 07-03-19

(06-03-19, 11:28 PM)trakktour كتب :
(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

تفضل هذا ما تحتاجه
كود :
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
كل ما عليك هو اضافة listview
بتوفيق ان شاء الله
لكن عندما اضغط على القناة لاتشتغل انا اضفت سيرفر خاص بي اسف اتعبتك معي


RE: كيف اعمل خاصية حفظ للبرنامج - حاتمي - 10-03-19

ممكن اجابة يابطل ارجوك