طلب مساعدة في Webbrowser

السلام عليكم

الأول يا باشا افتكر ان متصفحك مش لازم يكون معتمد على اداة MS web browser

لانه الاداة دى اساساً بتاعت مايكروسوفت و الويندز .. فحسب حد علمى انت تحتاج الاول انك تبرمج اداة استعراض مواقع عشان تقدر تعمل برنامج مستقل زى Netscape مثلا

عل فكره يا بيه أنا لا أريد متصفح بمعنى متصفح جديد ما أقصده هو أن أستخدم أداة Web Browser لتصفح الانترنت ولكن الإطار والحاوية والخدمات أنا الذي برمجها ولكني أريد أن أجعله متصفحاً افتراضياً كيف

معلش مش هقدر افيدك لان دى لعبه registry فى الويندز

بشكل افتراضي بصراحة لم ابحث ولكن لتفتح صفحة اخرى عند الانتقال الى صفحة جديدة بدل من تشغيل المتصفح الموجود بالجهاز استخدم الكود التالي

في حدث NewWindow2 قم بحجز نموذج من نفس النموذج الخاص بك وقم بانشاء نسخة منه باسناد القيم

مثال سريع

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    
On Error Resume Next

Dim NewForm As New FrmPage

    With NewForm
        .Caption = "about:blank"
        .WebBrowser1.Navigate "about:blank"
        DoEvents
        .Show
    End With

    
   Set ppDisp = WebBrowser1.Object
    
End Sub