- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]TabControl+NavBar1 切换问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119245)
-- 发布时间：2018/5/21 14:20:00
-- [求助]TabControl+NavBar1 切换问题
RT：
我想通过NavBar1控制TabControl1页面
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1
现在单击哪个都出现相同的页面
怎么改能实现单击对应NavBar1·出现对应的PAGE
此主题相关图片如下：qq截图20180521142048123.jpg
[此贴子已经被作者于2018/5/21 14:21:09编辑过]
-- 发布时间：2018/5/21 15:10:00
--
参考
http://www.foxtable.com/webhelp/scr/0876.htm
-- 发布时间：2018/5/21 15:15:00
--
我的不是表啊·是TabControl·也可以用这么
-- 发布时间：2018/5/21 15:17:00
--
一样的意思，代码不同，切换不同的页面，那就修改数字
tab.SelectedIndex = 1
-- 发布时间：2018/5/21 15:24:00
--
请问老师·是这样不···
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
Case "仓库管理"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1
Case "采购管理"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 2
End Select
-- 发布时间：2018/5/21 15:30:00
--
1、是这个事件SelectedIndexChanged
2、代码如
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
Case "仓库管理"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1
Case "采购管理"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 2
End Select