[anes]

(08-02-18, 10:24 AM)HASAN6.0 كتب : ما المطلوب ؟؟؟؟؟؟

هذه صورة لمثال كي اوصل الفكرة اخي

هنا لدينا فورم به زرين وادات GeckoWebBrowser
GeckoWebBrowser عند فتح البرنامج رايح تفتح لنا صفحة html
وهذا رابطها
الصفحة بها زران
btn1
btn2

الاخ

  طالب برمجة

عمل الكود التالي يعمل على ادات webBrowser  بامتياز للصفحة الطلوبة وهي هذه

كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
   For Each div As Windows.Forms.HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("div")
       If div.InnerHtml = "btn1" Then div.AttachEventHandler("onclick", AddressOf Button1_Click)
       If div.InnerHtml = "btn2" Then div.AttachEventHandler("onclick", AddressOf Button2_Click)
   Next
End Sub

هنا العملية تمت بنجاح لكن ادات الويب براوزر فقيرة لا تعرض الصفحة بالشكل الطبيعي لها على غرار ادات  GeckoWebBrowser

اريد التعديل على كود الاخ ليعمل على هذه الادات الي هيا GeckoWebBrowser
وشكرا لك على المجهود

[anes]

يا اساتذتي الكرام

لقد قمت برفع مثال على ادات GeckoWebBrowser

اتمنى ان تلقو نظرة على مثال
لم استطع تحميله في المنتدى لكبر حجمه

[طالب برمجة]

PHP كود :

Private Sub GeckoWebBrowser1_DomClick(ByVal sender As Object, ByVal e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
    Dim element As Gecko.GeckoHtmlElement = e.Target.CastToGeckoElement()
    If element.InnerHtml = "btn1" Then Button1.PerformClick()
    If element.InnerHtml = "btn2" Then Button2.PerformClick()
End Sub 


[anes]

(09-02-18, 06:04 AM)طالب برمجة كتب :

PHP كود :

Private Sub GeckoWebBrowser1_DomClick(ByVal sender As Object, ByVal e As Gecko.DomMouseEventArgs) Handles GeckoWebBrowser1.DomClick
    Dim element As Gecko.GeckoHtmlElement = e.Target.CastToGeckoElement()
    If element.InnerHtml = "btn1" Then Button1.PerformClick()
    If element.InnerHtml = "btn2" Then Button2.PerformClick()
End Sub 


الله يبارك فيك ويرحم والديك

تمام اخي شكرا لك الكود يعمل بنجاح