<noframes id="tfbvr">
<listing id="tfbvr"></listing>

        <track id="tfbvr"></track>

          <th id="tfbvr"></th>

            <th id="tfbvr"></th>

              <form id="tfbvr"></form>

                <form id="tfbvr"><thead id="tfbvr"><menuitem id="tfbvr"></menuitem></thead></form>

                首頁 > 學院 > 網絡技術 > 正文

                用VB編寫簡單的程序來清空文檔菜單

                2018-10-16 21:39:30
                字體:
                來源:轉載
                供稿:網友
                文檔菜單內存放的是我們最近使用的文件的快捷方式,它所對應的目錄在WINDOWS 95(或WINDOWS 98)安裝目錄下的Recent目錄。當我們不在需要這些快捷方式時,我們可以清空文檔菜單。

                清空文檔菜單的方法有兩種。方法一:選擇“開始菜單→設置→任務欄和開始菜單”(或右擊任務欄選擇“屬性” ),彈出“任務欄 屬性” ,再選擇“開始菜單程序→清除” 。方法二:在資源管理器里選定C:/PWIN95/RECENT目錄(假設你的WINDOWS 95安裝在C:/PWIN95目錄下),然后把Recent目錄里的文件全部選擇并刪除它們。

                遺憾的是這兩種方法都比較麻煩,能不能有一種簡便的方法,只點一下鼠標就完成清空文檔菜單的辦法呢?按照一下的步驟試試:

                1. 在Visual Basic 5.0中新建一個工程。
                2. 在代碼窗口中鍵入以下代碼:
                Private Sub Form_Load()
                '如果文檔菜單非空
                    If Dir("c:/pwin95/recent/*.*") <> "" Then 
                        Kill ("c:/pwin95/recent/*.*")
                        MsgBox "文檔菜單已清空!", vbOKOnly, "清空"
                        Unload Form1
                    Else
                        MsgBox "文檔菜單本來為空!", vbOKOnly, "清空"
                        Unload Form1
                    End If
                End Sub
                注意:請將上面程序中的c:/pwin95換成你的Windows 95(或Windows 98)所在的目錄。
                3. 保存工程為“清空文檔.vbp”并選擇“文件→生成清空文檔.exe”
                4. 把生成的清空文檔.exe放到桌面上或開始菜單里。
                這樣你就可以用簡單的方法完成清空文檔菜單的任務了。

                如果你用的是Windows98,還可以把清空文檔.exe放到計劃任務中,以便實現自動清空文檔菜單的功能。
                發表評論 共有條評論
                用戶名: 密碼:
                驗證碼: 匿名發表
                <noframes id="tfbvr">
                <listing id="tfbvr"></listing>

                      <track id="tfbvr"></track>

                        <th id="tfbvr"></th>

                          <th id="tfbvr"></th>

                            <form id="tfbvr"></form>

                              <form id="tfbvr"><thead id="tfbvr"><menuitem id="tfbvr"></menuitem></thead></form>

                              亚洲国产综合无码一区二区BT下... 9420高清完整版在线观看免费 国产CHINESEHDXXXX... 黄 色 免 费 成 人 A片 欧美性受XXXX黑人XYX性爽