source webbrowser mikham

salam dostan

source ye webbrowser mikham ke multi tab bashe mese IE o firefoxo ...

faqat hamin khasiayto mikham ke dashte bashe.

age kasi dare plz be manam bede. vb.net 2005 mikham hala 2008 ya 2010 ham shod eshkal nadare

Mc

kasi hamchin sourcei nadare? ya bala nist benevise?

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

addtab()

addtab1()

End Sub

Function addtab()

Dim myTabPage As New TabPage()

Dim theweb As New WebBrowser()

AddHandler theweb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf Run_Me_On_Load)

myTabPage.Text = "badbuzz" & (TabControl1.TabPages.Count + 1)

TabControl1.TabPages.Add(myTabPage)

theweb.Navigate("http://badbuzz-team.ir")

theweb.Parent = myTabPage

theweb.Visible = True

theweb.Dock = DockStyle.Fill

Return True

End Function

Function addtab1()

Dim myTabPage As New TabPage()

Dim theweb As New WebBrowser()

AddHandler theweb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf Run_Me_On_Load)

myTabPage.Text = "freebuzz" & (TabControl1.TabPages.Count + 1)

TabControl1.TabPages.Add(myTabPage)

theweb.Navigate("http://freebuzz.ir")

theweb.Parent = myTabPage

theweb.Visible = True

theweb.Dock = DockStyle.Fill

Return True

End Function

Public Sub Run_Me_On_Load(ByVal sender As Object, ByVal e As EventArgs)

MessageBox.Show("Finished loading")

End Sub