矩形の塗りつぶし(VB)

説明:

FillRectを使用して、矩形領域を網掛けで塗りつぶす。

キーワード:

CreateHatchBrush, FillRect, DeleteObject

サンプルコード:

Private Sub Command1_Click()

    Dim hWhiteBrush As Long
    Dim r As RECT
    
    r.left = 0
    r.top = 0
    r.right = 200
    r.bottom = 100

    hWhiteBrush = CreateHatchBrush(HS_DIAGCROSS, vbWhite)
    FillRect Picture1.hDC, r, hWhiteBrush
    DeleteObject hWhiteBrush

End Sub

(original text:1999/03/04 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。