Шаг 138 - Использование Microsoft Agent.

Загрузить проект

Для общего представления прочитайте "Шаг 161 - Что такое Microsoft Agent." и "Шаг 162 - Как создают агентов.". Для использования и VB есть специальный элемент управления. Который необходимо подключить.

gif/138_1.gif (3718 b)

Помещаем на форму и создаем две кнопки.

gif/138_2.gif (3259 b)

Теперь пишем код. В момент загрузки создает объект агента и зачитываем сам файл с изображениями.

Private Sub Form_Load()
	Agent1.Characters.Load "MM", "merlin.acs"
	Set MM = Agent1.Characters("MM")
End Sub

По нажатию на кнопки показываем и выдаем подсказку.

Private Sub Command1_Click()
MM.Show
End Sub

Private Sub Command2_Click()
MM.Speak "Hello"
End Sub

При закрытие приложения удаляем объект.

Private Sub Form_Unload(Cancel As Integer)
	Set MM = Nothing
End Sub

Запускаем, смотрим результат.

gif/138_3.gif (7669 b)

Hosted by uCoz