تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] مشكلة فى تحويل هذا الكود الى كلاس
#1
السلام عليكم ورحمة الله وبركاته
بحاول تحويل هذا الكود الى كلاس لكن حين المناداة عليه يظهر اخطاء 


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

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 If
الرد
تم الشكر بواسطة:
#3
مرحبا بالكاتب والمؤلف سامي ابوسريع
كنت اتمنى ان يضع المنتدى تحت اسم عضويتك يكتبو (الكاتب والمؤلف سامي ابوسريع) بدلا من (عضو نشيط)

 ابو روضة
الكاتب والمؤلف
سامي ابوسريع
         

اذا المطلوب اكثر من معلومه للسطر الواحد الافضل تستخدم 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
الرد
تم الشكر بواسطة: ابو روضة , elgokr
#4
(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


أخى الأستاذ بدرى اشكر تواضعك الكبير لأن الحقيقه التي يمكنني التصريح بها بأنك أحد الذين أكّن لهم كل الاحترام والتقدير واحد الذين تعلمت منهم الكثير  والكثير ومازلت أنهل من بحر معلوماتك القيمة....

كثيرا من الكلمات أود قولها وخصوصا أنك فى كل مرة تقذفنى قذفاً بسيل من الحلول الجميلة لمشاكل كانت ترهقنى كثيراً وخصوصاً عندما تكون  الكلمات موجهه لك ومن لهم مكانه كبيره في قلوبنا...
الرد
تم الشكر بواسطة: بدري , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 18 424 منذ 1 ساعه مضت
آخر رد: Abdalazim19
Sad [سؤال] لدي مشكلة في الكود الاتصال tridz 13 202 منذ 6 ساعة مضت
آخر رد: سعود
  مساعدة ففي اصلاح هذا الكود mohamedahmed1 2 78 اليوم, 03:24 AM
آخر رد: mohamedahmed1
  [VB.NET] مشكلة فى اظهار فورم داخل فورم اخر باداة Panel eslame elgohary 26 635 21-08-19, 06:30 PM
آخر رد: viv
  [VB.NET] مشكلة اثناء التشغيل البرنامج محمد بوقزاحة 1 64 18-08-19, 08:20 PM
آخر رد: سعود
  الكود يعمل بشكل صحيح ولكن خالد كامل1 5 106 18-08-19, 04:43 AM
آخر رد: خالد كامل1
  مشكلة في mysql البيانات فارغة عماني939 1 49 17-08-19, 12:32 AM
آخر رد: اسامه الهرماوي
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 1 262 16-08-19, 11:08 PM
آخر رد: عماني939
  [سؤال] كيفية تحويل ملف وورد خارجي الى ملف pdf الرائد 3 132 15-08-19, 11:05 PM
آخر رد: الرائد
  مبتدىء فى بيئة الدوت نت - مشكلة فى كود الحفظ المبرمج العتيق 10 231 15-08-19, 12:34 AM
آخر رد: المبرمج العتيق

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


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