長方形の境界線を描画

VBの宣言:

Declare Function FrameRect Lib "user32" ( _
    ByVal hDC As Long, _
    ByRef r As RECT, _
    ByVal hBrush As Long) As Long

説明:

長方形の境界線を描画する。

境界線の描画は、指定されたブラシのパターンによって行われる。

引数の意味は以下の通り。
hDC 描画先のデバイスを識別するデバイスコンテキストのハンドル。
r 長方形の境界線を指定する座標。
hBrush 描画に使用するブラシのハンドル。

戻り値は、関数の実行結果を表す真偽値である。

VBのサンプル:

FillRectで赤の網掛けの塗りつぶしを行った後、その周囲をFrameRectにより白の網掛けパターンで描画する。
Private Sub Command1_Click()

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

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

End Sub

(original text:1999/09/05 更新)

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