リージョン破棄 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Sub DestroyHRgn(objForm As Form)
Dim lngRet As Long
Dim lngTmpRgn As Long
    'ダミーリージョン作成
    lngTmpRgn = CreateRectRgn(0&, 0&, 0&, 0&)
    If lngTmpRgn = 0& Then
        MsgBox "ダミーリージョンの作成に失敗しました" & vbCrLf & _
                GetErrorMsg(), vbCritical Or vbOKOnly
    Else
        '引数で指定されたウィンドウのリージョンを取得
        lngRet = GetWindowRgn(objForm.hWnd, lngTmpRgn)
        If lngRet <> ERROR Then
            'リージョン破棄
            lngRet = DeleteObject(lngTmpRgn)
            If lngRet = 0& Then
                MsgBox "リージョンの破棄に失敗しました" & vbCrLf & _
                        GetErrorMsg(), vbCritical Or vbOKOnly
            Else
                '正常終了
                Exit Sub
            End If
        Else
            MsgBox objForm.Name & "のリージョン取得に失敗しました" & vbCrLf & _
                    GetErrorMsg(), vbCritical Or vbOKOnly
        End If
        '正常に破棄できなかったので戻り値を見ずにダミーリージョンを破棄
        Call DeleteObject(lngTmpRgn)
    End If
    
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX