vb.net 教程 5-10 Graphics类 2
来源:互联网 发布:北大青鸟的java课程 编辑:程序博客网 时间:2024/06/07 08:02
继续谈谈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 教程 目录
1 0
- vb.net 教程 5-10 Graphics类 2
- vb.net 教程 5-10 Graphics类 1
- vb.net 教程 5-7 Bitmap类 2
- vb.net 教程 1-10 List 2
- vb.net 教程 5-8 Screen类
- vb.net 教程 2-10 变量作用域
- vb.net 教程 8-3 数据库操作10-2
- vb.net 教程 12-2 HtmlDocument类 2
- vb.net 教程 5-7 Bitmap类 1
- vb.net 教程 12-3 HtmlElement类 5
- vb.net 教程 5-6 图片上取色 2
- vb.net 教程 3-2 窗体编程之窗体 5
- vb.net 教程 1-5 运算符 2
- vb.net 教程 4-2 目录操作 DirectoryInfo 5
- vb.net 教程 4-5 文件操作 File 2
- vb.net 教程 12-5 webbrowser 与窗体交互2
- vb.net 教程 8-2 简单的SQL语言5
- vb.net 教程 12-2 HtmlDocument类 1
- 计数排序
- 题目:利用条件运算符的嵌套来完成此题:学习成绩>=90分的同学用A表示,60-89分之间的用B表示,60分以下 的用C表示
- linux驱动程序多模块编译链接时的问题
- Python数据分析学习路径图
- 设计模式之代理模式
- vb.net 教程 5-10 Graphics类 2
- CentOS6.8下Redis安装
- PHP常用字符串处理函数
- vspm虚拟串口调试
- javascript基础入门1
- windows下安装使用Maven
- python3学习笔记:零碎知识点
- register--皇帝身边的小太监(这样的比喻确实挺生动)
- maven学习笔记3------maven规范约束