以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控件页面集合页面自动切换显示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143729)
--  作者：狐表（小白）
--  发布时间：2019/12/2 20:06:00
--  控件页面集合页面自动切换显示问题
老师，以下是计划管理“计划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编辑过]
--  作者：有点蓝
--  发布时间：2019/12/2 20:51:00
--  
Dim i As Integer = 0
Dim tl1 As WinForm.TabControl = Forms("窗口1").Controls("TabControl2")
tl1.ShowTabs = False
If tl1.SelectedIndex = tl1.TabPages.Count - 1 Then
    tl1.SelectedIndex = 0
Else
    tl1.SelectedIndex = tl1.SelectedIndex +1
End If
--  作者：狐表（小白）
--  发布时间：2019/12/2 21:09:00
--  
谢老师