以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开新页面问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91388)
--  作者：落叶孤影
--  发布时间：2016/10/9 20:33:00
--  打开新页面问题
你好老师，请帮我看下上传的项目文件，为什么第一次单击窗口按钮时总报错是怎么回事？代码是在论坛里看老师写的，应该不会错啊，谢谢！
[此贴子已经被作者于2016/10/10 10:49:27编辑过]
--  作者：有点蓝
--  发布时间：2016/10/10 9:26:00
--  
SelectedIndexChanged事件

Dim tab As WinForm.TabControl = e.Form.Controls("TabC窗口")
Dim tac As WinForm.TabControl = e.Form.Controls("TabC菜单")
If tab.SelectedPage IsNot Nothing
    Select tab.SelectedPage.Name
        Case "应用中心"
            tac.SelectedIndex = 0
        Case "page2"
            tac.SelectedIndex = 1
        Case "page3"
            tac.SelectedIndex = 2
        Case "窗口2"
            tac.SelectedIndex = 3
    End Select
End If
[此贴子已经被作者于2016/10/10 9:26:20编辑过]
--  作者：落叶孤影
--  发布时间：2016/10/10 11:45:00
--  

谢谢！代码自己也写好了，就是没有上面的IF判断，哎，自己怎么就想不起来呢！