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