通过点击大图标不显示导航路径的解决方案-张志
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


通过点击大图标不显示导航路径的解决方案

发表时间:2018/9/18 17:20:28 评论(1) 浏览(6295)  评论 | 加入收藏 | 复制
   
摘 要:采用的是Access快速开发平台2.4.1.412版本,在SysFrmMain_HomePage窗体制作了大图标按钮,当点击大图标时,出现没有显示导航路径和正确高亮显示树节点,本文提供了解决方案。
正 文:

一、问题描述:

      正常情况下,我们在导航菜单点击下图中的【收支管理】时,会出现“ 导航菜单》日常管理》收支管理”,如下图1所示:

图1

      我们在 SysFrmMain_HomePage窗体上,自已设计了图标按钮作为菜单,如下图2所示:

图2


    当点击图2中的收支管理图标时,出现的界面如图3所示:

图3


这时,发现少了如图1中所示的导航路径:导航菜单》日常管理》收支管理,另外,当我们进行不同按钮的切换时,左边导航菜单没有对应高亮显示。


二、解决方法:

1.在 SysFrmMain窗体,添加一个函数:

  Function DoMenuCmd(MenuText As String)
    Dim strMenuId As String
    strMenuId = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
    mclsNavTree.RemoveFocus
    DoTreeMenuItemAction mclsNavTree.Nodes("K" & strMenuId)
  End Function


2.在 SysFrmMain_HomePage窗体:

'在该窗体的加载事件(Form_Load)中添加代码:
  On Error Resume Next
    Set Me.Parent.mclsNavTree.SelectedNode = Nothing
    Me.Parent.mclsNavTree.SetFocus "K01"

'在该窗体模块添加一个函数:
  Function DoMenuCmd(MenuText As String)
    Call Me.Parent.DoMenuCmd(MenuText)
  End Function



Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access快速开发平台】导航菜单制作一个使用说明菜单  【杨雪  2015/9/12】
Access开发平台--默认导航菜单在哪设置  【杜超  2016/8/21】
Access快速开发平台--如何改变首页导航菜单的背景颜色  【缪炜  2016/12/23】
如何修改快速开发平台总节点“导航菜单”名称  【宏鹏  2018/6/27】
Access快速开发平台--制作图标形式的导航页面  【易勋  2018/9/9】
常见问答
技术分类
相关资源
文章搜索
关于作者

张志

文章分类

文章存档

友情链接