منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - هل يمكن التحكم في البرنامج من خلال صفحة html

الصفحات : 1 2 3 4

(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
وشكرا لك على المجهود

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

لقد قمت برفع مثال على ادات 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 

(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

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

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

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

anes

anes

طالب برمجة

anes