- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于导航栏折叠的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86320)
-- 发布时间：2016/6/15 13:17:00
-- 关于导航栏折叠的问题
在窗体的AfterLoad事件中加入了以下代码：
Dim NavBarBase As C1Command.C1NavBar = e.Form.Controls("NavBar1").BaseControl
NavBarBase.AllowCollapse = True
但是似乎不行，请达人帮忙看看
-- 发布时间：2016/6/15 13:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:testnavbar.foxdb |
文件如上
-- 发布时间：2016/6/15 13:42:00
--
自己顶一下
-- 发布时间：2016/6/15 14:47:00
--
没问题啊，出现按钮了啊
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70748&skin=0
-- 发布时间：2016/6/15 15:06:00
--
按钮点了之后达不到想要的效果，导航栏没有折叠
-- 发布时间：2016/6/15 15:25: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
-- 发布时间：2016/6/15 15:29:00
--
以下是引用大红袍在2016/6/15 15:25: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
袍兄，这个不是我想要的方式嘛！
-- 发布时间：2016/6/15 15:41:00
--
那不知道你要什么。导航栏控件不能做到上下折叠的。