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

最新推荐文章于 2022-07-11 09:37:25 发布

dzweather

最新推荐文章于 2022-07-11 09:37:25 发布

阅读量8.7k

点赞数 3

分类专栏： vb.net图形图象文章标签： vb.net GDI+ 坐标系变换

本文链接：https://blog.csdn.net/dzweather/article/details/12250403

版权

vb.net图形图象专栏收录该内容

10 篇文章 4 订阅

订阅专栏

在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, New Point(0, 0), New Point(0, 200))
        gr.DrawString("X轴", Me.Font, Brushes.Red, New Point(200, 0))
        gr.DrawString("Y轴", Me.Font, Brushes.Red, New Point(0, 200)) '未作处理，目的是看清坐标是怎么变换

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

        gr.DrawLine(p1, New Point(0, 0), New Point(200, 0))
        gr.DrawLine(p1, New Point(0, 0), New Point(0, 200))
        gr.DrawString("X'轴", Me.Font, Brushes.Blue, New Point(200, 0))
        gr.DrawString("Y'轴", Me.Font, Brushes.Blue, New Point(0, 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, 30, 50))
    End Sub
End Class

详细查看MSDN：

Graphics.TranslateTransform 方法
通过使此 Graphics 的变换矩阵左乘指定的平移来更改坐标系统的原点。

Graphics.ScaleTransform 方法
将指定的缩放操作应用于此 Graphics 的变换矩阵，方法是将该对象的变换矩阵左乘该缩放矩阵。

Graphics.RotateTransform 方法
将指定旋转应用于此 Graphics 的变换矩阵。