CloseMetaFile Windowsメタファイル用デバイスコンテキストのクローズ

Cの宣言：

HMETAFILE CloseMetaFile(HDC hDC);

VBの宣言：

Declare Function CloseMetaFile Lib "gdi32" (ByVal hDC As Long) As Long

説明：

引数の意味は以下の通り。

hDC	クローズするWindowsメタファイル用デバイスコンテキスト。

戻り値は、取得結果のWindowsメタファイルのハンドルである。関数の実行に失敗した場合、NULLが返される。

VBのサンプル：

' Windowsメタファイルの作成
Private Sub Command1_Click()

    Dim hDC As Long 'メタファイル用デバイスコンテキストのハンドル
    Dim hWmf As Long 'メタファイルのハンドル

    'Windowsメタファイルを作成
    hDC = CreateMetaFile("c:\pic\test.wmf")

    '長方形を描画
    Rectangle hDC, 0, 0, 100, 100
    
    'Windowsメタファイル用デバイスコンテキストのクローズ
    hWmf = CloseMetaFile(hDC)
    
    'Windowsメタファイルのクローズ
    DeleteMetaFile hWmf

End Sub