AddToFavorites 方法

expandtri全部显示

AddToFavorites超链接地址添加到“收藏夹”文件夹。

expression.AddToFavorites

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

应用于 Application 对象时,AddToFavorites 方法将当前数据库的名称添加到“收藏夹”文件夹。例如,在“罗斯文”示例数据库中,对 Application 对象应用 AddToFavorites 方法可以将“罗斯文”数据库添加到“收藏夹”文件夹。

应用于 Control 对象时,AddToFavorites 方法将控件中的超链接地址添加到“收藏夹”文件夹。“收藏夹”文件夹默认安装在“Windows”文件夹。

AddToFavorites 方法与打开要添加地址的文档,单击 Web 工具栏上的“收藏夹”菜单中的“添加到‘收藏夹’”效果相同。

示例

以下示例设置命令按钮的 HyperlinkAddress 属性。当用户单击该按钮时,将使用 AddToFavorites 方法将地址添加到“收藏夹”文件夹。

如果要试验该示例,请新建一个窗体,并添加名为“Command0”的命令按钮。将以下代码粘贴到窗体的模块中。切换到“窗体”中,并单击命令按钮。

Private Sub Form_Load()

    Me!Command0.HyperlinkAddress = "http://www.microsoft.com/"

End Sub

Private Sub Command0_Click()

    Me!Command0.Hyperlink.AddToFavorites

End Sub