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

时　间:2018-09-18 17:20:28
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:采用的是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