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

(07-02-18, 12:08 AM)anes كتب : [ -> ]

(06-02-18, 11:10 PM)عبد العزيز البسكري كتب : [ -> ]

السّلام عليكم و رحمة الله و بركاته

يمكنك أخي الكريم استخدام هذا الحدث بزر الأمر رقم 1 كمثال للضغط على زر الأمر رقم 2 و تنفيذ أوامره .. طبعا يمكنك تغيير الحدث حسب ما تحتاجه .. لعلّه يفيد و لو بالجزء اليسير إن شاء الله

تحياتي

كود :

   Private Sub Button1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Button1.KeyPress
       If e.KeyChar = Chr(13) Then
           Button2_Click(Me, EventArgs.Empty)
       End If
   End Sub

الله يحفظك احي عبد العزيز
ولكن ليس هذا المطلوب

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

(07-02-18, 12:49 AM)عبد العزيز البسكري كتب : [ -> ]

(07-02-18, 12:08 AM)anes كتب : [ -> ]

(06-02-18, 11:10 PM)عبد العزيز البسكري كتب : [ -> ]

السّلام عليكم و رحمة الله و بركاته

يمكنك أخي الكريم استخدام هذا الحدث بزر الأمر رقم 1 كمثال للضغط على زر الأمر رقم 2 و تنفيذ أوامره .. طبعا يمكنك تغيير الحدث حسب ما تحتاجه .. لعلّه يفيد و لو بالجزء اليسير إن شاء الله

تحياتي

كود :

   Private Sub Button1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Button1.KeyPress
       If e.KeyChar = Chr(13) Then
           Button2_Click(Me, EventArgs.Empty)
       End If
   End Sub

الله يحفظك احي عبد العزيز
ولكن ليس هذا المطلوب

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

شكرا لك أخي الكريم .. لست أدري قد أكون ربما خارج مجال التغطية لما تفكر به ..

يمكن كتابة الكود الذي تريد تنفيذه بزر الأمر 2 مثلا .. و تغير إلى الحدث Click بزر الأمر 1

(07-02-18, 04:19 PM)طالب برمجة كتب : [ -> ]

PHP كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    For Each lnk As HtmlElement In WebBrowser1.Document.Links
        lnk.AttachEventHandler("onclick", AddressOf Link_Click)
    Next
End Sub
Private Sub Link_Click()
    If WebBrowser1.Document.ActiveElement.InnerText = "btn1" Then Button1.PerformClick()
    If WebBrowser1.Document.ActiveElement.InnerText = "btn2" Then Button2.PerformClick()
End Sub 


فيه مشكلة اخي

بدله بالتالي
System.Windows.Forms.HtmlElement

(07-02-18, 05:02 PM)طالب برمجة كتب : [ -> ]بدله بالتالي
System.Windows.Forms.HtmlElement

الطريقة لا تعمل اخي

الرابط الموجود في المرفق الأول لا يعمل لأعرف ماهو كود الزر الذي استخدمته في الصفحة
http://btnmlive.somee.com/HtmlElement.html

لذا انا جربته على كود HTML من عندي وعمل بشكل جيد

(07-02-18, 05:19 PM)طالب برمجة كتب : [ -> ]الرابط الموجود في المرفق الأول لا يعمل لأعرف ماهو كو الزر الذي استخدمته في الصفحة
http://btnmlive.somee.com/HtmlElement.html

ليس هذا اخي


http://btnmlive.somee.com/HtmlEle.html



يمكن GeckoWebBrowser احسن من WebBrowser
[url=http://btnmlive.somee.com/HtmlEle.html][/url]

---

اخي الكريم سارفع لك مشروع معمول ب GeckoWebBrowser  
ساعدني فيه الله يرحم والديك

(07-02-18, 05:59 PM)طالب برمجة كتب : [ -> ]

PHP كود :

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 بالادات WebBrowser
لان ادات WebBrowser1 فقيرة جدا ولا تعرض كامل منظر الصفحة
يرحم الوالدين لمسة اخيرة
وجزاك الله خيرا
عملت مشروع لكن لم يحمل لكبر حجمه

---