منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

اريد من اخوتي الكرام كيفية عمل شرط لهذا الكود بحيث مثلا ان لم يوجد زر الضغط في الصفحه يضهرلك تنبيه

مثال على الكود

كود :

 Dim elements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")

        For Each pElem As HtmlElement In elements

            If (pElem.OuterHtml.Contains("next")) Then

                pElem.InvokeMember("click")

            End If

PHP كود :

Dim elements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
Dim btn = (From x In elements Where x.OuterHtml.Contains("next")).FirstOrDefault
If Not IsNothing(btn) Then
    btn.InvokeMember("click")
Else
    MsgBox("Nothing")
End If 

(22-10-17, 05:10 PM)a.ahmed كتب : [ -> ]
PHP كود :

Dim elements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a") Dim btn = (From x In elements Where x.OuterHtml.Contains("next")).FirstOrDefault If Not IsNothing(btn) Then btn.InvokeMember("click") Else MsgBox("Nothing") End If

مشكور يااخي Smile

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mervandzz

a.ahmed

mervandzz