拡張メタファイルのアプリケーション名・画像名を表示(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 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。