+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل على الكود (/showthread.php?tid=22205)
تعديل على الكود - mervandzz - 22-10-17
السلام عليكم ورحمة الله وبركاته
اريد من اخوتي الكرام كيفية عمل شرط لهذا الكود بحيث مثلا ان لم يوجد زر الضغط في الصفحه يضهرلك تنبيه
مثال على الكود
كود :
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 IfRE: تعديل على الكود - a.ahmed - 22-10-17
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
RE: تعديل على الكود - mervandzz - 22-10-17
(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
مشكور يااخي
