Выберите Случай для обработки активных TabPage

Question

Программа с формой и 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

и не только «SelectionTabPage». Даже использование TabPage: {SelectionTabPage} в качестве переменной Case (например, код примера) не работает.

Должен ли я сделать другое преобразование строки или обрезку?

Answer 1

Вы можете попробовать что-то вроде:

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

или изменения индекса TabPage сохранить как перечисление страницы и использовать это перечисление в случае.