GetEnhMetaFile 拡張メタファイルのオープン

Cの宣言:

HENHMETAFILE GetEnhMetaFile(LPCTSTR MetaFileName);

VBの宣言:

Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal MetaFileName As String) As Long

説明:

MetaFileNameで指定された拡張メタファイルをオープンする。

引数の意味は以下の通り。
MetaFileName オープンする拡張メタファイルのファイル名。

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

VBのサンプル:

"c:\pic\test.emf"という拡張メタファイルをピクチャボックスに描画する。
' 拡張メタファイルの描画
Private Sub Command1_Click()

    Dim hEmf As Long '拡張メタファイルのハンドル
    Dim r As RECT '描画する領域
    
    '拡張メタファイルのオープン
    hEmf = GetEnhMetaFile("c:\pic\test.emf")
    
    '描画領域の設定
    r.Left = 0
    r.Top = 0
    r.Right = 300
    r.Bottom = 300
    
    '拡張メタファイルの描画
    PlayEnhMetaFile Picture1.hDC, hEmf, r
    
    '拡張メタファイルのクローズ
    DeleteEnhMetaFile hEmf

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

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