用户forms多页导航

我有一个在Excel中build立的用户窗体，它有大约10个使用MultiPage设置的选项卡。 问题是我没有额外的标签空间，真的很想用友好的导航菜单或工具栏replace标签。 我已经看了微软的工具栏控制，这是接近我在找什么，但我不能改变的高度，下拉必须有箭头点击和nto文本，这是不直观的在我看来。

所以我的问题是，你们有没有熟悉一个更好的多页导航设置，也许使用一种forms的ActiveX？

Answer 1

我会推荐将您的用户表单分为单独的表单或基于类别的子表单。 如果他们都是无模式的，你可以让一个表单启动另一个表单，并且两个表单可以同时在屏幕上。 这样，你可以连续地工作。

要启动窗体为无模式，当您做Form1.Show将其更改为Form1.Show vbModeless

Answer 2

我最终做的是做一个列表框与所有我的不同页面，我的多页面，然后放置在我的用户窗体左侧的列表框，然后使用此代码

填充列表框

  i = 0 With Main_Window.form_navigation_list .AddItem "Domestic" .List(i, 0) = "Page 1" .List(i, 1) = 0 i = i + 1 .AddItem .List(i, 0) = "Page 2" .List(i, 1) = 1 i = i + 1 End With 

然后我有这个点击

 Private Sub form_navigation_list_Click() Dim i As Integer Dim SelectedRow As Integer For SelectedRow = 0 To Main_Window.form_navigation_list.ListCount - 1 If Main_Window.form_navigation_list.Selected(SelectedRow) Then nav_page = Main_Window.form_navigation_list.List(SelectedRow, 1) With Main_Window .MultiPage1.Value = nav_page .Show End With End If Next End Sub 

我开始使用flexgrid，但不断得到一个内存泄漏问题，程序会崩溃，所以我交换到列表框，它现在工作正常。 现在我可以自定义这个列表框来看起来更像我想要的导航。