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

Cの宣言:

HDC CreateMetaFile(LPCTSTR FileName);

VBの宣言:

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

説明:

Windowsメタファイル用デバイスコンテキストを返却する。

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

引数の意味は以下の通り。
FileName Windowsメタファイルの保存先のファイル名。NULLをして敷いた場合、作成されるWindowsメタファイルはメモリ上のWindowsメタファイルとなる。

戻り値は、作成されたWindowsメタファイル用デバイスコンテキストである。関数の実行に失敗した場合、NULLが返される。

VBのサンプル:

長方形を描画するWindowsメタファイルを作成し、"c:\pic\test.wmf"というファイルに保存する。
' 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

(original text:2000/01/27 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。