2011-09-17 10 views
0

私はこれに少し新しくなっていますが、タブブラウズのWebブラウザで作業しています。VB.NET TabControl Webブラウザ?

新しいタブが作成されると、そのタブにWebブラウザが作成されますが、ブラウザの読み込みが完了したときに呼び出される関数です。私は関数内にプライベートサブを作成することはできませんので、私は何をすべきか分かりません。何か案は?

マイコード:

Function addtab() 
    Dim myTabPage As New TabPage() 
    Dim theweb As New WebBrowser 

    myTabPage.Text = "TabPage Test" & (TabControl1.TabPages.Count + 1) 
    TabControl1.TabPages.Add(myTabPage) 

    theweb.GoHome() 
    theweb.Parent = myTabPage 
    theweb.Visible = True 
    theweb.Dock = DockStyle.Fill 
    Return True 
End Function 

ありがとう!

答えて

3

新しいwebBrowserオブジェクトを作成し、それを新しいtabPageにドッキングしてから、読み込みが完了したらwebBrowserに何か操作をさせていただきたいのですか?

何、このようなものについて...

Public Class Form1 

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    addtab() 
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 = "TabPage Test" & (TabControl1.TabPages.Count + 1) 
    TabControl1.TabPages.Add(myTabPage) 
    theweb.Navigate("http://justinchoponis.com") 
    theweb.Parent = myTabPage 
    theweb.Visible = True 
    theweb.Dock = DockStyle.Fill 
    Return True 
End Function 


Public Sub Run_Me_On_Load(sender As Object, e As EventArgs) 
    MessageBox.Show("Finished loading") 
End Sub 

エンドクラス

+0

私はあなたを愛しています!ありがとう! :Dあなたはamazzzinnggです - 私はこれが可能だとは思わなかった! – Alex

+0

いいえ、汗が - あなたのために働くことを願っています。 –

+0

決して遅くない。ありがとうございました! – WreithKassan