資源管理器vb程序-資料下載頁(yè)
2025-11-04 15:53本頁(yè)面
【導(dǎo)讀】方控件，我們可以用VB輕易做出與Windows幾乎一模一樣的資源管理器。通過(guò)一個(gè)例子向大家介紹該控件的簡(jiǎn)單用法。個(gè)名為"Form1"的窗口。在工具箱的空白處單擊鼠標(biāo)右鍵，從彈出的快捷菜單中。點(diǎn)擊"應(yīng)用"后NEWEX控件就添加到工具箱中。你會(huì)發(fā)現(xiàn)工具箱中多了3. 個(gè)圖標(biāo)，如圖1。我們要用到的是最后兩個(gè)。窗格,用以顯示左邊選定對(duì)象所包含的內(nèi)容）。下面列出它們的幾個(gè)主要屬性。Appearance控件外觀是否立體，1為3D邊框，0為平面。邊界類(lèi)型ShowHiddenFile是否顯示隱藏文件view查看方式0-平鋪，1-圖標(biāo)，再在窗體中添加3個(gè)Text控件和一個(gè)CommandButton控件，將Text控件。的Caption屬性依次設(shè)置為"地址"，"文件"，"文件夾"。Caption屬性設(shè)置為"轉(zhuǎn)到"。④編寫(xiě)代碼完成"轉(zhuǎn)到"按鈕的功能。樹(shù)型目錄窗格轉(zhuǎn)到"地址"欄中輸入的地址目錄。而利用ExplorerList的View屬性也可以模仿出這個(gè)功能。選擇"工具"下的"菜單編輯器"進(jìn)行菜。完成這幾步后這個(gè)簡(jiǎn)單的實(shí)例程序就完成了，運(yùn)行程序，效果如圖5。是和Windows資源管理器很象！
【正文】 n(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu popmnu End If End Sub 最后，編碼以響應(yīng)菜單事件 Private Sub mnuD_Click() = 3 39。詳細(xì)信息 End Sub Private Sub mnuL_Click() = 2 39。列表 End Sub Private Sub mnuN_Click() = 1 39。圖標(biāo) End Sub Private Sub mnuS_Click() = 0 39。平鋪 End Sub 這樣就可以模仿 Windows 資源管理器的右鍵菜單 查看 功能。 完成這幾步后這個(gè)簡(jiǎn)單的實(shí)例程序就完成了，運(yùn)行程序，效果如圖 5。是不是和 Windows 資源管理器很象！當(dāng)然，還有 其它具體的功能還待大家去實(shí)現(xiàn)。這里只是介紹 NEWEX 的簡(jiǎn)單應(yīng)用。 圖 4
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1