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

説明：

キーワード：

サンプルコード：

' メタファイルに含まれるレコードの数を取得
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