如何动态获取当前多页标签值？
如何动态获取当前多页标签值？
提问于 2013-10-25 02:15:02
社区，我目前在我的用户表单多页上隐藏了我的标签，除了当前的标签。用户可以单击按钮在页面之间来回切换。一些按钮共享子例程。当用户单击一个按钮时，一旦选择了新的选项卡，它就会隐藏上一个选项卡。我想这是一个双重问题。
1)如何获取上一次页签选择值？
2)如何遍历我的tab值？我的目标是测试当前选项卡的标题或值与所有其他选项卡标题或值的对比。我认为这将是一种简单的方法来隐藏它们，而不管哪个页面和哪个按钮调用子例程。
现在我只有一个标签按钮...
Sub NewCreditSetup()
MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1
MultiPage1.Pages(0).Visible = False
//More code displaying tab...irrelevant
End Sub 回答 2
Stack Overflow用户
回答已采纳
发布于 2013-10-25 07:09:58
您可以使用tab change事件来确定何时更改选项卡，并将当前选项卡index存储为变量。然后，当选项卡再次更改时，此变量中的选项卡将成为上一个选项卡。
即：
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可能还值得注意的是，要小心显示和隐藏选项卡，因为这并不常见，而且可能会让用户感到困惑。不过，我还是把这个问题留给你吧。
Stack Overflow用户
发布于 2019-01-22 21:15:24
我想那会对你有帮助的。
Dim m As String
m = MultiPage1.SelectedItem.Caption
MsgBox m页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/19573496
复制相关文章
相似问题