一、问题描述:
正常情况下,我们在导航菜单点击下图中的【收支管理】时,会出现“ 导航菜单》日常管理》收支管理”,如下图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