プライベートデータを持つ拡張メタファイルを作成(VB)

説明：

キーワード：

サンプルコード：

Private Sub Command1_Click()

    Dim b(7) As Byte 'プライベートデータ
    Dim hDC As Long 'メタファイル用デバイスコンテキストのハンドル
    Dim hMetaFile As Long 'メタファイルのハンドル
    Dim r As RECT ' メタファイルの描画領域
   
    'シグネチャの初期化
    b(0) = &H54
    b(2) = &H45
    b(1) = &H53
    b(3) = &H54
    
    'データ本体の初期化
    b(4) = &H12
    b(5) = &H34
    b(6) = &H56
    b(7) = &H78
    
    'メタファイルの描画領域を設定
    r.Left = 0
    r.Top = 0
    r.Right = 10000
    r.Bottom = 10000
    
    'メタファイル用デバイスコンテキストを作成
    hDC = CreateEnhMetaFile(0, "c:\pic\test.emf", r, vbNullString)

    '円を描画
    SetMapMode hDC, MM_HIMETRIC
    Ellipse hDC, 0, 0, 10000, -10000
    
    'プライベートデータを追加
    GdiComment hDC, 8, b(0)
    
    'メタファイル用デバイスコンテキストのクローズ
    hMetaFile = CloseEnhMetaFile(hDC)
    
    'メタファイルのクローズ
    DeleteEnhMetaFile hMetaFile

End Sub