OnRecalculateHyperlinks 事件

       

在为查看对站点所做的任何更改而重新计算“超链接”视图中的超链接结构之前发生。

Private Sub expression_OnRecalculateHyperlinks(ByVal pWeb As Web, Cancel As Boolean)

expression  在类模块中以事件方式声明的 Application 类型的对象。

pWeb  包含视图的 WebEx 对象。

Cancel  Boolean 类型,确定事件是否会被取消。如果为 False,则事件不被取消。如果为 True,则事件被取消。

示例

下列示例在重新计算超链接结构之前提示用户。如果用户接受,则此事件将继续,同时重新计算超链接。

Private Sub objApp_OnRecalculateHyperlinks(ByVal pWeb As Web, Cancel As Boolean)
'Occurs when the current web's hyperlinks are recalculated.

    Dim strAns As String
    strAns = MsgBox("This action will cause the hyperlinks structure to be recalculated. " _
                     & "Do you want to continue?", vbYesNo)
    'Set value of Cancel argument to users' response
    If strAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If

End Sub