تقييم الموضوع :
  • 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] تعديل بسيط في الكود :) مجهول 3 79 منذ 4 ساعة مضت
آخر رد: trakktour
  مامشكلة جملة الإضافة sql أرجو المساعدة Elhatmi 2 101 11-12-18, 10:57 AM
آخر رد: Elhatmi
  أنا طالبة أصمم في منظومة التخرج وأرجوا منكم المساعدة فافي 4 324 26-11-18, 11:35 PM
آخر رد: elgokr
  المساعدة في خطأ اواجهة للمره الاولى. Rabeea Qbaha 12 230 19-11-18, 06:51 PM
آخر رد: elgokr
  محتاج مساعدة فى تعديل كود بسيط Mohamed Magdy 5 96 17-11-18, 04:30 AM
آخر رد: elgokr
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 68 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري
  [سؤال] طلب تعديل علي كود سكرين شوت ScreamVoice 2 86 08-11-18, 06:17 PM
آخر رد: ScreamVoice
  الرجاء المساعدة في كتابة كود اتصال عن طريق السيريال بورت moftah70 3 137 06-11-18, 03:20 PM
آخر رد: moftah70
Big Grin يرجى المساعدة في ترتيب البيانات في الداتا جريد فيو ahmadpal 2 86 05-11-18, 10:41 PM
آخر رد: ahmadpal
  يرجى المساعدة لحل مشكلة عند تشغيل نفس الفورم اكثر من مرة vb.net ahmadpal 5 166 04-11-18, 10:17 PM
آخر رد: ahmadpal

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


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