WebBrowser - Özellikler
AddressBar
CausesValidation
DragIcon
DragMode
FullScreen
Height
HelpContextID
Index
Left
MenuBar
Name
OffLine
RegisterAsBrowser
RegisterAsDropTarget
Silient
StatusBar
TabIndex
TabStop
Tag
TheaterMode
ToolBar
ToolTipText
Top
Visible
WhatsTihsHelp
Width
WebBrowser - Olaylar
BeforeNavigate2
ClientToHostWindow
CommandStateChange
********Complete
DownloadBegin
DownloadComplete
DragDrop
DragOver
FileDownload
GotFocus
LostFocus
NavigateComplete2
NavigateError
NewWindow2
OnFullSceen
OnMenuBar
OnQuit
OnStatusBar
OnTheaterMode
OnToolBar
OnVisible
PrinttemplateInstalation
PrinttemplateTearDown
PrivacyImpactedStateChange
ProgressChange
PropertyChange
SetSecureLockIcon
StatustextChange
TitleChange
UpdatePageStatus
Validate
WindowClosing
WindowSetHeight
WindowSetLeft
WindowSetResizable
WindowSetTop
WindowSetWidth
WebBrowser - Yöntemler
ClientToWindow
Drag
ExecWB
GetProperty
Goback
GoForward
GoHome
GoSearch
Move
Navigate
Navigate2
PutProperty
QueryStatusWB
Quit
Refresh
Refresh2
SetFocus
ShowWhatsThis
Stop
ZOrder
WebBrowser - Uygulama
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.ilerikontrol.com"
Combo1.AddItem “http://www.ilerikontrol.com/”
End Sub
Private Sub Geri_Click() ‘ Bir önceki sayfaya gider
On Error Resume Next
WebBrowser1.GoBack
End Sub
Private Sub ileri_Click() ‘ Geri gidilmiş ise bir sonraki sayfaya
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub Ana_Sayfa_Click() ‘ İlk gidilen adrese gider
On Error Resume Next
WebBrowser1.GoHome
End Sub
Private Sub Yenile_Click() ‘ Sayfayı tekrar çağır
On Error Resume Next
WebBrowser1.Refresh
End Sub
Private Sub dur_Click() ‘ Sayfa çağırma işlemini durdurur
On Error Resume Next
WebBrowser1.Stop
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ‘ Enter tuşu ile yazılan sayfa çağrılır
Git_Click ‘ Ortak kod nedeniyle Git_Click
End If
End Sub
Private Sub Git_Click()
Dim kontrol As Boolean
kontrol = False
WebBrowser1.Navigate Combo1.Text ‘ Combo’da yazılı adrese git
For I = 0 To Combo1.ListCount – 1 ‘ Combo’da yoksa listeye ekle
If Combo1.List(I) = Combo1.Text Then kontrol = True
Next I
If kontrol = False Then Combo1.AddItem Combo1.Text
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)
sayfa_adı.Caption = "Bağlanılıyor " & Combo1.Text ‘ Durum bilgisi
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
sayfa_adı.Caption = WebBrowser1.********Name
End Sub ‘ Bağlanılan adresin başlığı
