السلام عليكم ورحمة الله وبركاته
بالبداية كل الشكر للاخوة
COMFORT
والاخ
najy_zl
على افادتي في الموضوع السابق وهادا رابط الموضوع
وتحديدا المشاركة الي فادتني جدا هي رابطها من هنا
/index.php?showtopic=186550&st=0&p=938453entry938453
سؤالي الان للاخ ناجي تحديدا
الكود هادا
Private WithEvents HTMLDoc As MSHTML.HTMLDocument
Private HTMLWin As MSHTML.HTMLWindow2
Private Sub Form_Load()
WebBrowser1.Navigate2 App.Path & "/index.htm"
Set HTMLDoc = WebBrowser1.Document
Set HTMLWin = HTMLDoc.parentWindow
End Sub
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
فادني كتير وهو انك عرضت رابط الصورة الي بضغط عليها بالماوس في تكست
لحتى الان مية المية
بس ضفت رابط عادي جدا بصفحة
index.htm
رابط عادي جدا هو زي هيك شكلو بالفرونت بيج
<a href="index2.htm">الصفحة الثانية</a>
هلقيت لما اضغط عالرابط بروحش على صفحة 2
الي بدي اياه انو يروح عادي عالصفحة 2
بس بعتقد انو المشكلة عشان في حدث
ONCLICK
فاذا في امكانية اخي تديني كود زي هادا
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
بس للرابط وبدل ما يكتب عنوان الرابط بتكست زي معملنا بالصورة لا بدي اياه يروح عالصفحة عادي كانو بنتصفح بالانترنت بس طبعا باستعمال كود زي الكود السابق هادا
وكل التحية الك اخي بعرف اني غلبتك بس بتمنى الافادة لاني فعلا محتاج الكود حاليا