Foxtable(狐表)用户栏目专家坐堂 → 导航自动隐藏的问题


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

主题:导航自动隐藏的问题

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
导航自动隐藏的问题  发帖心情 Post By:2016/6/19 9:03:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:导航自动隐藏问题.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:导航自动隐藏.gif
图片点击可在新窗口打开查看

就是想实现导航图钉点击为自动隐藏时,在导航中点击节点打开窗口时导航立即收起再打开窗口,不需要在旁边点击一下导航会才收起

目录树点击的代码如何写,谢谢!



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导航自动隐藏.foxdb


[此贴子已经被作者于2016/6/19 9:34:38编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/19 22:02:00 [显示全部帖子]

唉,感觉好遗憾,因为为了用户可操作的界面大点,只能使导航自动隐藏,但自动隐藏后每次展开点击打开窗口时都要再旁边再点一下导航才会消失,很别扭。

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/19 23:42:00 [显示全部帖子]

就是上次问过大红袍老师了,但是用你提供的办法没有解决啊,所以才做了个例子上传看看能否解决。

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/20 10:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:自动隐藏.jpg
图片点击可在新窗口打开查看

现在点击是可以自动隐藏了,但有的用户电脑屏幕比较大,不想要自动隐藏,所以点击图钉那为不用自动隐藏,此时在导航点击打开窗口时就不要自动收起导航了。
是不是哪里还要加个判断,如果用户选择的自动隐藏才隐藏。
谢谢!

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/20 11:34:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:自动隐藏.gif
图片点击可在新窗口打开查看

还是没有明白,请看动画,后面那种情况即图钉向下时不用自动隐藏才正确。
[此贴子已经被作者于2016/6/20 11:34:53编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/20 11:45:00 [显示全部帖子]

因为没明白bw是什么意思,所以误会了,谢谢。可以了。

还是大红袍老师贴心啊,不怕麻烦,全局代码中也加了代码。不象狐爸就一句话没办法,实话不要生气啊。
[此贴子已经被作者于2016/6/20 11:48:24编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/6/29 14:07:00 [显示全部帖子]

升级到新版6.26导航下面这段代码不起作用了,即不会自动隐藏了,前几天都可以的,是什么原因?


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)
End If


 回到顶部