CreateMetaFile Windowsメタファイルの新規作成

Cの宣言：

HDC CreateMetaFile(LPCTSTR FileName);

VBの宣言：

Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" (ByVal FileName As String) As Long

説明：

返却されたデバイスコンテキストに対してGDI関数を呼び出すことにより、メタファイルを構成する図形が記録される。描画結果を元にWindowsメタファイルを作成するには、CloseMetaFileを使用する。

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

FileName

Windowsメタファイルの保存先のファイル名。NULLをして敷いた場合、作成されるWindowsメタファイルはメモリ上の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