拡張メタファイルヘッダの取得の例(VB)

説明:

"c:\pic\test.emf"という拡張メタファイルのヘッダをGetEnhMetaFileHeaderによって取得し、ヘッダに含まれるレコード数の情報を表示する。

キーワード:

GetEnhMetaFile, GetEnhMetaFileHeader, DeleteEnhMetaFile

サンプルコード:

' メタファイルに含まれるレコードの数を取得
Private Sub Command7_Click()

    Dim hEmf As Long '拡張メタファイルのハンドル
    Dim mh As ENHMETAHEADER '取得結果のメタファイルヘッダ
 
    '拡張メタファイルのオープン
    hEmf = GetEnhMetaFile("c:\pic\test.emf")
    
    'ヘッダの取得
   GetEnhMetaFileHeader hEmf, Len(mh), mh
    
    'レコード数の表示
    MsgBox "レコード数: " & mh.nRecord
       
    'メタファイルのクローズ
    DeleteEnhMetaFile hEmf

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

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