تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 0 16 أمس, 08:28 PM
آخر رد: Fransesco
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,038 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 242 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  المساعدة في حل مشكلة الترقيم التسلسلي في الكريستال ريبورت ( حاجة غريبة حصلت معي ) جيولوجي مبتدئ 2 127 27-01-19, 12:09 PM
آخر رد: جيولوجي مبتدئ
  طلب تعديل كود استعلام new_programer 2 98 25-01-19, 11:44 PM
آخر رد: حريف برمجة
  تعديل مثال العملاء الغير مسددين القسط new_programer 7 307 25-01-19, 08:40 PM
آخر رد: new_programer
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 333 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 93 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 271 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 266 16-01-19, 12:59 AM
آخر رد: EYADISMAIL

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


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