2011-09-17 5 views
0

저는 약간 새로운데 탭 브라우징을 사용하는 웹 브라우저에서 작업하고 있습니다 ...VB.NET TabControl 웹 브라우저?

새 탭을 만들면 웹 브라우저가 만들어집니다. 브라우저가로드를 마칠 때 호출되는 함수. 함수 안에 private 서브를 만들 수 없으므로, 내가 무엇을해야하는지 잘 모르겠습니다. 어떤 아이디어?

내 코드 :

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