38.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 23 行

利用API在VB5.0中实现清除文档名
　　在Win95或Win98中，右击“任务栏"，选择“属性"，出现“任务栏"对话框，单击“开始菜单程序"，单击“清除"，就能清除“文档"菜单的内容（即最近打开的所有文档），利用Windows API在VB中是很容易实现的。该API函数为： 

　　Declare Sub SHAddToRecentDocs Lib “shell32.dll" (ByVal uFlags As Long, ByVal pv As String) 

　　其中uFlags如为1，pv则为一路径字符串的地址；如为2，则为项标示列表的地址。 

　　范例 

　　在通常声明中添加下面一行声明（要写成一行）： 

　　Private Declare Sub SHAddToRecentDocs Lib “shell32.dll" (ByVal uFlags As Long, ByVal pv As String) 

　　在窗体添加一命令按纽，按缺省方式添加，往Command1_Click事件中添加： 

　　Private Sub Command1—Click() 

　　Call SHAddToRecentDocs(2, vbNullString) 

　　End Sub 

　　按F5运行，你会发现“文档"菜单的内容全部清除。当然，如果程序设计需要往“文档"菜单中添加文件，只需把vbNullString改为文件的路径，如“c:\windows\a.txt"