Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................

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

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

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

Первый способ использует раннее связывание для получения ссылки. Тут есть несколько вариантов.

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

Visual Basic, Visual, Basic, статьи, для новичков, примеры, программы, книги, уроки, разное, VB, введение, урок, Урок, что, такое, установка, настройка, этапы, структура, среда, работы, с кодом, массивы, записи, перечисления, выражения,  операторы, структуры, процедуры, функции, вместе, отладка, компиляция, заключение
Затем добавьте появившийся значок Агента на форму.
Visual Basic, Visual, Basic, статьи, для новичков, примеры, программы, книги, уроки, разное, VB, введение, урок, Урок, что, такое, установка, настройка, этапы, структура, среда, работы, с кодом, массивы, записи, перечисления, выражения,  операторы, структуры, процедуры, функции, вместе, отладка, компиляция, заключение

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

Добавив элемент управления на форму, вы уже можете получить доступ к его свойствам. Для этого нужно ввести небольшой код в программу, где указываете путь к файлу 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.

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...