web tarayıcıda yeni pencere

[yesilce]

Merhabalar...

Web tarayıcı yazdım. Fakat tarayıcıda açılan sayfa yeni bir pencereden açılacaksa benim yazdığım programdan değilde yine Internet Explorer den açılıyor. Fakat ben yeni pencereden açıldığında açılan yeni tarayıcınında kendi yazdığım tarayıcı olmasını nasıl sağlayabilirim.

İlginiz için teşekkür ederim...

[yesilce]

Private Sub WebTarayici_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim YeniPencere As New frmTarayici
Set ppDisp = YeniPencere.WebTarayici.object
YeniPencere.WebTarayici.RegisterAsBrowser = True
YeniPencere.WebTarayici.Silent = WebTarayici.Silent
YeniPencere.Label1.Caption = YeniPencere.WebTarayici.Height
YeniPencere.Show
Set YeniPencere = Nothing
Cancel = False
End Sub

yukarıdaki kodlarla tarayıcıda tıklanan linklerin veya açılan pop-up pencerelerin kendi tarayıcınızda açılması sağlanabiliyor.