Foxtable(狐表)用户栏目专家坐堂 → 导航栏设计的几个问题


  共有22431人关注过本帖树形打印复制链接

主题:导航栏设计的几个问题

美女呀,离线,留言给我吧!
julia
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:57 积分:489 威望:0 精华:0 注册:2008/12/5 14:52:00
导航栏设计的几个问题  发帖心情 Post By:2008/12/28 21:57:00 [只看该作者]

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

请问

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


 回到顶部
帅哥哟,离线,有人找我吗?
gdlgh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3506 威望:0 精华:5 注册:2008/9/1 2:32:00
  发帖心情 Post By: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


 回到顶部
美女呀,离线,留言给我吧!
julia
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:57 积分:489 威望:0 精华:0 注册:2008/12/5 14:52:00
  发帖心情 Post By:2008/12/29 8:44:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2008/12/29 14:21:00 [只看该作者]

以下是引用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




看了几次帮助,仍不是很懂,能否做个实例。


 回到顶部
帅哥哟,离线,有人找我吗?
gdlgh
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3506 威望:0 精华:5 注册:2008/9/1 2:32:00
  发帖心情 Post By:2008/12/29 15:02:00 [只看该作者]

好简单的!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部