تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال في webbrowser
#1
السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
الرد
تم الشكر بواسطة: bidaya
#2
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح
الرد
تم الشكر بواسطة: farfour , bidaya
#3
(24-10-20, 04:49 AM)اليوم السابع كتب :
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح
اضغط على زر في ويب بروزر لينفذ امر في البرنامج مثلا فتح فورم جديد
الرد
تم الشكر بواسطة: bidaya
#4
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

تفظل اخي الكريم

جرب هذا
كود :
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
       WebBrowser1.DocumentText = ("<button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
   End Sub



   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("button")
           If div.Id = "myBtn" Then div.AttachEventHandler("onclick", AddressOf OpenForm)
       Next
       
   End Sub

   Private Sub OpenForm()
       Dim form As New Form2
       form.Show()
   End Sub
الرد
تم الشكر بواسطة: farfour , ابو روضة , ابو روضة
#5
Heart 
(24-10-20, 02:07 PM)bidaya كتب :
(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

عندي ويب بروزر و فيها زر
اريد عند الضغط على ذلك الزر ينفذ امر مثلا يفتح فورم جديد
كود :
       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

تفظل اخي الكريم

جرب هذا
كود :
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
       WebBrowser1.DocumentText = ("<button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")
   End Sub



   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("button")
           If div.Id = "myBtn" Then div.AttachEventHandler("onclick", AddressOf OpenForm)
       Next
       
   End Sub

   Private Sub OpenForm()
       Dim form As New Form2
       form.Show()
   End Sub

شكراااا ربي يحفظك 
جربته في webbrowser شغال ما شاء الله
لو كنت استعمل GeckoWebBrowser كيف يكون الكود 
لان AttachEventHandler غير متوفرة في gecko
الرد
تم الشكر بواسطة: bidaya , bidaya
#6
كود :
Private Sub GeckoWebBrowser1_DomClick(sender As Object, e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
       Dim element As Gecko.GeckoHtmlElement = CType(e.Target.CastToGeckoElement(), Gecko.GeckoHtmlElement)
       If element.TextContent = "Open" Then
           OpenForm()
       End If


   End Sub
الرد
تم الشكر بواسطة: farfour , kiki
#7
(24-10-20, 05:14 PM)bidaya كتب :
كود :
Private Sub GeckoWebBrowser1_DomClick(sender As Object, e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
       Dim element As Gecko.GeckoHtmlElement = CType(e.Target.CastToGeckoElement(), Gecko.GeckoHtmlElement)
       If element.TextContent = "Open" Then
           OpenForm()
       End If


   End Sub

الله ينورك اخي الكريم 
شكراااااا  Heart
الرد
تم الشكر بواسطة: bidaya



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم