以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:寻一个关于导航栏折叠缩进的例子。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78146)

--  作者:bahamute
--  发布时间:2015/12/3 9:21:00
--  求助:寻一个关于导航栏折叠缩进的例子。
原来从坛子里曾经见到过这个例子,可以调出导航栏折叠功能,见图片。
但现在死活搜不到。
求帮助。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20151203091623.jpg
图片点击可在新窗口打开查看



[此贴子已经被作者于2015/12/3 9:21:51编辑过]

--  作者:大红袍
--  发布时间:2015/12/3 9:30:00
--  

在哪里放一个按钮,然后写代码

 

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


--  作者:bahamute
--  发布时间:2015/12/3 11:19:00
--  
代码没起效果。
--  作者:大红袍
--  发布时间:2015/12/3 11:20:00
--  
按钮标题 <<
--  作者:bahamute
--  发布时间:2015/12/3 11:22:00
--  
按钮标题就是<<,没错,运行时点击按钮,按钮的位置到时变了,导航栏大小没有改变。
--  作者:大红袍
--  发布时间:2015/12/3 11:24:00
--  

停靠如果是fill,那你就直接控制其容器的width


--  作者:blackzhu
--  发布时间:2015/12/3 13:58:00
--  
e.Form.Controls("NavBar1").BaseControl.AllowCollapse = True