出版日期：2002-01-21　总期号：453　本年期号：03

本期导读 热点聚焦 硬件世界 CCE评测 软件.net 数字生活 社会培训 教育信息化 读者俱乐部

自己的事自己处理 用VB实现清空文档菜单 刘红军 　　“开始”按钮的“文档”菜单中记录着你打开过的各种文档，如Word文档、图片文件、以及保存过的网页文件等。如果这台计算机是公用的，那么你最近操作过的文件别人会一目了然。如何清除文档菜单内容呢？ 　　这些内容其实是快捷方式，位于Windows系统目录的Recent文件夹（默认是隐藏的）下，可以直接打开资源管理器删掉。这里介绍如何通过VB编程实现，程序包括一个窗体和一个模块，在窗体中添加两个按钮和一个标签（名称：LblResult）。 　　1、模块中的代码： 　　'声明API函数 　　Public Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal PV As String) 　　'自定义函数，不成功则返回0 　　Public Function ClearDocumentsMenu() As Boolean 　　SHAddToRecentDocs 2, vbNullString 　　ClearDocumentsMenu = Err.LastDllError = 0 　　End Function 　　2、窗体中的代码: 　　Option Explicit 　　Private Sub Command1_Click() 　　Dim rc, rc1 As Long 　　'清空文档菜单 　　If ClearDocumentsMenu() = True Then 　　LblResult = "清空成功!" 　　Else 　　LblResult = "清空失败!" 　　End If 　　End Sub 　　Private Sub Command2_Click() 　　Unload Me 　　End Sub 　　说明：程序在Windows 98 SE，VB6.0下调试通过，有兴趣的朋友不妨一试。