Описанная процедура позволяет начать работу с ArcReaderControl, используя вкладки диалогового окна Страницы свойств (Property Pages) и некоторые объекты, предоставленные объектной моделью ArcReaderControl. Выполните описанные ниже действия, чтобы создать полнофункциональное приложение Visual Basic мене чем за минуту.
- Запустите редактор Visual Basic и создайте новый проект Standard EXE с помощью диалогового окна Создать проект.
- В меню Проект последовательно выберите Компоненты, ESRI ArcReaderControl, а затем нажмите кнопку ОК.
- Щелкните значок ArcReaderControl в наборе инструментов Visual Basic, чтобы поместить ArcReaderControl в форму, после чего щелкните и перетащите элемент в другой угол формы. Вы также можете дважды щелкнуть значок ArcReaderControl в наборе инструментов Visual Basic, и элемент ArcReaderControl автоматически будет помещен в форму. Измените расположение элемента управления и размер так, чтобы было похоже на представленный ниже пример.
- Щелкните правой кнопкой ArcReaderControl и щелкните Свойства, чтобы открыть диалоговое окно Страницы свойств ArcReaderControl. Перейдите на вкладку Общие и щелкните кнопку Обзор документов
. Перейдите в папку, содержащую необходимый PMF-файл и выделите файл. (Выбранный файл .pmf должен быть опубликован с разрешением загрузки в пользовательское приложение ArcReader.) Нажмите кнопку Открыть, а затем нажмите кнопку Применить в диалоговом окне Страницы свойств, чтобы связать файл .pmf с ArcReaderControl.
- Перейдите на вкладку Просмотр и выберите пункт Идентифицировать карту в раскрывающемся списке инструмента Карта по умолчанию. Затем выберите выберите Компоновка – Увеличить в раскрывающемся списке инструмента Компоновка страниц по умолчанию и нажмите кнопку Применить.
- Нажмите ОК, чтобы закрыть диалоговое окно Страницы свойств ArcReaderControl.
- Добавьте в форму командную кнопку с именем cmdFullExtent и заголовком Полный экстент. Поместите командную кнопку так, как показано ниже.
- Щелкните дважды кнопку Полный экстент, чтобы просмотреть действие при щелчке в окне кода. Введите или скопируйте следующий код в окно действия при щелчке:
- Выберите команду Выполнить в меню Пуск или нажмите клавишу F5 для запуска приложения. Переключите видимость слоя с помощью отметки в таблице содержания. С помощью инструмента Компоновка – Увеличить просмотрите страницу. Используйте инструмент Идентифицировать карту в отображении карты для идентификации объектов в фокусной карте и перемещения вокруг них. Нажмите Полный экстент, чтобы увеличить экстент данных или страницы в зависимости от текущего представления.
Элемент управления отобразится .




'If the current view is a page layout zoom to the whole page
If ArcReaderControl1.CurrentViewType = esriARViewTypePageLayout Then
ArcReaderControl1.ARPageLayout.ZoomToWholePage
'If the current view is a map (data view) zoom to the full extent of the data
ElseIf ArcReaderControl1.CurrentViewType = esriARViewTypeMap Then
ArcReaderControl1.ARPageLayout.FocusARMap.ZoomToFullExtent
End If
