【新手进阶】之十三：Outlook风格导航界面

roych

其实，早在两个月之前已经发过一个了。后来有版友私信给我说出错，再后面调试时发现SP5的ImageList、ListView等控件不太兼容，于是重新改为SP6版本，重新上传。
至于实现思路，请参考前面的帖子
http://www.office-cn.net/thread-118864-1-1.html
当然，用ctExploer控件会更好些。正如王站提到的问题。当出现三级菜单时，则需要在右侧再加一个ListView。下次有时间再测试~~

自我鼓励下哈^_^
**********************************************************************************************************************
2014-12-16更新：

针对大家提到的问题，发布Access2010版和对应的ADE文档。由于Imagelist在64位的Office 2010版本上不太兼容（目前我是装了2010版本+2003）效果图见ACCDE文档。如果仍有“没有任何控件”的错误提示，可能需要注册一下了，详见附件：



另外，根据风中漫步的要求，上传个动画：


********************************************************************************************************************
【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

tmtony

谢谢分享
我还是钟情于ctExplorer

tmtony

这个效果还是挺不错。赞一个。

roych

tmtony 发表于 2014-11-13 11:37
谢谢分享
我还是钟情于ctExplorer

由于这个控件需要在客户端注册，觉得有些麻烦，只能在做成软件后，打包分发时处理了。

tmtony

但当一个选项组超过3个或更多，如何上下移动项目？

leonshi

最近版主高产啊

roych

tmtony 发表于 2014-11-13 11:40
但当一个选项组超过3个或更多，如何上下移动项目？

这个时候一般都是在右侧再加上一个ListView来显示子菜单的。我这里只是做一个类似于二级菜单之类的导航而已

roych

leonshi 发表于 2014-11-13 12:31
最近版主高产啊

其实很多是之前写过了，只是没时间整理，最近稍稍没那么忙就发上来了

herry2003aa

这个导航感觉特别高大上，但是打开使用出错，说使用了找不到函数名称

roych

herry2003aa 发表于 2014-12-16 09:36
这个导航感觉特别高大上，但是打开使用出错，说使用了找不到函数名称

可能access不怎么支持吧。逐个在标签里call它试试？例如：
Private Sub LblMenu1_Click()
Call GetMenu(Me.LblMenu1.Name)
End Sub