戻る

クリッピング領域から矩形領域を取り除く方法(API関数ExcludeClipRectの使用例)
動作環境 Windows2000(Win9Xもおそらく可) 開発環境 Visual Basic 6.0 (+SP4)
説明 既存のクリッピング領域から、指定された長方形の領域を取り除きます。
用意するもの：標準フォーム(Form1),コマンドボタン(Command1, Command2)

'変数の明示的な宣言を強制します。
Option Explicit
'API関数 ExcludeClipRect の使用を宣言します。
Private Declare Function ExcludeClipRect Lib "gdi32" _
(ByVal hdc As Long, _
ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long) As Long
'第１引数：デバイスコンテキストのハンドル
'第２引数：対象とする矩形の左上のX座標
'第３引数：同Y座標
'第４引数：対象とする矩形の右下のX座標
'第５引数：同Y座標

Private Sub Command1_Click()

Dim ret As Long
'フォーム上の領域(20,20)-(60,60)をクリッピング領域から除きます。
ret = ExcludeClipRect(Me.hdc, 20, 20, 60, 60)
Command1.Enabled = False
Command2.Enabled = True

End Sub

Private Sub Command2_Click()

'フォームの背景色を変更します。
Form1.BackColor = vbRed
MsgBox "クリッピング領域から取り除かれた領域が一目瞭然！", _
vbInformation, Me.Caption

End Sub

Private Sub Form_Load()

Form1.Caption = "API関数ExcludeClipRectの使用例"
Command1.Caption = "関数実行"
Command2.Caption = "背景色変更"
Command2.Enabled = False

End Sub