选择Case以处理活动TabPage

Question

带有Form和TabControl的程序。我需要处理用户根据活动TabControlPage

关闭表单时发生的情况

正在使用If - 然后像这样

If PanelChooserTabControl.SelectedTab Is SelectionTabPage Then
    'What I want
End If

If PanelChooserTabControl.SelectedTab Is EditionTabPage Then
    'The user can´t leave
    e.Cancel = True
End If

但我会有更多的TabPages，我想用Select Case

简化代码

Dim TabPageActive As String = PanelChooserTabControl.SelectedTab.ToString
Select Case TabPageActive
    Case "TabPage:{SelectionTabPage}"
        'What I want
    Case "EditionTabPage"
        'What I want
End Select

但是TabPageActive变量加载了类似的东西 TabPage的：{SelectionTabPage}

而不仅仅是＃34; SelectionTabPage＆＃34;。即使使用TabPage：{SelectionTabPage}作为Case变量（如示例代码）也无效。

我是否需要进行其他字符串转换或修剪？

Answer 1

您可以尝试以下内容：

Select Case True
  Case PanelChooserTabControl.SelectedTab Is SelectionTabPage
  Case PanelChooserTabControl.SelectedTab Is EditionTabPage
  ...
End Select

或在tabPage索引上更改另存为枚举页面并在案例中使用此枚举。