应用于 PageWindowEx 对象的 OnBeforeViewChange 事件。
在 PageWindowEx 对象的视图模式更改之前发生。
Private Sub expression_OnBeforeViewChange(ByVal TargetView As FpPageViewMode, Cancel As Boolean)
expression 引用 PageWindowEx 类型对象的变量名称,该对象是在类模块中以事件方式声明的。
TargetView FpPageViewMode 枚举常数,表示新视图类型。
Cancel Boolean 类型,确定操作是否会被取消。如果为 True,则视图不会更改。
应用于 WebWindowEx 对象的 OnBeforeViewChange 事件。
在 WebWindowEx 对象的视图模式更改之前发生。
Private Sub expression_OnBeforeViewChange(ByVal TargetView As FpWebViewMode, Cancel As Boolean)
expression 引用 WebWindowEx 类型对象的变量名称,该对象是在类模块中以事件方式声明的。
TargetView FpWebViewMode 枚举常数,表示新视图类型。
Cancel Boolean 类型,确定操作是否会被取消。如果为 True,则视图不会更改。
下列示例在更改视图之前提示用户。如果用户单击“是”,则视图将会更改。
Private Sub PgeWindowEx_OnBeforeViewChange(ByVal TargetView As FpPageViewMode, _
Cancel As Boolean)
'Prompts user before changing views
Dim blnAns As Boolean
strAns = MsgBox("Are you sure you want to change the current view?", _
vbYesNo)
If strAns = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub