标题：导航栏设计的几个问题

1楼

julia 发表于：2008/12/28 21:57:00

今天我们版主对我相当的好,很仔细的解决了我的很多问题,我觉得很开心.最后他留下一个问题让我自已去学着看帮助.可是我用了2个小时最后的结果还是一无所获.朋友你可别生气. 图片点击可在新窗口打开查看

最后还是要把这个问题放在这里让大家帮我解决一下.谢了.脑子笨就是没办法的啦

请问

用导航栏,如何打开指定表. 导航栏里有不同的页面,我想一个页面能够打开一个指定表,这如何操作.谢了

2楼

gdlgh 发表于：2008/12/28 23:20:00

导航栏每个页面有个ID或页面，只要判断返回那个ID或页面就打开那个表就行了！

SelectedIndex

整数型，返回或者设置导航栏选定页面的位置。

示例

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Select Case Bar.SelectedIndex
    Case 0
        Maintable = Tables("表1")
    Case 1
        Maintable = Tables("表2")
    Case 2
        Maintable = Tables("表3")
    Case 3
        Maintable = Tables("表N")
End Select

3楼

julia 发表于：2008/12/29 8:44:00

系统重启后打开文件,我的导航栏总是先打开CASE 3也就是最底下的那一栏,怎么样才能让他先打开CASE 0 也就是最上面的那栏?

4楼

狐狸爸爸 发表于：2008/12/29 8:59:00

设置在窗口的AfterLoad事件中：

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Bar.SelectedIndex = 0

[此贴子已经被作者于2008-12-29 8:59:55编辑过]

5楼

狐哥发表于：2008/12/29 14:21:00

以下是引用gdlgh在2008-12-28 23:20:00的发言：
导航栏每个页面有个ID或页面，只要判断返回那个ID或页面就打开那个表就行了！

SelectedIndex

整数型，返回或者设置导航栏选定页面的位置。

示例

6楼

gdlgh 发表于：2008/12/29 15:02:00

好简单的！

下载信息 [文件大小：308.0 KB 下载次数：113]
点击浏览该文件:管理项目1.table

共6 条记录, 每页显示 10 条, 页签: [1]