OnBeforePageWindowViewChange 事件

       

在当前“网页”窗口视图更改之前发生。

Private Sub application__OnBeforePageWindowViewChange(ByVal pPage As PageWindow, ByVal TargetView As FpPageViewMode, Cancel As Boolean)

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

pPage  PageWindowEx 对象,其中视图已更改。

TargetView  指定的目标窗口类型。

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

说明

此事件可以取消。

示例

下列示例在当前视图更改之前提示用户。Cancel 参数会根据用户的响应修改。

Private Sub objApp_OnBeforePageWindowViewChange(ByVal pPage As PageWindow, ByVal TargetView As FpPageViewMode,
                                                _ Cancel As Boolean)
'Prompts the user before changing the view type

    Dim strAns As String
    'Prompt user to change view
    strAns = MsgBox("Are you sure you want to change the current view", _
                    vbYesNo)
    If strAns = vbYes Then
        'Don't cancel event
        Cancel = False
    Else
        'Cancel event
        Cancel = True
End Sub