版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

继续谈谈Graphics的几个方法：

 

平移Graphics：Graphics.TranslateTransform

旋转Graphics：Graphics.RotateTransform

缩放Graphics：Graphics.ScaleTransform

 

新建一个窗体，添加一个按钮(btnDraw)

 

 

 

代码里面添加注释讲解：

 

    Private Sub btnDraw_Click(sender As Object, e As EventArgs) Handles btnDraw.Click

        '将graphics绑定到窗口

        Dim g As Graphics = Me.CreateGraphics

        '创建一个画笔

        Dim p As New Pen(Color.Blue, 1)

        '画个十字线坐标，中间点为了看清，用了一个4*4的矩形标出

        g.DrawLine(p, New Point(0, Me.Height / 2), New Point(Me.Width, Me.Height / 2))

        g.DrawLine(p, New Point(Me.Width / 2, 0), New Point(Me.Width / 2, Me.Height))

        g.DrawRectangle(New Pen(Color.Red, 2), New Rectangle((Me.Width / 2) - 2, (Me.Height / 2) - 2, 4, 4))

        '将画布平移到窗口中间

        g.TranslateTransform(Me.Width / 2, Me.Height / 2)

        '绘制10个矩形

        For i As Integer = 1 To 10

            '以画布原点(0,0)为中心绘制100*100的矩形

            g.DrawRectangle(New Pen(Color.Red, 2), New Rectangle(-50, -50, 100, 100))

            '旋转画布

            g.RotateTransform(9)

            '将画布缩放到原来的0.9

            g.ScaleTransform(0.9, 0.9)

        Next

    End Sub

运行时如下图所示：

 

 

 

图像画出来了，但是是不是感觉画的有问题呢？

 

确实，十字线交叉处没有在窗口中间。

 

修改代码如下：

 

 

 

    Private Sub btnDraw_Click(sender As Object, e As EventArgs) Handles btnDraw.Click

        '将graphics绑定到窗口

        Dim g As Graphics = Me.CreateGraphics

        '创建一个画笔

        Dim p As New Pen(Color.Blue, 1)

        '画个十字线坐标， 中间点为了看清， 用了一个4 * 4的矩形标出

        g.DrawLine(p, New Point(0, Me.ClientRectangle.Width / 2), New Point(Me.ClientRectangle.Width, Me.ClientRectangle.Height / 2))

        g.DrawLine(p, New Point(Me.ClientRectangle.Width / 2, 0), New Point(Me.ClientRectangle.Width / 2, Me.ClientRectangle.Height))

        g.DrawRectangle(New Pen(Color.Red, 2), New Rectangle(Me.ClientRectangle.Width / 2, Me.ClientRectangle.Height / 2, 2, 2))

        '将画布平移到窗口中间

        g.TranslateTransform(Me.ClientRectangle.Width / 2, Me.ClientRectangle.Height / 2)

        '绘制10个矩形

        For i As Integer = 1 To 10

            '以画布原点(0, 0)为中心绘制100*100的矩形

            g.DrawRectangle(New Pen(Color.Red, 2), New Rectangle(-50, -50, 100, 100))

            '旋转画布

            g.RotateTransform(9)

            '将画布缩放到原来的00.9

            g.ScaleTransform(0.9, 0.9)

        Next

    End Sub

 

 

 

 

 

 

 

 

 

 

 

 

运行时如下：

 

 

 

这样是不是看着好多了。终于到了中心位置。

 

ClientRectangle是窗口工作区域矩形。

 

如果把g.ScaleTransform(0.9, 0.9)这句注释掉，似乎画出来的图像更好看

 

 

 

 

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看 vb.net 教程 目录

 

 

 

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/66477580