Ishodniki.Ru » Online книги » Visual Basic по шагам

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

Для использования в 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

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

Предыдущий шаг | Оглавление | Следующий шаг