[ تمت الإجابة ]سؤال في Webbrowser1 ارجو الافادة من اهل الخبرة

السلام عليكم...

هذه يمكنك إنجازها بسهولة من داخل ملف الـ HTML نفسه (index.htm) كالتالي:

1. في القسم HEAD أضف النص البرمجي (Script) التالي:

<script language="vbscript" type="text/vbscript">
<!--
Sub ShowSource(id)
	MsgBox document.all(id).src
End Sub
-->
</script>

2. في العلامة IMG الخاصة بوضع الصورة أعطِ اسماً للصورة (عن طريق الخاصية ID)، مثلاً img1 و اربط الإجراء السابق (ShowSource) مع الحدث onclick للصورة كما في المثال التالي (قد تحتوي العلامة IMG على علامات أخرى):

<img id="img1" src="/image1.jpg" onclick="ShowSource('img1')">
.
.
<img id="img2" src="/image2.jpg" onclick="ShowSource('img2')">
.

نرجو الاستفادة و السلام.

جزاك الله خيراً أخي najy_zl

زادك الله من علمه ويمكن أيضاً عمل ذلك من الفيجوال بيزك 

بنفس الطريقة بس يكون الـ Image لها ID يعني مثلاً Image1

باستخدام المكتبة HTML Object Library

مثل ما تفضلت و لكن طريقتك هي الأفضل و ذلك لأن فيها سنستخدم الـ VBScript

و لا نحتاج لإضافة أي مكتبات للمشروع

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

لقد أرفقت لك أخي مثال لطريقة عمل ذلك

لكن يجب أن تقوم ترفق المكتبة Microsoft HTML Object Library

قمت أنا في المثال بتعرف Element من النوع HTMLImg

اقتباس

Dim WithEvents Img As HTMLImg

Set Img = Doc.Images("Image1")

Label1.Caption = Img.src

Private Function Img1_onclick() As Boolean

MsgBox Img1.src

End Function

لكن أتمنى من الأخ najy_zl

أنت يطلع على الكود و هل من طريقة أن أعرف بها المسار مباشرة

لنفرض مثلاً أن الصفحة التي أعمل عليها ليست من تصميمي.

يعني جربت الكود الأول و كان يعمل

اقتباس

Dim Doc As HTMLDocument

Do Until WebBrowser1.ReadyState = ReadyState_Complete

DoEvents

Loop

Set Doc WebBrowser1.Documnet

Label1.Caption = Document.All("Image1").src

أو

Label1.Caption = Document.Images("Image1").src

الآن هل من طريقة نعرف بيها الـ Element الذي ضغط عليه المستخدم و نصل إليه

و إلى خصائصه ؟؟

Example.rar

السلام عليكم...

الشكر للجميع على تعاونهم.

كما قال الأخ COMFORT: نحتاج إلى إضافة Microsoft HTML Object Library إلى مراجع (References) المشروع. ثم نستخدم الكود التالي:

1. في قسم التصريحات (بداية الكود) نضع التصريحين التاليين:

Private WithEvents HTMLDoc As MSHTML.HTMLDocument
Private HTMLWin As MSHTML.HTMLWindow2

2. في إجراء الـ Form_Load نكتب الكود التالي:

Private Sub Form_Load()
	WebBrowser1.Navigate2 App.Path & "/index.htm"
	Set HTMLDoc = WebBrowser1.Document
	Set HTMLWin = HTMLDoc.parentWindow
End Sub

3. نفتح قائمة الكائنات الموجودة أعلى يسار نافذة الكود و نختار HTMLDoc. يظهر هذا الكائن في القائمة لأننا عرفناه في البداية باستعمال كلمة WithEvents في بداية الكود.

4. من قائمة الأحداث نختار الحدث onclick ليكون الكود كالتالي:

Private Function HTMLDoc_onclick() As Boolean
	Dim MyIamge As MSHTML.HTMLImg

	If UCase$(HTMLWin.event.srcElement.tagName) = "IMG" Then
		Set MyIamge = HTMLWin.event.srcElement
		Text1.Text = Replace(MyIamge.src, "%20", " ", 1, -1, vbTextCompare)
		Set MyIamge = Nothing
	End If
End Function

حيث يتم عرض المسار الكامل للصورة في Text1.

طبعاً يمكن استعمال نفس الكود - مع بعض التعديل - للوصول إلى أي Element في الصفحة.

نرجو الاستفادة و السلام.

لا شكر على واجب أخي ssssami

و الحمد لله أننا استطعنا الإفادة و أهلاً بك معنا في المنتدى 

و الشكر كله للأخ najy_zl هو من قام بتقديم الفكرة