DOBON.NET プログラミング道: .NET Framework, VB.NET, C#, Visual Basic, Visual Studio, インストーラ, ...

• 単位を変更して描画する
  • PageUnitプロパティを指定する方法
  • DPIから計算する方法
  • PageScaleプロパティを指定する方法

単位を変更して描画する

メートルやインチ単位の長さを指定して描画や印刷を行う方法を紹介します。

PageUnitプロパティを指定する方法

一番簡単な方法は、描画先のGraphicsオブジェクトのPageUnitプロパティを変更してから描画するという方法でしょう。

PageUnitプロパティはページ座標で使用する長さの単位を指定するためのプロパティで、ページ変換（ページ座標からデバイス座標への変換）で使用されます。GDI+の座標系について詳しくは、MSDNの「座標系の種類」をご覧ください。

PageUnitプロパティにはGraphicsUnit列挙体を指定しますが、GraphicsUnit列挙体には、以下のようなメンバーがあります（MSDNからの引用です）。つまり、これらの単位を指定できるわけです。

PageUnitプロパティを使った例を以下に示します。ここでは、フォームのOnPaintメソッドをオーバーライドすることにより、フォームに太さ0.1インチで4X2インチの長方形を描画しています。

[VB.NET]
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)

    'Penを用意する
    Dim redPen As New Pen(Color.Red, 0.1F)

    'インチ単位にする
    e.Graphics.PageUnit = GraphicsUnit.Inch
    '太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2F, 0.4F, 4, 2)

    'Penを破棄
    redPen.Dispose()
End Sub

[C#]
protected override void OnPaint(PaintEventArgs e)
{
    base.OnPaint (e);

    //Penを用意する
    Pen redPen = new Pen(Color.Red, 0.1f);
    
    //インチ単位にする
    e.Graphics.PageUnit = GraphicsUnit.Inch;
    //太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2f, 0.4f, 4, 2);
    
    //Penを破棄
    redPen.Dispose();
}

DPIから計算する方法

もし自分で描画する画面のdpi（dots per inch）を取得して、それを元にピクセル単位の長さを計算できるのであれば、そうすることもできます。dpiはその名の通り、1インチ内のピクセル数を表し、水平方向および垂直方向のdpiは、GraphicsクラスのDpiXとDpiYプロパティで取得することができます。

このような方法により、先ほどと同じようにインチ単位で描画する例を示します。

[VB.NET]
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)

    'Penを用意する
    Dim redPen As New Pen(Color.Red, 0.1F * e.Graphics.DpiX)

    '太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen, _
        0.2F * e.Graphics.DpiX, 0.4F * e.Graphics.DpiX, _
        4 * e.Graphics.DpiX, 2 * e.Graphics.DpiX)

    'Penを破棄
    redPen.Dispose()
End Sub

[C#]
protected override void OnPaint(PaintEventArgs e)
{
    base.OnPaint (e);
    
    //Penを用意する
    Pen redPen = new Pen(Color.Red, 0.1f * e.Graphics.DpiX);

    //太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen,
        0.2f * e.Graphics.DpiX, 0.4f * e.Graphics.DpiX,
        4 * e.Graphics.DpiX, 2 * e.Graphics.DpiX);

    //Penを破棄
    redPen.Dispose();
}

このように長さをいちいち計算するのが面倒であれば、ScaleTransformメソッドにより、ワールド変換を使って解決することもできます。水平方向と垂直方向のdpiが同じであれば、PageScaleプロパティにより、ページ変換で行うこともできます。

ScaleTransformメソッドを使った例を以下に示します。

[VB.NET]
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)

    'Penを用意する
    Dim redPen As New Pen(Color.Red, 0.1F)

    'インチ単位にする
    e.Graphics.ScaleTransform(e.Graphics.DpiX, e.Graphics.DpiY)
    '太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2F, 0.4F, 4, 2)

    'Penを破棄
    redPen.Dispose()
End Sub

[C#]
protected override void OnPaint(PaintEventArgs e)
{
    base.OnPaint (e);
    
    //Penを用意する
    Pen redPen = new Pen(Color.Red, 0.1f);

    //インチ単位にする
    e.Graphics.ScaleTransform(e.Graphics.DpiX, e.Graphics.DpiY);
    //太さ0.1インチで4X2インチの長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2f, 0.4f, 4, 2);

    //Penを破棄
    redPen.Dispose();
}

もちろんPageUnitプロパティが使えるならばこのような方法を使う必要はないと思いますが、PageUnitプロパティで指定できない単位を使いたい場合はこのような方法が必要になるでしょう。

PageScaleプロパティを指定する方法

最後に蛇足ですが、寸単位で描画する例を示します。ここでは、DpiXとDpiYが同じものとし、PageScaleプロパティを使っています。

[VB.NET]
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    MyBase.OnPaint(e)

    'Penを用意する
    Dim redPen As New Pen(Color.Red, 0.1F)

    '寸単位にする（1インチを0.8382寸とする）
    e.Graphics.PageScale = e.Graphics.DpiX / 0.8382F
    '太さ0.1寸で4X2寸の長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2F, 0.4F, 4, 2)

    'Penを破棄
    redPen.Dispose()
End Sub

[C#]
protected override void OnPaint(PaintEventArgs e)
{
    base.OnPaint (e);
    
    //Penを用意する
    Pen redPen = new Pen(Color.Red, 0.1f);

    //寸単位にする（1インチを0.8382寸とする）
    e.Graphics.PageScale = e.Graphics.DpiX / 0.8382f;
    //太さ0.1寸で4X2寸の長方形を描画
    e.Graphics.DrawRectangle(redPen, 0.2f, 0.4f, 4, 2);

    //Penを破棄
    redPen.Dispose();
}

（この記事は、「.NETプログラミング研究」で紹介したものを基にしています。）