[كود] اكود صنع متصفح - نسخة قابلة للطباعة

PHP كود :
Dim int As Integer = 0

____________________________________________________________________________________________

Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)

ToolStripProgressBar1.Maximum = e.MaximumProgress

ToolStripProgressBar1.Value = e.CurrentProgress

_____________________________________________________________________________________________

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)

TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle

ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

End Sub

______________________________________________________________________________________________

Form1:

Dim Browser As New WebBrowser

TabControl1.TabPages.Add("New Page")

Browser.Name = "Web Browser"

Browser.Dock = DockStyle.Fill

TabControl1.SelectedTab.Controls.Add(Browser)

AddHandler Browser.ProgressChanged, AddressOf Loading

AddHandler Browser.DocumentCompleted, AddressOf Done

int = int + 1

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

_______________________________________________________________________

NEW PAGE:

Dim Browser As New WebBrowser

TabControl1.TabPages.Add("New Page")

TabControl1.SelectTab(int)

Browser.Name = "Web Browser"

Browser.Dock = DockStyle.Fill

TabControl1.SelectedTab.Controls.Add(Browser)

AddHandler Browser.ProgressChanged, AddressOf Loading

AddHandler Browser.DocumentCompleted, AddressOf Done

int = int + 1

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

_____________________________________________________________________

CLOSE PAGE:

If Not TabControl1.TabPages.Count = 1 Then

TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)

TabControl1.SelectTab(TabControl1.TabPages.Count - 1)

int = int - 1

End If

_______________________________________________________________________________

Propiedades:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()

_________________________________________________________________________________

Timer:

ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText

__________________________________________________________________________________

<:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

__________________________________________________________________________________

>:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()

__________________________________________________________________________________

REFRESH:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

___________________________________________________________________________________

HOME:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

___________________________________________________________________________________

Ir /Go:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)