VB实验【DOC精选】.docVIP

实验题目 图形应用程序开发 小组合作 否 姓名 班级 学 号 一、实验目的 1、了解GDI+的图像功能。 2、掌握图像坐标系的变换方法。 3、掌握GDI+中的绘图工具。 4、掌握常用几何图形的绘制方法。 5、掌握简单艺术图形的绘制方法。 6、了解GDI+的图像处理功能。 二．实验环境 一台装有Microsoft Visual Studio 2008软件的计算机 三、实验内容与步骤 DrawElipse方法在窗体绘制艺术图案。 运行界面如下： 编写代码如下： Imports System.Math Public Class Sy11_1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics Dim p As New Pen(Color.Blue) Dim a = 3.1415926 / 10 Dim i, x, y, x1, y1, r, r1 As Single x1 = Me.Width / 2 y1 = Me.Height / 2 r = 70 r1 = 40 For i = 0 To 20 x = r * Cos(i * a) + x1 y = r * Sin(i * a) + y1 x = x - r1 y = y - r1 g.DrawEllipse(p, x, y, 2 * r1, 2 * r1) Next i g.Dispose() p.Dispose() End Sub End Class 运行过程如下： 单击【产生】按钮 应用程序，练习基本绘图指令。 运行界面如下： 编写代码如下： Imports System.Drawing.Drawing2D Public Class Sy11_6 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = PictureBox1.CreateGraphics Dim p As Pen = New Pen(Color.Blue, 1) PictureBox1.Refresh() g.ResetTransform() g.DrawLine(p, 80, 50, 250, 50) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim g As Graphics = PictureBox1.CreateGraphics Dim p As Pen = New Pen(Color.Blue, 1) PictureBox1.Refresh() g.ResetTransform() Dim pts As Point() = {New Point(55, 105), New Point(100, 50), New Point(160, 50), New Point(260, 105)} g.DrawPolygon(p, pts) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim g As Graphics = PictureBox1.CreateGraphics Dim p As Pen = New Pen(Color.Blue, 1) PictureBox1.Refr