老师,以下是计划管理“计划1”的代码,我把它放到窗口1afterload代码里面进行加载启动(MyTimers("计划1").Enabled = True ),为什么页面集合只隐藏不切换显示???
Dim i As Integer = 0
Dim tl1 As WinForm.TabControl = Forms("窗口1").Controls("TabControl2")
tl1.ShowTabs = False
Dim pg1 As WinForm.TabPage
pg1= Forms("窗口1").Controls("TabControl2").tabpages(0)
Dim pg2 As WinForm.TabPage
pg2= Forms("窗口1").Controls("TabControl2").tabpages(1)
Dim pg3 As WinForm.TabPage
pg3= Forms("窗口1").Controls("TabControl2").tabpages(2)
Select Case i
Case 0
pg1.Visible = True
i = 1
Case 1
pg2.Visible = True
i = 2
Case 2
pg3.Visible = True
i = 0
End Select
[此贴子已经被作者于2019/12/2 20:06:41编辑过]