拡張メタファイルのアプリケーション名・画像名を表示(VB)

説明:

"c:\pic\test.emf"という拡張メタファイルを作成したアプリケーションの名前およびメタファイルの画像名を表示する。

キーワード:

GetEnhMetaFile, GetEnhMetaFileDescription, DeleteEnhMetaFile

サンプルコード:

' 拡張メタファイルのアプリケーション名・画像名を表示
Private Sub Command1_Click()

    Dim hEmf As Long '拡張メタファイルのハンドル
    Dim r As RECT '描画する領域
    Dim S As String * 1000
    Dim AppName As String
    Dim PicName As String
    Dim I As Long
    
    '拡張メタファイルのオープン
    hEmf = GetEnhMetaFile("c:\pic\test.emf")
    
    'コメントの取得
    GetEnhMetaFileDescription hEmf, 1000, S
    
    '作成元アプリケーション名の取得
    I = InStr(S, vbNullChar)
    AppName = Left(S, I - 1)
    
    '画像名の取得
    PicName = Mid(S, I + 1)
    PicName = Left(PicName, InStr(PicName, vbNullChar) - 1)
    
    '結果の表示
    MsgBox "AppName: " & AppName & vbCrLf _
        & "PicName: " & PicName
    
    '拡張メタファイルのクローズ
    DeleteEnhMetaFile hEmf

End Sub

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

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