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

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

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

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

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

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


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