Функция SetPixelV

hdc

Дескриптор контекста устройства

X

Координата x пиксела

Y

Координата y пиксела

crColor

Значение RGB-цвета пиксела

Пример

' Беспорядочно окрасим все пикселы в окне Form1. Этот пример
' получает прямоугольник Form1 и выполняет итерации 
' через все точки (пикселы) внутри него
Dim winrect As RECT ' прямоугольник окна Form1
Dim rgbval As Long  ' значение RGB случайно выбранного цвета
Dim x As Long, y As Long  ' счетчик для координат x и y
Dim retval As Long  ' возвращаемое значение

' получаем прямоугольник окна Form1
retval = GetWindowRect(Form1.hWnd, winrect)

' Цикл через каждый пиксел в пределах Form1
For y = 0 To winrect.bottom - winrect.top
  For x = 0 To winrect.right - winrect.left
' берем случайный цвет, выбирая значения между 0 и 255
' включительно для каждого компонента цвета
    rgbval = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
' установим пиксел в цвет, указанный выше
    retval = SetPixelV(Form1.hDC, x, y, rgbval)
  Next x
Next y

Смотри также

Категория