(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

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

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

(24-10-20, 04:49 AM)اليوم السابع كتب :

(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

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

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

يعني انت تريد عند الضغط علي زر في الويب ولا في المشروع ياريت توضح

(24-10-20, 03:38 AM)farfour كتب : السلام عليكم
ان شاء الله تكونو بألف خير

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

كود :

       WebBrowser1.DocumentText = ("  <button id=""myBtn"" onclick=""pageRedirect()"">Open</button>")

(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

(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