在为数据透视图视图或数据透视表视图中的某个元素显示屏幕提示之前,该事件发生。
Private Sub Form_BeforeScreenTip(TipText As String, ByVal ContextObject As Object)
TipText 屏幕提示的默认文本。将该参数改为空字符串可有效地隐藏屏幕提示;将其改为其他任意文本都会在屏幕提示中显示所更改的文本。
ContextObject 生成屏幕提示的对象。
下面的示例隐藏指定窗体中的所有数据标签的屏幕提示。
Private Sub Form_BeforeScreenTip( _
TipText As String, ByVal ContextObject As Object)
If TypeName(ContextObject) = "ChDataLabel" Then
TipText = ""
End If
End Sub