笔记7：VB.net绘图中坐标轴的变换

在GDI+绘图中，如何改变坐标轴的原点及X轴和Y轴的方向呢？

VB.net提供了三个常用的变换方法：

1、改变原坐标系中的原点位置： gr.TranslateTransform(100,250)

2、改变原坐标系中的XY轴方向： gr.ScaleTransform(1,-1) '1：1变换X，Y轴

参数可针对X轴和Y轴进行放大或缩小处理。

3、旋转原坐标系的角度： gr.RotateTransform(-30)

Imports System.Drawing
Imports System.Drawing.drawing2d
Public Class Form1

    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        Dim gr As Graphics = PictureBox1.CreateGraphics
        Dim p As New Pen(Brushes.Red,2)
        Dim p1 As New Pen(Brushes.Blue,2)

        '(100,300)为原点，右为X，上为Y（红色）
        gr.TranslateTransform(100,250)
        gr.ScaleTransform(1,-1)  '1：1变换X，Y轴

        p.EndCap = LineCap.ArrowAnchor
        gr.DrawLine(p,New Point(0,0),New Point(200,0))
        gr.DrawLine(p,200))
        gr.DrawString("X轴",Me.Font,Brushes.Red,0))
        gr.DrawString("Y轴",200)) '未作处理，目的是看清坐标是怎么变换

        '在上面的基础上旋转坐标轴（蓝色）
        gr.RotateTransform(-30)

        gr.DrawLine(p1,0))
        gr.DrawLine(p1,200))
        gr.DrawString("X'轴",Brushes.Blue,0))
        gr.DrawString("Y'轴",200))

        gr.DrawArc(p1,New Rectangle(-75,-75,150,150),120,-30) '注意矩形的位置落区
        gr.DrawRectangle(p1,New Rectangle(30,30,80,100)) '在最后生效的坐标轴内画矩形

        '放大或缩小效果
        gr.ScaleTransform(6,1) 'X轴方向扩大6倍
        gr.DrawRectangle(p1,New Rectangle(10,10,50))
    End Sub
End Class

详细查看MSDN：

Graphics.TranslateTransform 方法 通过使此 Graphics 的变换矩阵左乘指定的平移来更改坐标系统的原点。 Graphics.ScaleTransform 方法 将指定的缩放操作应用于此 Graphics 的变换矩阵，方法是将该对象的变换矩阵左乘该缩放矩阵。 Graphics.RotateTransform 方法 将指定旋转应用于此 Graphics 的变换矩阵。