السلام عليكم ورحمة الله وبركاته
بحاول تحويل هذا الكود الى كلاس لكن حين المناداة عليه يظهر اخطاء
حاولت بهذا
وناديت عليه بهذا لكن يظهر خطأ
Git_groups_facebook.Class1.post(WebBrowser1, CheckedListBox1)
بحاول تحويل هذا الكود الى كلاس لكن حين المناداة عليه يظهر اخطاء
كود :
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)