【正文】
圖 4 。是不是和 Windows 資源管理器很象!當(dāng)然,還有 其它具體的功能還待大家去實(shí)現(xiàn)。平鋪 End Sub 這樣就可以模仿 Windows 資源管理器的右鍵菜單 查看 功能。列表 End Sub Private Sub mnuN_Click() = 1 39。 Private Sub Form_MouseDown(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。選擇 工具 下的 菜單編輯器 進(jìn)行菜單的設(shè)計(jì) . 如圖 3。 在 Windows 資源管理器中點(diǎn)擊鼠標(biāo)右鍵選 查看 可以選擇查看文件的方式, 而利用 ExplorerList 的 View 屬性也可以模仿出這個(gè)功能。當(dāng)點(diǎn)擊 轉(zhuǎn)到 按鈕