以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]手风琴风格的导航栏如何实现?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115501)

--  作者:larjia
--  发布时间:2018/3/8 10:36:00
--  [求助]手风琴风格的导航栏如何实现?
手风琴风格的导航栏如何实现的?能否提供下思路?
--  作者:有点甜
--  发布时间:2018/3/8 10:44:00
--  

这个意思?

 

http://www.foxtable.com/webhelp/scr/0834.htm

 

http://www.foxtable.com/webhelp/scr/0872.htm

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89472&replyID=&skin=1

 


--  作者:larjia
--  发布时间:2018/3/8 11:01:00
--  


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

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


--  作者:有点甜
--  发布时间: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
--  发布时间:2018/3/8 13:12:00
--  

谢啦,回复真及时啊!

 

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

 

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

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

 

 


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

--  作者:有点甜
--  发布时间:2018/3/8 14:53:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0834.htm

 

http://www.foxtable.com/webhelp/scr/2133.htm

 

http://www.foxtable.com/webhelp/scr/0869.htm

 


--  作者:larjia
--  发布时间:2018/3/8 15:00:00
--  

谢谢!