社区,我目前在我的用户表单多页上隐藏了我的标签,除了当前的标签。用户可以单击按钮在页面之间来回切换。一些按钮共享子例程。当用户单击一个按钮时,一旦选择了新的选项卡,它就会隐藏上一个选项卡。我想这是一个双重问题。
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
发布于 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
可能还值得注意的是,要小心显示和隐藏选项卡,因为这并不常见,而且可能会让用户感到困惑。不过,我还是把这个问题留给你吧。
发布于 2019-01-22 21:15:24
我想那会对你有帮助的。
Dim m As String
m = MultiPage1.SelectedItem.Caption
MsgBox m
https://stackoverflow.com/questions/19573496
复制相似问题