تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] المساعدة في تعديل كود
#1
السلام عليكم يا اصدقاء
ان شاء الله تكونو بخير
ممكن تعديل صغير في هذا الكود 
تغيير listbox2 ب listview
كود :
Me.RichTextBox2.Clear()
       Me.ListBox2.Items.Clear()
       Try
           Dim text As String = Me.ListBox5.SelectedItem
           Dim requestUriString As String = text.ToString()
           Dim checked As Boolean = Me.CheckBox2.Checked
           If checked Then
               Dim random As Random = New Random()
               ' The following expression was wrapped in a checked-expression
               Dim num As Integer = random.[Next](0, Me.ListBox3.Items.Count - 1)
               Dim address As String = Conversions.ToString(Me.ListBox3.Items(num))
               Me.ListBox3.SelectedIndex = num
               Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
               httpWebRequest.Proxy = New WebProxy(address)
               httpWebRequest.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
               httpWebRequest.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
               Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
               Dim httpWebResponse2 As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
               Dim streamReader As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
               Dim text2 As String = streamReader.ReadToEnd()
               Me.RichTextBox2.Text = text2
               Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
           Else
               Dim httpWebRequest2 As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
               httpWebRequest2.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
               httpWebRequest2.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
               Dim httpWebResponse3 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
               Dim httpWebResponse4 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
               Dim streamReader2 As StreamReader = New StreamReader(httpWebResponse4.GetResponseStream())
               Dim text3 As String = streamReader2.ReadToEnd()
               Me.RichTextBox2.Text = text3
               Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
           End If
       Catch arg_1EF_0 As Exception
           ProjectData.SetProjectError(arg_1EF_0)
           ProjectData.ClearProjectError()
       End Try
ليست فيو فيه 2 columns الاول name و الثاني lien
الاول يسحب الاسم و الثاني الرابط


جربت اضافة هذا الكود فظهر لي الاسم ناقص
كود :
       Try
           Dim Lines As String() = RichTextBox2.Text.Split()
           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
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

يمكنك الاطلاع والاستفادة من هذه المشاركة

ولاحظ على الكود التالى الموجود فى السورس المرفق بالرابط بالاعلى
كود :
       For i As Integer = 0 To Lines.Length - 1
           Dim line As String = Lines(i).ToString.Trim
           If line.StartsWith("#EXTINF") Then
               row(0) = line.Replace("#EXTINF:-1,", "").Trim
           ElseIf line.StartsWith("http://") Then
               row(1) = line.Trim
           End If
       Next

حيث ان هذا الكود ملخص ما تريد

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: farfour


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حدث تعديل الخلية محمد اسماعيل 5 79 19-05-19, 03:57 AM
آخر رد: elgokr
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 203 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] تعديل على كود Split DK-x 3 109 11-05-19, 04:44 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 83 07-05-19, 06:02 PM
آخر رد: dubai.eig
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 309 25-04-19, 09:26 AM
آخر رد: elgokr
  [ تم الحل ] تعديل على تنسيق التاريخ بالتاكست بكس محمد خيري 9 173 11-04-19, 01:55 PM
آخر رد: elgokr
  تعديل على كود عرض البيانات مع ايقونة التحميل new_programer 0 120 09-03-19, 05:57 AM
آخر رد: new_programer
  المساعدة بعمل ريستور abdulla2 1 103 05-03-19, 01:18 AM
آخر رد: حريف برمجة
  رجاء المساعدة حول الكريستل ربورت محمد خيري 2 152 03-03-19, 10:29 PM
آخر رد: محمد خيري
  تعديل رصيد العميل بعد حفظ الفاتورة mostafa nada 8 262 01-03-19, 05:53 PM
آخر رد: حريف برمجة

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


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