Public Sub AddBrowserTab()
AxWebBrowser1.Visible = False
Dim newPage As TabPage = New TabPage(Text) ' Delcare and
create the tab page
Dim browser As AxSHDocVw.AxWebBrowser = New
AxSHDocVw.AxWebBrowser ' Declare and create the browser(control)
newPage = New TabPage(Text)
browser = New AxSHDocVw.AxWebBrowser
newPage.Controls.Add(browser) ' Add the browser to
the tab(page)
browser.Dock = DockStyle.Fill ' Fill the tab page withit.
browser.Enabled = True ' Enable it
TabControl1.TabPages.Add(newPage) ' Add the tab page to
the tab control
TabControl1.Visible = True
browser.Navigate2(cboAddress.Text)
browser.Silent = False
newPage.ToolTipText = Text
Dim i As Integer = TabControl1.SelectedIndex + 1
For i = 0 To i
TabControl1.SelectedIndex = i
Next
Debug.WriteLine("NP :" & newPage.TabIndex)
Debug.WriteLine("Name :" & newPage.Text.ToString())
' browser.Navigate2("about
:blank") ' Set initial page
to blank()
cboAddress.Text = String.Empty
End Sub
Nicolas wrote:
Hi, I need to add a new tab page with some control to the Tools/Options Tab
control in Outlook 2003, so I can have some settings for my add-in
Does anybody have a clue because I don't?
Thanks a lot