Windowsメタファイルの描画(VB)

説明:

Windowsメタファイル"c:\pic\test.wmf"を描画する。

キーワード:

GetMetaFile, PlayMetaFile, DeleteMetaFile

サンプルコード:

'Windowsメタファイルの描画
Private Sub Command1_Click()

    Dim hWmf As Long 'Windowsメタファイルのハンドル
    
    'Windowsメタファイルのオープン
    hWmf = GetMetaFile("c:\pic\test.wmf")

    'Windowsメタファイルの描画
    PlayMetaFile Picture1.hDC, hWmf
    
    'Windowsメタファイルのクローズ
    DeleteMetaFile hWmf

End Sub

(original text:2000/02/09 更新)

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