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 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。