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

roych

其實，早在兩個月之前已經(jīng)發(fā)過一個了。后來有版友私信給我說出錯，再后面調(diào)試時發(fā)現(xiàn)SP5的ImageList、ListView等控件不太兼容，于是重新改為SP6版本，重新上傳。
至于實現(xiàn)思路，請參考前面的帖子
http://ctxi.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ù)源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解牛”和“紀昌學射”——淺談表格式文本數(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