你页面1是动态生成的?
Dim tab As WinForm.TabControl = e.form.controls("TabControl1")
Dim p = tab.TabPages("页面1")
If p IsNot Nothing Then
msgbox("存在”)
End If
----------------------------
Dim tab As WinForm.TabControl = e.form.controls("TabControl1")
msgbox(tab.SelectedPage.name )
If tab.SelectedPage.name = "页面1"
msgbox("当前页是页面1")
End If