Foxtable(狐表)用户栏目专家坐堂 → [求助]手风琴风格的导航栏如何实现?


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

主题:[求助]手风琴风格的导航栏如何实现?

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


加好友 发短信
等级:幼狐 帖子:92 积分:931 威望:0 精华:0 注册:2018/2/28 12:33:00
[求助]手风琴风格的导航栏如何实现?  发帖心情 Post By:2018/3/8 10:36:00 [只看该作者]

手风琴风格的导航栏如何实现的?能否提供下思路?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 10:44:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:92 积分:931 威望:0 精华:0 注册:2018/2/28 12:33:00
  发帖心情 Post By:2018/3/8 11:01:00 [只看该作者]


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

差不多,类似附件所示这样的导航栏。还有上边那个最小化的按钮通过什么方式实现的?(来自企业框架图片点击可在新窗口打开查看)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 11:29:00 [只看该作者]

如果你用NavBar控件,那就再afterLoad事件写

 

e.Form.Controls("NavBar1").BaseControl.AllowCollapse = True

 

如果你用别的控件,就加入一个按钮,然后参考这样写代码

 

If e.sender.Text = "<<"
    e.Form.Controls("NavBar1").Width = 10
    e.sender.text = ">>"
    e.sender.left = 0
Else
    e.Form.Controls("NavBar1").Width = 300
    e.sender.text = "<<"
    e.sender.left = 280
End If


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


加好友 发短信
等级:幼狐 帖子:92 积分:931 威望:0 精华:0 注册:2018/2/28 12:33:00
  发帖心情 Post By:2018/3/8 13:12:00 [只看该作者]

谢啦,回复真及时啊!

 

那下面的效果如何实现的呢?任意点击一个菜单按钮内容会展开,其他的按钮内容关闭。

 

1. 通过代码来实现吗?给每条菜单添加Click事件代码?

2. 每条菜单能够打开关闭,本身这应该使用什么控件?

 

 


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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 14:53:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:92 积分:931 威望:0 精华:0 注册:2018/2/28 12:33:00
  发帖心情 Post By:2018/3/8 15:00:00 [只看该作者]

谢谢!


 回到顶部