【新手進階】之十三：Outlook風格導航界面

roych

其實，早在兩個月之前已經(jīng)發(fā)過一個了。后來有版友私信給我說出錯，再后面調(diào)試時發(fā)現(xiàn)SP5的ImageList、ListView等控件不太兼容，于是重新改為SP6版本，重新上傳。
至于實現(xiàn)思路，請參考前面的帖子
http://www.mzhfr.cn/thread-118864-1-1.html
當然，用ctExploer控件會更好些。正如王站提到的問題。當出現(xiàn)三級菜單時，則需要在右側再加一個ListView。下次有時間再測試~~

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

針對大家提到的問題，發(fā)布Access2010版和對應的ADE文檔。由于Imagelist在64位的Office 2010版本上不太兼容（目前我是裝了2010版本+2003）效果圖見ACCDE文檔。如果仍有“沒有任何控件”的錯誤提示，可能需要注冊一下了，詳見附件：



另外，根據(jù)風中漫步的要求，上傳個動畫：


********************************************************************************************************************
【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導出記錄集

【新手進階】之一：基礎算法（一）
【新手進階】之二：基礎算法（二）
【新手進階】之三：基礎算法（三）
【新手進階】之四：基礎算法（四）
【新手進階】之五：排序搜索（一）
【新手進階】之六：排序搜索（二）
【新手進階】之七：遞歸算法
【新手進階】之八：冒泡排序
【新手進階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解�！焙汀凹o昌學射”——淺談表格式文本數(shù)據(jù)的導入
【新手進階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設計
【新手進階】之十三：Outlook風格導航界面
【新手進階】之十四：倉庫管理系統(tǒng)

tmtony

謝謝分享
我還是鐘情于ctExplorer

tmtony

這個效果還是挺不錯。贊一個。

roych

tmtony 發(fā)表于 2014-11-13 11:37
謝謝分享
我還是鐘情于ctExplorer

由于這個控件需要在客戶端注冊，覺得有些麻煩，只能在做成軟件后，打包分發(fā)時處理了。

tmtony

但當一個選項組超過3個或更多，如何上下移動項目？

leonshi

最近版主高產(chǎn)啊

roych

tmtony 發(fā)表于 2014-11-13 11:40
但當一個選項組超過3個或更多，如何上下移動項目？

這個時候一般都是在右側再加上一個ListView來顯示子菜單的。我這里只是做一個類似于二級菜單之類的導航而已

roych

leonshi 發(fā)表于 2014-11-13 12:31
最近版主高產(chǎn)啊

其實很多是之前寫過了，只是沒時間整理，最近稍稍沒那么忙就發(fā)上來了

herry2003aa

這個導航感覺特別高大上，但是打開使用出錯，說使用了找不到函數(shù)名稱

roych

herry2003aa 發(fā)表于 2014-12-16 09:36
這個導航感覺特別高大上，但是打開使用出錯，說使用了找不到函數(shù)名稱

可能access不怎么支持吧。逐個在標簽里call它試試？例如：
Private Sub LblMenu1_Click()
Call GetMenu(Me.LblMenu1.Name)
End Sub