VB如何實作在一個FORM上動態顯示內似檔案夾圖示
如下圖
同時檔案夾右邊的名稱可以自己定義
uj5u.com熱心網友回復：
listview + imagelist
uj5u.com熱心網友回復：
非常簡單，添加一個 ListView1 控制元件，再添加一個 ImageList1 控制元件，右擊 ImageList1 控制元件，在《通用》選項卡選擇“48 × 48”，在《影像》選項卡依次插入7個 *.ico 圖示，然后輸入下面代碼：
Dim itmX As ListItem '宣告一個ListItem物件
Private Sub Form_Load()
Set itmX = ListView1.ListItems.Add(, , "3D物件", 1)
Set itmX = ListView1.ListItems.Add(, , "視頻", 2)
Set itmX = ListView1.ListItems.Add(, , "圖片", 3)
Set itmX = ListView1.ListItems.Add(, , "檔案", 4)
Set itmX = ListView1.ListItems.Add(, , "下載", 5)
Set itmX = ListView1.ListItems.Add(, , "音樂", 6)
Set itmX = ListView1.ListItems.Add(, , "桌面", 7)
End Sub
ok了！
uj5u.com熱心網友回復：
你這叫“動態”嗎？
基本上只能算是“固定顯示”方案…………
uj5u.com熱心網友回復：
只是給出個示例，動態的話要樓主自己實作。
uj5u.com熱心網友回復：
樓主的“動態”指什么？
圖片動，還是隨著系統設定動，還是隨著實際檔案串列動？
問問題不要舍不得打字
uj5u.com熱心網友回復：
點擊檔案夾才能實作動態，這個問題樓主并沒有說點擊檔案夾后實作動態。
另外，我回答的是怎么在 ListView1 控制元件中實作樓主希望的檔案夾圖示，不是點擊檔案夾的效果，這個只能希望樓主實作了。
uj5u.com熱心網友回復：
自定義小控制元件吧，一個picture+textbox，然后算清楚大小排列一下就行了。等回復的這些時間夠把這玩意重寫10遍了。
至于動態，你樂意往里面放視頻都行。
uj5u.com熱心網友回復：
樓主都失蹤了，我們還瞎操什么心…………
經常都是些啥都不懂、又說不清楚自己“需要什么”的人來發個帖子，然后就玩失蹤。
uj5u.com熱心網友回復：
謝謝大家的幫助，幾個月沒來看了。我最先在FORM上拖了些按鈕過來，感覺不怎么美觀。
uj5u.com熱心網友回復：
要用VB5的那套listview，VB6的listview是vb專案組自己開發的，所以在windows 7上面還是win98的風格
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/30227.html
標籤：VB基礎類
上一篇：正則用不了submatches
下一篇：關于VBa中getsetting和savesetting
