拡張メタファイルの作成(VB)
説明:
円を描画する拡張メタファイルを作成し、アプリケーション名および画像名を設定して"c:\pic\test.emf"という名前で保存する。
キーワード:
CreateEnhMetaFile, CloseEnhMetaFile, DeleteEnhMetaFile
サンプルコード:
'拡張メタファイルの作成
Private Sub Command1_Click()
Dim hDC As Long '拡張メタファイル用デバイスコンテキストのハンドル
Dim hEmf As Long '拡張メタファイルのハンドル
Dim r As RECT ' 拡張メタファイルの描画領域
Dim Description As String 'アプリケーションと画像名
'拡張メタファイルの描画領域を設定
r.Left = 0
r.Top = 0
r.Right = 10000
r.Bottom = 10000
'作成元アプリケーションと画像名の設定
Description = "sample application" & vbNullChar & "test picture" & vbNullChar & vbNullChar
'拡張メタファイル用デバイスコンテキストを作成
hDC = CreateEnhMetaFile(0, "c:\pic\test.emf", r, Description)
'円を描画
SetMapMode hDC, MM_HIMETRIC
Ellipse hDC, 0, 0, 10000, -10000
'拡張メタファイル用デバイスコンテキストのクローズ
hEmf = CloseEnhMetaFile(hDC)
'拡張メタファイルのクローズ
DeleteEnhMetaFile hEmf
End Sub
(original text:2000/01/27 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。