これはすでに作成済みのファイルならサイズが取得出来るということでしょうか？
こちらはプログラム内で拡張メタファイルを作成し、動的に描画する処理でのサイズ調整となります。
動的にイメージを作成するためか、この処理内ではHorizontalResolutionやVerticalResolutionはエラーとなるようです。
VBになりますが、処理を集約したソースを添付致します。ソースの貼り付けに不慣れなため見苦しいですがその点はご容赦ください。
標準モジュールとフォームを1個ずつ、フォームにはPictureBoxとButtonを1個ずつ貼り付けます。
PictureBoxの名前をPicBox、Buttonの名前はBtnDrawと定義してお試しください。
’===API定義(モジュール)====================================
Imports System.Runtime.InteropServices
Module DefineModule
'----- Win32APIインポート定義 --------------------------
<DllImport("User32.dll", EntryPoint:="GetDC", SetLastError:=True, CharSet:=CharSet.Unicode, _
ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
Public Function GetDC(ByVal hWnd As IntPtr) As IntPtr
End Function
<DllImport("user32.dll", EntryPoint:="ReleaseDC")> _
Public Function ReleaseDC(ByVal hwnd As IntPtr, ByVal hdc As IntPtr) As IntPtr
End Function
<DllImport("gdi32.dll")> _
Public Function GetDeviceCaps(ByVal hdc As IntPtr, ByVal nIndex As Int32) As Int32
End Function
End Module
’===フォーム内処理====================================
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Runtime.Serialization
Imports System.Text
Imports System.Drawing.Drawing2D.CoordinateSpace
Imports System
Imports System.Runtime.InteropServices
Public Class MainForm
Private Area As SizeF = New SizeF(2000, 2000) ' 領域サイズ
Public Frame As SizeF = New SizeF(1800, 1800) ' 枠線のサイズ
Private Sub BtnDraw_Click(sender As System.Object, e As System.EventArgs) Handles BtnDraw.Click
Dim h As IntPtr = GetDC(PicBox.Handle)
Dim rf As RectangleF
Dim ptf(0) As PointF ' 座標変換用一時変数
Using mf2 As New Metafile(h, New RectangleF(New PointF(0, 0), Area), _
MetafileFrameUnit.GdiCompatible, EmfType.EmfOnly)
'Dim mfv As Integer = mf2.VerticalResolution
'Dim mfh As Integer = mf2.HorizontalResolution
' GraphicsからWorld座標を定義して実サイズを取得する
Using g As Graphics = Graphics.FromImage(mf2)
g.PageUnit = GraphicsUnit.Millimeter ' 1ミリ単位
g.PageScale = 0.01F ' MM_HIMETRIC換算×論理座標係数
ptf(0) = mf2.PhysicalDimension.ToPointF ' デバイスサイズ取得
g.TransformPoints(Device, Page, ptf) ' 論理サイズに変換
End Using
End Using
' 物理サイズから目的サイズのメタファイルを作るのに必要なRectangleFを割り出す
rf = New RectangleF(0, 0, Area.Width * ptf(0).X, Area.Height * ptf(0).Y)
Dim mf As New Metafile(h, rf, MetafileFrameUnit.GdiCompatible, EmfType.EmfOnly)
' 描画領域の作成と座標系の定義
Using g As Graphics = Graphics.FromImage(mf)
g.PageUnit = GraphicsUnit.Millimeter ' 1ミリ単位
g.PageScale = 0.01F ' 描画スケール指定
g.TranslateTransform(1000, 1000) ' 原点位置の移動
Dim PS As New RectangleF(-Area.Width / 2, -Area.Height / 2, Area.Width, Area.Height)
g.FillRectangle(Brushes.White, PS)
' 枠線と文字列の描画
Using p As New Pen(Color.Black, 50)
Dim FRecT As New Rectangle(-Frame.Width / 2, -Frame.Height / 2, Frame.Width, Frame.Height)
g.DrawRectangle(p, FRecT) ' 外枠の描画
End Using
' 文字配置、背景色を設定
Using fs As StringFormat = New StringFormat(StringFormatFlags.NoClip), _
hBrush As New SolidBrush(Color.Red), _
f As Font = New Font("ＭＳ Ｐ明朝", 300, FontStyle.Regular, GraphicsUnit.World, 128, False)
g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
fs.Alignment = StringAlignment.Center
g.ScaleTransform(1, 1)
g.DrawString("テスト出力", f, hBrush, 0, 0, fs)
g.ResetTransform()
g.ScaleTransform(1, 1)
End Using
End Using
ReleaseDC(PicBox.Handle, h)
PicBox.Image = mf
End Sub
End Class
