Немного о API-функциях для рисования

API - функция для заливки замкнутого региона

Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, _

ByVal Y As Long, ByVal crColor As Long) As Long

Формат вызова. Сначала определяем стиль заливки (по умолчанию 0)

FillStyle = от 0 до 7 это стиль заливки

0-непрозрачный

1-прозрачный

2-горизонтальные полосы

3-вертикальные полосы

4-наклоненные влево

5-наклоненные вправо

6-в клетку

7-в ромб

Затем определяем цвет границы заливаемой области, например, Синий

FillColor = RGB(0, 0, 255) или vbBlue

И наконец сама заливка

FloodFill hdc, X, Y, Color

X,Y- координаты точки, из которой начинается заливка

Color- цвет заливки

Для этого региона FillStyle = 0

FillColor = vbBlue, а Color = vbRed

Для этого региона FillStyle = 5

FillColor = vbBlack, а Color = vbGreen

Если цвет указанный в FillColor не соответствует цвету границы региона, то заливка будет по всему объекту.

*************************************************************************

API - функция для отображения точки (выполняется гораздо быстрее, чем Pset)

Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, _

ByVal y As Long, ByVal crColor As Long) As Long

Формат вызова,

SetPixel Picture1.hDC, X, Y, Color

Рисует точку на PictureBox с координатами X,Y цветом Color