visual程序设计全钱显鸣版unit11.pdfVIP

绘图操作步骤  建立Graphics对象 （构造画布）  定义绘图工具 （画笔、画刷等）  使用绘图方法绘制图形 立Graphics对象 （构造画布） Dim 画布对象As Graphics 画布对象= 控件对象. CreateGraphics 或：Dim 画布对象As Graphics = 控件对象. CreateGraphics 例： Dim GAs Graphics 注：G定义模块级对象 G = Me.CreateGraphics 在窗体上构造画布 G = PictureBox1.CreateGraphics 在图形框上构造画布 或：Dim GAs Graphics = PictureBox1.CreateGraphics 坐标系  默认坐标原点在左上角  坐标变换方法  TranslateTransform(x,y) ：平移，原点移动x, y  RotateTransform(a)：坐标系旋转a度，a0，顺时针  ResetTransform()：还原默认坐标 二、定义绘图工具 （画笔、画刷等）  画笔Pen  Dim 画笔对象As New Pen(颜色, [线宽])  画笔的样式DashStyle Dash 虚线 DashDot 点划线 DashDotDot 双点划线 Dot 点线 Solid 内实线  例：  Dim PAs New Pen(Color.Red,2)  P.DashStyle = Drawing2D.DashStyle.Dot 二、定义绘图工具 （画笔、画刷等）  画刷  单色刷 Dim 对象变量As New SolidBrush(颜色)  纹理刷 Dim 对象变量As NewTextureBrush(New Bitmap(“ 文件名))  渐变刷 Dim 对象变量As New LinearGradientBrush(点1,点2,起点色,终点色)  网格刷 Dim对象变量As New HatchBrush(条纹类型,前景色,背景色) 注：使用渐变刷、网格刷需在窗体代码最前面导入命名空间 Imports System.Drawing.Drawing2D 三、绘图方法-直线  绘制直线DrawLine  Graphics对象.DrawLine(pen, point1, point2)  注：  pen：画笔  point1：起点坐标(x1, y1)  point2：终点坐标(x2, y2) 三、绘图方法-矩形  绘制矩形  Graphics对象.DrawRectangle( pen, x, y,宽, 高)  Graphics对象.FillRectangle( brush, x, y,宽, 高)  注：  pen：画笔  brush：画刷 (x,y)  x, y为矩形左上角坐标 三、绘图方法-椭圆  绘制椭圆  Graphics对象.DrawEllipse( pen, x, y,2*a,2*b)  Graphics对象.FillEllipse( brush, x, y,2*a,2*b)  注：  pen：画笔 (x,y)  brush：画刷  x, y,为椭圆外切矩形的左上角坐标 2*b  a为椭圆的长半轴、b为椭圆的短半轴 2*a  当a = b 时，椭圆变成圆 练  定义的Graphics对象G，将坐标系原点平移至 框PictureBox1 ，