Функция SetPixelV

Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
SetPixelV устанавливает цвет единственного (отдельного) пиксела на устройстве. Данная функция работает быстрее, чем SetPixel, так как не возвращает реально заданный цвет
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

Смотри также

GetPixel, SetPixel

Категория

Графика