继续谈谈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),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,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,1) '画个十字线坐标, 中间点为了看清, 用了一个4 * 4的矩形标出 g.DrawLine(p,Me.ClientRectangle.Width / 2),New Point(Me.ClientRectangle.Width,Me.ClientRectangle.Height / 2)) g.DrawLine(p,New Point(Me.ClientRectangle.Width / 2,Me.ClientRectangle.Height)) g.DrawRectangle(New Pen(Color.Red,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,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 教程 目录