السلام عليكم
ابي اصمم2 بروز في فورم واحد عند الضقط على الوصلة في WebBrowser1 يعمل WebBrowser2
ياريت يتم التعديل على التصميم .
وشكراً لكم
مرفق التصميم :-
بروجكت بروز أخي بالمرفقات
شكراً لك ولاكن مش هذا المقصود
السلام عليكم
- ضع هذا الكود داخل كود الفورم :
كود :
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
- تحياتي .
شكررررررررررراً هذا المطلوب
الله يجزيك خير