首页图标按钮设计
通过图片按钮方便用户执行相应的功能(例如打开窗体、报表、执行特定的操作等),在窗体SysFrmMain_HomePage的基础上来完成首页功能的设计。
上一章资料管理的学习,已开发【账号密码】和【扫描件】管理两个功能。当前是通过双击导航菜单中的项目来打开相应的窗体,接下来我们在导航菜单右边的窗口,设计两个图片按钮,实现同样的打开对应菜单的功能,因为图片菜单更醒目一些,可以将重要的常用操作,放置在主窗口。
相关代码
Function DoMenuCmd(MenuText As String)
On Error GoTo ErrorHandler
Dim strMenuID As String
strMenuID = Nz(DLookup("ID", "SysLocalNavigationMenus", "MenuText=" & SQLText(MenuText)))
If IsChildForm(Me) Then
Call Me.Parent.DoTreeMenuItemAction(Me.Parent.mclsNavTree.Nodes("K" & strMenuID))
Else
RunMenuCommand "" & DLookup("Command", "SysLocalNavigationMenus", "ID='" & strMenuID & "'")
End If
ExitHere:
Exit Function
ErrorHandler:
MsgBoxEx Err.Description, vbCritical
Resume ExitHere
End Function
视频讲解
点击:https://m.qlchat.com/wechat/page/topic-intro?topicId=2000016584815044 (打开网页后用微信扫描登录)