[ابو روضة]

(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

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

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