HENHMETAFILE GetEnhMetaFile(LPCTSTR MetaFileName);
Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal MetaFileName As String) As Long
引数の意味は以下の通り。
MetaFileName | オープンする拡張メタファイルのファイル名。 |
戻り値は、オープンした結果の拡張メタファイルのハンドルである。関数の実行に失敗した場合、NULLが返される。
' 拡張メタファイルの描画 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