Foxtable(狐表)用户栏目专家坐堂 → 控件页面集合页面自动切换显示问题


  共有4022人关注过本帖树形打印复制链接

主题:控件页面集合页面自动切换显示问题

帅哥哟,离线,有人找我吗?
狐表(小白)
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:371 积分:4035 威望:0 精华:0 注册:2019/9/17 10:06:00
控件页面集合页面自动切换显示问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112401 积分:572273 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
狐表(小白)
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:371 积分:4035 威望:0 精华:0 注册:2019/9/17 10:06:00
  发帖心情 Post By:2019/12/2 21:09:00 [只看该作者]

谢老师

 回到顶部