VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 利用API在VB5.0中实现清除文档名
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9516, 日期:2000-10-10
利用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"