ACC97: How to Animate the Office Assistant

MORE INFORMATION

The following example creates three event procedures that control the behavior of the Clippit Assistant. The first procedure selects Clippit and makes the Assistant visible when the Employees form is opened. The second procedure instructs Clippit to simulate listening to the computer when a field is updated. The third procedure closes the Assistant when the form is closed and resets some of the properties of the Assistant.

CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database.

NOTE: This example assumes you have the Clippit Assistant (Clippit.act) installed on your computer. By default the Assistants are installed in the C:\Program Files\Microsoft Office\Office\Actors\ folder.

Starting the Assistant

1. Open the sample database Northwind.mdb.
2. Open the Employees form in Design view.
3. Set the OnOpen property of the form to the following event procedure.
   
   NOTE: The following sample code requires that you have a reference to the Microsoft Office 8.0 Object Library in your database. To create the reference, open any module in Design view, click References on the Tools menu, and then click the Microsoft Office 8.0 Object Library.

         Private Sub Form_Open(Cancel As Integer)
            With Assistant
               .Filename = "Clippit.act"  ' Returns or sets the name of the
                                           ' active Office Assistant.
               .Visible = True
               .Animation = msoAnimationGreeting   ' Simulates greeting user.
               .Sounds = True
               .SearchWhenProgramming = True
               .FeatureTips = True
            End With
         End Sub
   					

4. Close the Module window.

Changing the Movement of the Assistant

1. Set the AfterUpdate property of the FirstName text box to the following event procedure:

         Private Sub FirstName_AfterUpdate()
            With Assistant
               .Animation = msoAnimationListensToComputer  ' Animates
                                                           ' Assistant.
            End With
         End Sub
   					

2. Close the Module window.

Closing the Assistant When the Form Closes

1. Set the OnClose property of the form to the following event procedure:

         Private Sub Form_Close()
            If Assistant.Visible = True Then
               With Assistant
                  .AssistWithHelp = False
                  .SearchWhenProgramming = False
                  .GuessHelp = False
                  .FeatureTips = False
                  .Visible = False
               End With
            End If
         End Sub
   					

2. Close the Module window.
3. Save the form, and then open it in Form view. Note that the Powerpup Assistant is displayed.
4. Type a new name in the First Name field and press ENTER. Note that the Powerpup Assistant responds with "listening" animation.
5. Close the form. Note that the Clippit Assistant closes.