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
