+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=29322)
[تم الحل] مشكلة فى تحويل هذا الكود الى كلاس - ابو روضة - 10-04-19
السلام عليكم ورحمة الله وبركاته
بحاول تحويل هذا الكود الى كلاس لكن حين المناداة عليه يظهر اخطاء
كود :
Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In inputs
If item.GetAttribute("href").Contains("groups") AndAlso (Not item.GetAttribute("href").Contains("create")) Then
CheckedListBox1.Items.Add(item.GetAttribute("href").ToString())
CheckedListBox2.Items.Add(item.InnerText.ToString)
Dim checked As Boolean = True
Button1.Enabled = False
End If
Next itemحاولت بهذا
كود :
Imports System.Text.RegularExpressions
Public Class Class1
Public Shared Sub post(wb As WebBrowser, List As CheckedListBox)
Dim inputs As HtmlElementCollection
inputs = wb.Document.GetElementsByTagName("a")
For Each item As HtmlElement In inputs
If item.GetAttribute("href").Contains("groups") AndAlso (Not item.GetAttribute("href").Contains("create")) Then
List.Items.Add(item.GetAttribute("href").ToString())
List.Items.Add(item.InnerText.ToString)
End If
Next item
End Sub
End Classوناديت عليه بهذا لكن يظهر خطأ
Git_groups_facebook.Class1.post(WebBrowser1, CheckedListBox1)
RE: مشكلة فى تحويل هذا الكود الى كلاس - ابو روضة - 10-04-19
عملت هذا بكود الاخ بدرى لكنه لا يجلب النصوص يجلب فقط الروابط وانا اريده يجلب النصوص
PHP كود :
Public Shared Function post(wb As WebBrowser) As Array
Dim lst As New List(Of String)
Dim inputs As HtmlElementCollection
inputs = wb.Document.GetElementsByTagName("a")
For Each item As HtmlElement In inputs
If item.GetAttribute("href").Contains("groups")Then
lst.Add(item.GetAttribute("href").ToString())
End If
Next
Return lst.ToArray
End Function
اريده يجلب هذه معه يعنى يكون هكذا داخل الكود
كود :
If item.GetAttribute("href").Contains("groups")Then
lst.Add(item.GetAttribute("href").ToString())
CheckedListBox1.Items.Add(item.InnerText.ToString)
End IfRE: مشكلة فى تحويل هذا الكود الى كلاس - بدري - 10-04-19
مرحبا بالكاتب والمؤلف سامي ابوسريع
كنت اتمنى ان يضع المنتدى تحت اسم عضويتك يكتبو (الكاتب والمؤلف سامي ابوسريع) بدلا من (عضو نشيط)
ابو روضة
الكاتب والمؤلف
سامي ابوسريع
اذا المطلوب اكثر من معلومه للسطر الواحد الافضل تستخدم DataTable مثل
Public Shared Function post(wb As WebBrowser) As DataTable
Dim d As New DataTable
d.Columns.Add("النص")
d.Columns.Add("الرابط")
Dim inputs As HtmlElementCollection
inputs = wb.Document.GetElementsByTagName("a")
For Each item As HtmlElement In inputs
If item.GetAttribute("href").Contains("groups") Then
d.Rows.Add(item.InnerText.ToString, item.GetAttribute("href").ToString())
End If
Next
Return d
End Function
وفي المشروع
Dim dt = Git_groups_facebook.Class1.post(WebBrowser1)
CheckedListBox1.DataSource = dt
CheckedListBox1.DisplayMember = "النص"
CheckedListBox1.ValueMember = "الرابط"
وقراءه الرابط تجدها في
Dim a = CheckedListBox1.SelectedValue.ToString
RE: مشكلة فى تحويل هذا الكود الى كلاس - ابو روضة - 10-04-19
(10-04-19, 10:39 PM)بدري كتب : مرحبا بالكاتب والمؤلف سامي ابوسريع
كنت اتمنى ان يضع المنتدى تحت اسم عضويتك يكتبو (الكاتب والمؤلف سامي ابوسريع) بدلا من (عضو نشيط)
ابو روضة
الكاتب والمؤلف
سامي ابوسريع
اذا المطلوب اكثر من معلومه للسطر الواحد الافضل تستخدم DataTable مثل
Public Shared Function post(wb As WebBrowser) As DataTable
Dim d As New DataTable
d.Columns.Add("النص")
d.Columns.Add("الرابط")
Dim inputs As HtmlElementCollection
inputs = wb.Document.GetElementsByTagName("a")
For Each item As HtmlElement In inputs
If item.GetAttribute("href").Contains("groups") Then
d.Rows.Add(item.InnerText.ToString, item.GetAttribute("href").ToString())
End If
Next
Return d
End Function
وفي المشروع
Dim dt = ClassLibrary1.Class1.post(WebBrowser1)
CheckedListBox1.DataSource = dt
CheckedListBox1.DisplayMember = "النص"
CheckedListBox1.ValueMember = "الرابط"
وقراءه الرابط تجدها في
Dim a = CheckedListBox1.SelectedValue.ToString
أخى الأستاذ بدرى اشكر تواضعك الكبير لأن الحقيقه التي يمكنني التصريح بها بأنك أحد الذين أكّن لهم كل الاحترام والتقدير واحد الذين تعلمت منهم الكثير والكثير ومازلت أنهل من بحر معلوماتك القيمة....
كثيرا من الكلمات أود قولها وخصوصا أنك فى كل مرة تقذفنى قذفاً بسيل من الحلول الجميلة لمشاكل كانت ترهقنى كثيراً وخصوصاً عندما تكون الكلمات موجهه لك ومن لهم مكانه كبيره في قلوبنا...