Управление движениями помощника
Программа может
управлять движениями помощника на
экране. Для оживления помощника
используется свойство Animation.
Значение этого свойства задает
один из тридцати четырех
анимационных эффектов. Например,
следующая программа выводит
думающего Скрепыша:
MyAssistant.FileName
= " \Program FilesVMicrosoft _
Office\Office\Actors\Clippit.act"
MyAssistant.Animation = msoAnimationThinking
В табл. 2
перечислены константы, которые
используются при задании движений
помощника. Кроме того, в столбце
"Непрерывное движение"
указаны движения, которые
выполняются непрерывно, а не
производятся помощником всего один
раз, после чего он замирает.
Обратите внимание на то, что
определенные анимационные эффекты
не работают для некоторых
персонажей. Например, Скрепыш не
умеет говорить, поэтому
присваивание свойству Animation
значения msoAnimationGreeting не приводит к
каким-либо действиям.
Таблица 2.
Константы для свойства Animation.
Константа
|
Непрерывное
движение
|
Пояснение
|
MsoAnimationAppear
|
Да
|
|
MsoAnimationBeginSpeaking |
Да
|
|
MsoAnimationCharacterSuccessMajor |
Да
|
|
MsoAnimationCheckingSomething |
нет
|
|
MsoAntmationDisappear |
Да
|
|
MsoAnimationEmptyTrash |
Да
|
|
MsoAnimationGestureDown |
Да
|
|
MsoAnimationGestureLeft |
Да
|
|
MsoAnimationGestureRight |
да
|
|
MsoAnimationGestureUp |
да
|
|
MsoAnimationGetArtsy |
нет
|
|
MsoAnimationGetAttentionMajor |
Да
|
|
MsoAnimationGetAttentionMinor |
Да
|
|
MsoAnimationGetTechy |
нет
|
|
MsoAnimationGetWizardy |
Да
|
|
MsoAnimationGoodbye |
Да
|
|
MsoAnimationGreeting |
Да
|
|
MsoAniniationIdle |
Да
|
|
MsoAnimationListensToComputer |
Да
|
|
MsoAnimationLookDown |
Да
|
|
MsoAnimationLookDownLeft |
Да
|
|
MsoAnimationLookDownRight |
Да
|
|
MsoAnimationLookLeft |
Да
|
|
msoAnimationLookRight |
Да
|
|
msoAnimationLookUp |
Да
|
|
MsoAnimationLookUpLeft |
Да
|
|
MsoAnimationLookUpRight |
Да
|
|
MsoAnimationPrinting |
Да
|
|
MsoAnimationSaving |
нет
|
|
MsoAnimationSearching |
нет
|
|
MsoAnimationSendingMail |
Да
|
|
MsoAnimationThinking |
нет
|
|
MsoAnimationWorkingAtSomething |
нет
|
|
MsoAnimationWritingNotingSomething |
нет
|
|
Для комментария :
kadan@grsu.grodno.by
|