Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

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

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

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

 

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

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру