以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21272)

--  作者:kemengyue
--  发布时间:2012/7/7 11:49:00
--  窗体问题

你好,表客户写手信息,我设置了两个窗口“侧边导航窗口”和“主窗口”;前者是Nurbar,后者是页面集合。
图片点击可在新窗口打开查看此主题相关图片如下:222.jpg
图片点击可在新窗口打开查看

我设置的代码:

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "任务总目录"
        tab.SelectedIndex = 0
    Case "任务进度条"
        tab.SelectedIndex = 1
    Case "写手客户信息"
        tab.SelectedIndex = 2
End Select


 


图片点击可在新窗口打开查看此主题相关图片如下:333.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:444.png
图片点击可在新窗口打开查看

--  作者:kemengyue
--  发布时间:2012/7/7 11:50:00
--  

子问题:是不是Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
这句话定义有问题。

 

如果在一个 窗口中定义另一个窗口的控件,不能用e.Form.Controls?

如果是,那正确的应该怎么写?相关参考的教程在哪?


--  作者:czy
--  发布时间:2012/7/7 12:07:00
--  

If Forms("窗口1").Opened Then
    Forms("窗口1").Controls("控件名")

……


--  作者:kemengyue
--  发布时间:2012/7/7 12:30:00
--  

老兄,看不懂,请帮我在这个基础上改一下把

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "任务总目录"
        tab.SelectedIndex = 0
    Case "任务进度条"
        tab.SelectedIndex = 1
    Case "写手客户信息"
        tab.SelectedIndex = 2
End Select


--  作者:kemengyue
--  发布时间:2012/7/7 13:13:00
--  

老兄,看不懂,请帮我在这个基础上改一下把

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "任务总目录"
        tab.SelectedIndex = 0
    Case "任务进度条"
        tab.SelectedIndex = 1
    Case "写手客户信息"
        tab.SelectedIndex = 2
End Select


--  作者:kemengyue
--  发布时间:2012/7/7 13:15:00
--  

老兄,看不懂,请帮我在这个基础上改一下把

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "任务总目录"
        tab.SelectedIndex = 0
    Case "任务进度条"
        tab.SelectedIndex = 1
    Case "写手客户信息"
        tab.SelectedIndex = 2
End Select


--  作者:狐狸爸爸
--  发布时间:2012/7/9 8:22:00
--  

Dim tab As WinForm.TabControl = Forms("右边窗口名称").Controls("TabControl1")
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "任务总目录"
        tab.SelectedIndex = 0
    Case "任务进度条"
        tab.SelectedIndex = 1
    Case "写手客户信息"
        tab.SelectedIndex = 2
End Select

 

e.Form表示触发事件的窗口,也就是导航栏所在的窗口,你要引用的是右边的窗口,必须用窗口名称。

 

[此贴子已经被作者于2012-7-9 8:25:24编辑过]