Üye Kayıt Üye Giriş

Webbrowser'da resimleri yasaklamak


 Webbrowser'da resimleri yasaklamak


Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.e-ogrenci.org"
Picture1.Move WebBrowser1.Left, _
WebBrowser1.Top, _
WebBrowser1.Width, _
WebBrowser1.Height

End Sub
Private Sub Command1_Click()

Picture1.Visible = True
WebBrowser1.Left = Screen.Width + 1000
WebBrowser1.Navigate "http://www.e-ogrenci.org"

End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
URL As Variant)

Dim i As Integer

If pDisp = WebBrowser1 Then

For i = 0 To WebBrowser1.Document.Images.length - 1

WebBrowser1.Document.Images.Item(i).src = "C:\WINDOWS\Web\Tips.gif"

Next i
Picture1.Visible = False
WebBrowser1.Left = Picture1.Left
End If
End Sub

Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER

x