24-10-20, 02:07 PM
(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
