[algroob]

السلام عليكم


ابي اصمم2 بروز في فورم واحد عند الضقط على الوصلة في WebBrowser1 يعمل WebBrowser2

ياريت يتم التعديل على التصميم .

وشكراً لكم


مرفق التصميم :-

[algroob]

لا يوجد رد

[Hassan Khamees]

بروجكت بروز أخي بالمرفقات

[algroob]

شكراً لك ولاكن مش هذا المقصود

[VB_Coder]

السلام عليكم

- ضع هذا الكود داخل كود الفورم :

كود :

Dim Is_Cancel As Boolean

Private Sub Form_Load()
    
Is_Cancel = True

Call WebBrowser1.GoHome
Call WebBrowser2.GoHome

End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If Is_Cancel = False Then
   WebBrowser2.Navigate URL
   Cancel = True
End If
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Is_Cancel = False
End Sub

- تحياتي .

[algroob]

شكررررررررررراً هذا المطلوب

الله يجزيك خير