用Visual Basic编程实现清空文档菜单 |
|---|
|
| 2004-05-24 刘红军 |
| |
“开始”按钮的“文档”菜单中记录着你打开过的各种文档，如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下调试通过，有兴趣的朋友不妨一试。
|
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
