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.
|