Microsoft Agent 2.0 - Доступ к объекту из программы

Существует несколько способов доступа к объекту Microsoft Agent. Рассмотрим эти способы поподробнее.

Первый способ

Для начала добавьте элемент управления Agent в проект. Для этого, в меню Project выберите Components или нажмите Ctrl+T. Также вы можете щелкнуть правой кнопкой на комплекте инструментов (Toolbox) и выбрать Components ... и выбрать Microsoft Agent Control 2.0.

Первый вариант

Добавив элемент управления на форму, вы уже можете получить доступ к его свойствам. Для этого нужно ввести небольшой код в программу, где указываете путь к файлу ACS.

Agent1.Characters.Load "Merlin", "c:\windows\msagent\chars\merlin.acs"

Agent1.Characters("Merlin").Show

Второй вариант

' Здесь мы используем переменную для ссылки

Dim merlin As IagentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "Merlin", "merlin.acs"

Set merlin = Agent1.Characters("Merlin")

merlin.Show

В принципе, можно использовать и IAgentCtlCharacter, но предпочтительнее тип с суффиксом Ex, так как IAgentCtlCharacter устарел и оставлен из соображений совместимости.

Второй способ

При втором способе используется позднее связывание с помощью функции CreateObject. В этом случае мы создаем объект в период выполнения программы.

' Объявим глобальную переменную в General Declaration

Dim myagent as Object



Private Sub Form_Load()

On Error Resume Next

' Устанавливаем ссылку на объект

Set myagent = CreateObject("Agent.Control.2")

' Проверяем, установлен ли MS Agent на компьютере

If Err.Number Then

  MsgBox "MS Agent не установлен!"

Else

' Подключаемся к объекту

  myagent.Connected = True

' Загружаем персонаж

  myagent.Characters.Load "Merlin", "c:\windows\msagent\chars\merlin.acs"



' Выводим на экран

  myagent.Characters("Merlin").Show

End If

Этот метод хорош в случае, если Вы не знаете, есть ли у пользователя MS Agent. Здесь Вы можете предусмотреть такую ситуацию и продолжить работу уже без использования Agent.