VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 清除开始菜单中“我的文档”的列表文件
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9997, 日期:2001-11-13
清除开始菜单中“我的文档”的列表文件
在“任务栏 属性”的“开始菜单程序”中有一个“清除”按钮,用于清除“我的文档”所列出的最近打开的文件列表。在VB程序中如何实现这一功能呢?
首先我们来理解Windows是通过什么方式在文档中添加列表文件的。
在Windows中,当我们打开某些类型的文件时,均在开始菜单的“我的文档”中添加以该文件名命名的快捷方式。其实这是调用了shell32.dll文件所提供的函数SHAddToRecentDocs。此函数顾名思义是专门用来往开始菜单中“我的文档”添加列表文件的。VB调用它的相应格式为:

Dim NewFile As String
NewFile = "C:\TEST.TXT"
Call SHAddToRecentDocs(2,NewFile) 注释:添加项目

如果我们反其道而行之,能不能让它清除列表文件而不是添加新项目呢。请看如下代码:

注释:函数原形(窗体级申明)
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal pv As String)

注释:给工程添加一个按钮,其单击事件的代码为:
Private Sub Command1_Click()
Call SHAddToRecentDocs(2, vbNullString) 注释:清除
End Sub

——注意比较添加和清除语句的两个参数:NewFile和vbNullString, 奥妙就在这里!