End Function Public Function CloseAllTabs() With FrmMain .TabControl1.TabPages.Remove(.TabPage1) .TabControl1.TabPages.Remove(.TabPage2) .TabControl1.TabPages.Remove(.TabPage3) .TabControl1.TabPages.Remove(.TabPage4) .TabControl1.TabPages.Remove(.TabPage5) .TabControl1.TabPages.Remove(.TabPage6) .TabControl1.TabPages.Remove(.TabPage7) .TabControl1.TabPages.Remove(.TabPage8) .TabControl1.TabPages.Remove(.TabPage9) .TabControl1.TabPages.Remove(.TabPage10) .TabControl1.TabPages.Remove(.TabPage13) .TabControl1.TabPages.Remove(.TabPage14) .TabControl1.TabPages.Remove(.TabPage22) End With Return True End Function Public Function ShowAllButtons() With FrmMain .ToolStripButton1.Enabled = True .ToolStripButton2.Enabled = True .ToolStripButton3.Enabled = True .ToolStripButton4.Enabled = True .ToolStripButton5.Enabled = True .ToolStripButton6.Enabled = True .ToolStripButton7.Enabled = True .ToolStripButton8.Enabled = True .ToolStripButton9.Enabled = True .ToolStripButton10.Enabled = True .ToolStripButton11.Enabled = True .DefinitionsToolStripMenuItem.Enabled = True End With Return True End Function Public Function CloseAllTabsExcept(tp As TabPage) With FrmMain CloseAllTabs() .TabControl1.TabPages.Add(tp) End With Return True End Function Public Function GetHome(page As ComboBox) With FrmMain Select Case page.Text Case "Home" CloseAllTabsExcept(.TabPage1) Case "Herbs" CloseAllTabsExcept(.TabPage2) Case "Herbal Recipes" CloseAllTabsExcept(.TabPage3) Case "Essential Oils" CloseAllTabsExcept(.TabPage4) Case "EO Blending" CloseAllTabsExcept(.TabPage17) Case "EO Blends" CloseAllTabsExcept(.TabPage5) Case "Magic Uses" CloseAllTabsExcept(.TabPage8) Case "Magical Formulas" CloseAllTabsExcept(.TabPage7) End Select End With Return True End Function
GetHome(DlgSettings.ComboBox2)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)