AdvancedSearch 方法完成后发生。AdvancedSearchComplete 事件用于返回由 AdvancedSearch 方法创建的对象。
Private Sub expression_ AdvancedSearchComplete(ByVal SearchObject As Object)
expression 该变量引用一个在类模块中以事件方式声明的 Application 类型对象。
SearchObject 由 AdvancedSearch 方法返回的 Search 对象。
只有当程序执行 AdvancedSearch 方法时才会触发该事件。
以下示例显示搜索返回的对象数。
Private Sub olApp_AdvancedSearchComplete(ByVal SearchObject As Search)
'Get Search object's results collection.
Dim myResults As Results
Set myResults = SearchObject.Results
'Display the number of objects found in the search
MsgBox "The number of objects found in the search is: " & myResults.Count
End Sub