AdvancedSearchComplete 事件

       

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