Шаг 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)


Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.