Foxtable(狐表)用户栏目专家坐堂 → [求助]NAvbar的select事件失效问题求助【已解决】


  共有7535人关注过本帖平板打印复制链接

主题:[求助]NAvbar的select事件失效问题求助【已解决】

帅哥哟,离线,有人找我吗?
sunbrain
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2439 威望:0 精华:0 注册:2011/12/3 22:19:00
[求助]NAvbar的select事件失效问题求助【已解决】  发帖心情 Post By:2012/7/8 21:21:00 [只看该作者]

我在主窗口中分别有两个tabcontrol控件
我希望通过navbar来控制两个tabcontrol的显示,当点击tab1的时候显示第一个tabcontrol,同时隐藏第二个tabcontrol,点击tab2的时候显示第二个tabcontrol,隐藏第一个
我在navbar中这样设置了
Dim bar As WinForm.NavBar = e.sender

Dim t0 As WinForm.TabControl = e.Form.Controls("TabControl_人事管理")

Dim t1 As WinForm.TabControl = e.Form.Controls("TabControl1")


Select Case bar.SelectedPage.ButtonText
    Case "tab1"
        
        t0.Visible = True
        t1.Visible = False
        
        
        
    Case "tab2"
        
        t0.Visible = False
        t1.Visible = True
        
        
        
End Select

但是只是第一个case起作用,第二个case 不起作用,麻烦帮我看看,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:navbar失效问题.table



[此贴子已经被作者于2012-7-8 22:17:09编辑过]

 回到顶部