تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال عن فترة ركود صنف في برنامج مبيعات علاء الكبابي 4 82 16-05-21, 07:16 PM
آخر رد: ابو انس
  [سؤال] سؤال مهم لو سمحت حسن الجلب 1 61 16-05-21, 06:21 PM
آخر رد: ابو انس
  [سؤال] سؤال حول الحلقه التكراريه حسن الجلب 4 194 07-05-21, 07:00 AM
آخر رد: messry
  [سؤال] سؤال بسيط حسن الجلب 2 110 07-05-21, 12:44 AM
آخر رد: ابو انس
  [VB.NET] سؤال في عدم تمكين احد خلايا الداتا جريد ismaeel 6 298 05-05-21, 05:11 AM
آخر رد: a7med saba
  [سؤال] سؤال حسن الجلب 4 188 01-05-21, 06:13 PM
آخر رد: حسن الجلب
  سؤال فى الطباعة Lathe1 3 198 30-04-21, 12:38 AM
آخر رد: mrfenix93
  [سؤال] سؤال مهم حسن الجلب 3 314 17-04-21, 07:22 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] عندي سؤال حسن الجلب 0 158 14-04-21, 01:15 AM
آخر رد: حسن الجلب
  سؤال في كروم الله يبارك لكم اليوم السابع 5 373 13-04-21, 05:31 AM
آخر رد: اليوم السابع

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


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