Функция CreatePatternBrush

Declare Function CreatePatternBrush Lib "gdi32" ( _
    ByVal hBitmap As Long) As Long

CreatePatternBrush создает логическую кисть с заданным узором в виде картинки. После того, как программа заканчивает использование данной кисти, следует использовать DeleteObject, чтобы удалить кисть.

Возвращаемое значение

Функция возвращает описатель кисти в успешном случае или 0 в случае ошибки (используйте GetLastError для получения кода ошибки).

Параметры

hBitmap

Описатель изображения, используемого для создания узорной кисти. Если используется монохромный растр, то в узоре используются цвета текста и фона

Пример

'  смотри также пример Использование картинки для фона Listbox

Private Sub Form_Paint()
    Dim bBytes(1 To 8) As Integer
    Dim R As RECT, mBrush As Long, hBitmap As Long
    For mBrush = 1 To 8 Step 4
        bBytes(mBrush) = 170 '170 = 10101010
        bBytes(mBrush + 1) = 85 '85 = 01010101
    Next
    ' Создадим растр в памяти
    hBitmap = CreateBitmap(8, 8, 1, 1, bBytes(1))
    ' Создадим узорную кисть
    mBrush = CreatePatternBrush(hBitmap)
    SetRect R, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    ' Заполняем форму выбранной кистью
    FillRect Me.hdc, R, mBrush
    ' Удаляем объекты
    DeleteObject mBrush
    DeleteObject hBitmap
End Sub

Смотри также

CreateHatchBrush

Категория

Кисти