- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导航自动隐藏的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86503)
-- 发布时间：2016/6/19 9:03:00
-- 导航自动隐藏的问题
此主题相关图片如下：导航自动隐藏问题.png
此主题相关图片如下：导航自动隐藏.gif
就是想实现导航图钉点击为自动隐藏时，在导航中点击节点打开窗口时导航立即收起再打开窗口，不需要在旁边点击一下导航会才收起
目录树点击的代码如何写，谢谢！
[此贴子已经被作者于2016/6/19 9:34:38编辑过]
-- 发布时间：2016/6/19 21:31:00
--
没办法
-- 发布时间：2016/6/19 22:02:00
--
唉，感觉好遗憾，因为为了用户可操作的界面大点，只能使导航自动隐藏，但自动隐藏后每次展开点击打开窗口时都要再旁边再点一下导航才会消失，很别扭。
-- 发布时间：2016/6/19 23:36:00
--
没办法，你已经问题过了。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83468&skin=0
-- 发布时间：2016/6/19 23:42:00
--
就是上次问过大红袍老师了，但是用你提供的办法没有解决啊，所以才做了个例子上传看看能否解决。
-- 发布时间：2016/6/20 1:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导航自动隐藏 (1).foxdb |
-- 发布时间：2016/6/20 10:39:00
--
此主题相关图片如下：自动隐藏.jpg
现在点击是可以自动隐藏了，但有的用户电脑屏幕比较大，不想要自动隐藏，所以点击图钉那为不用自动隐藏，此时在导航点击打开窗口时就不要自动收起导航了。
是不是哪里还要加个判断，如果用户选择的自动隐藏才隐藏。
谢谢！
-- 发布时间：2016/6/20 10:41:00
--
你去看事件代码，不是很明显吗？有一个if判断啊
-- 发布时间：2016/6/20 11:34:00
--
此主题相关图片如下：自动隐藏.gif
[此贴子已经被作者于2016/6/20 11:34:53编辑过]
-- 发布时间：2016/6/20 11:37:00
--
你到底有没有看过代码啊
Forms(e.Node.name).show
Dim frm = e.Form.panel.parent.parent
If frm.Gettype.name = "bw" Then
SetCursorPos(599, 589) \'鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) \'点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Else
msgbox("我不隐藏")
\'frm.AutoHiding = True
End If