PtInRegionの例(VB)

説明:

下記サンプルは、ピクチャボックス上でマウスの左ボタンを押下することにより、押下位置に点が描画される。ただし、押下位置が中心(50, 50)、半径50の円内にあるかどうかをPtInRegionによって判定し、円内にある場合のみ描画が行われる。

キーワード:

CreateEllipticRgn, PtInRegion

サンプルコード:

Option Explicit

Private hRgn As Long

Private Sub Form_Load()

    Picture1.ScaleMode = vbPixels
    hRgn = CreateEllipticRgn(0, 0, 100, 100)
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

    DeleteObject hRgn

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If (Button And vbLeftButton) > 0 Then
        If PtInRegion(hRgn, X, Y) Then
            Picture1.Line (X - 2, Y - 2)-(X + 2, Y + 2), , BF
        End If
    End If

End Sub

(original text:2000/02/13 更新)

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