1.2.2. Разработка инструментальных средств гис

Для создания приложений с элементами графики в VB 2008 используется интерфейс GDI+ (Graphic Device Interface). Интерфейс GDI+ позволяет создавать изображения и размещать на них графические объекты.

Для доступа к графическим методам GDI+ используется библиотека System.Drawing.

Управление графикой

1. Для создания графических изображений используется объект Graphics библиотеки System.Drawing. Для объявления объекта Graphics используется следующая инструкция:

Dim myBitmap As New Bitmap(500, 500)

Dim g As Graphics = Graphics.FromImage(myBitmap)

Система координат объекта Graphics:

Рис. 1.5 «Система координат объекта Graphics»

Здесь (X1, Y1) – координаты левого верхнего угла окна, (X2, Y2) – координаты правого нижнего угла.

2. Для рисования прямоугольника используется метод FillRectangle:

g.FillRectangle(Brushes.Black, X, Y, width, height)

Здесь (X, Y) – координаты левого верхнего угла прямоугольника, width – ширина, height – высота.

Здесь Brushes.Black – константа для заливки прямоугольника черным цветом. Другой цвет можно задать с помощью следующих констант:

Таблица 1.10

Константы

Константа	Описание
Brushes.Brown	коричневый
Brushes.Blue	синий
Brushes.Green	зеленый
Brushes.Red	красный
Brushes.Yellow	желтый
Brushes.White	белый

3. Для рисования эллипса используется метод FillEllipse:

g.FillEllipse(Brushes.Black, X, Y, width, height)

Здесь (X, Y) – координаты крайней левой и крайней верней точек окружности, width – ширина, height – высота.

4. Для рисования контуров графических изображений используется объект Pen библиотеки System.Drawing. Для объявления одного экземпляра объекта Pen используется следующая инструкция:

Dim myPen As New Pen(Color.Brown)

Здесь Color.Brown – константа для задания коричневого цвета пера. Другой цвет можно задать с помощью следующих констант:

Таблица 1.11

Константы

Константа	Описание
Color.Black	черный
Color.Blue	синий
Color.Green	зеленый
Color.Red	красный
Color.Yellow	желтый
Color.White	белый

5. Метод DrawLine объекта Graphics позволяет нарисовать линию

g.DrawLine(myPen, X1, Y1, X2, Y2)

Здесь (X1, Y1) – координаты начала линии, (X2, Y2) – координаты конца линии.

Рис. 1. 6 «Линия»

6. Для рисования ломаных линий используется метод DrawLines и набор точек Point. Для создания точки и задания ее координат используется следующая инструкция:

Dim myPoint As New Point(X, Y)

или

Dim myPoint As Point

myPoint = New Point(X, Y)

Здесь (X, Y) – координаты точки.

Для создания набора из N точек используется инструкция:

Dim myPoints(N-1) As Point

Вопросы для самоконтроля.

1. Раскройте понятие «ГИС»

2. Расскажите структуру и функции ГИС

3. Как разрабатываются инструментальные средства ГИС?

4. Охарактеризуйте векторные и растровые модели

5. В чем заключается атрибутное описание?

6. Особенности организации данных в ГИС