社区,我目前正在用户表单多页上隐藏除当前选项卡之外的选项卡。用户可以点击按钮在页面之间来回切换。一些按钮共享子例程。当用户单击按钮时,一旦选择了新选项卡,它就会隐藏以前的选项卡。我想这是一个双重问题。
1)如何获取上一个选项卡的选择值?
2)如何循环遍历我的选项卡值?我的目标是根据所有其他选项卡标题或值来测试当前选项卡标题或值。我认为这将是隐藏所有内容的简单方法,无论哪个页面和哪个按钮调用子例程。
现在我只有一个选项卡按钮......
Sub NewCreditSetup()
MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1
MultiPage1.Pages(0).Visible = False
//More code displaying tab...irrelevant
End Sub
您可以使用选项卡更改事件来确定选项卡何时更改并存储当前选项卡index
作为变量。然后当再次更改选项卡时,该变量中的选项卡将成为前一个选项卡。
Ie:
Private iPrevTab As Integer
Private iCurTab As Integer
Private Sub MultiPage1_Change()
iPrevTab = iCurTab
iCurTab = MultiPage1.Index
'You can also check here what that tab is to do something with it
If MultiPage1.Value = MultiPage1.Pages("mySpecialPage").Index Then
'Go Nuts
End If
End Sub
然后,您可以循环浏览所有选项卡并检查它们的名称、标题或索引。例如:
Private Sub LoopTabs()
Dim ii as Integer
for ii = 1 to MultiPage1.Pages.Count
If MultiPage1.Pages(ii).Index = iPrevTab Then
Debug.Print MultiPage1.Pages(ii).Name & " " & MultiPage1.Pages(ii).Caption
End If
Next ii
End Sub
还值得注意的是要小心显示和隐藏选项卡,因为它并不常见,并且可能会使用户感到困惑。不过我会把它留给你。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)