+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] مساعده فى WebBrowser (/showthread.php?tid=7355)
[تم الحل] مساعده فى WebBrowser - مبتدئ - 12-12-12
اريض تغير صفحه التى تفتح عند حدوث انقطاع فى الانترنت هذه الصفحه
اريد تغيره لى صوره من عندى كيف؟
[تم الحل] مساعده فى WebBrowser - sooriaty03 - 13-12-12
تفضل أخي
هذا هو الكود
كود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
Dim A As String = WebBrowser1.Document.GetElementById("mainTitle").InnerHtml
Dim B As String = WebBrowser1.Document.GetElementById("likelyCauses").InnerHtml
Dim C As String = WebBrowser1.Document.GetElementById("causeNotConnected").InnerHtml
WebBrowser1.Url = New Uri("file:///c:\Error.bmp") 'ضع الصورة هنا
Catch ex As Exception
End Try
End Sub[تم الحل] مساعده فى WebBrowser - مبتدئ - 13-12-12
sooriaty03 كتب :تفضل أخيجزاك الله الف خير اخى
هذا هو الكود
بالتوفيقكود :
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Try
Dim A As String = WebBrowser1.Document.GetElementById("mainTitle").InnerHtml
Dim B As String = WebBrowser1.Document.GetElementById("likelyCauses").InnerHtml
Dim C As String = WebBrowser1.Document.GetElementById("causeNotConnected").InnerHtml
WebBrowser1.Url = New Uri("file:///c:\Error.bmp") 'ضع الصورة هنا
Catch ex As Exception
End Try
End Sub