sample_metafile09

Windowsメタファイルの作成(VB)

説明：

長方形を描画するWindowsメタファイルを作成し、"c:\pic\test.wmf"というファイルに保存する。

キーワード：

CreateMetaFile, CloseMetaFile, DeleteMetaFIle

サンプルコード：

' 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 更新)

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