HDC CreateMetaFile(LPCTSTR FileName);
Declare Function CreateMetaFile Lib "gdi32" Alias "CreateMetaFileA" (ByVal FileName As String) As Long
返却されたデバイスコンテキストに対してGDI関数を呼び出すことにより、メタファイルを構成する図形が記録される。描画結果を元にWindowsメタファイルを作成するには、CloseMetaFileを使用する。
引数の意味は以下の通り。
FileName | Windowsメタファイルの保存先のファイル名。NULLをして敷いた場合、作成されるWindowsメタファイルはメモリ上のWindowsメタファイルとなる。 |
戻り値は、作成されたWindowsメタファイル用デバイスコンテキストである。関数の実行に失敗した場合、NULLが返される。
' 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