实验十二 图形方法和图形控件0.docVIP

实验十二 图形方法和图形控件 实验目的] 掌握使用图形方法绘制典型的图形 了解图片框和图像控件的区别 掌握图片框和图像控件的使用方法 掌握直线控件和形状控件的使用方法 了解图像处理的基本方法 实验内容] 先练习书上的例题9.1-9.5 要求：能正确调试出结果，且搞懂程序中每个语句的含义和作用 图形方法的应用 程序1：在窗体上绘制-π到π的正弦曲线，如下图所示。 提示： 用PSet方法来绘制 PSet 方法将对象上的点设置为指定颜色。语法object.PSet [Step] (x, y), [color]PSet 方法的语法有如下对象限定符和部分：部分 描述 object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。 Step 可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。 (x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。 color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 程序代码： Private Sub Form_Click() Const Pi = 3.1415926 Cls Form1.ScaleTop = 1.5 Form1.ScaleLeft = -1.5 * Pi Form1.ScaleHeight = -3 Form1.ScaleWidth = 3 * Pi For x = -Pi To Pi Step 0.001 PSet (x, Sin(x)) Next x End Sub 图片框控件和图像控件的使用 程序2：在窗体上左右各放置一个大小相同的图片框和图像框，修改它们的边框式样（BordeStyle属性）,使它们的边框一栏。通过Picture属性装入一个同样的位图文件（.bmp），如下图所示，观察两个控件的变化以及其中图形的差异。 设置图片框的AutoSize属性为True，观察两个图形的差异。 设置图像控件的Stretch属性为True，再次通过Picture属性装入同样的位图文件（.bmp），观察两个图形的差异。 程序3：创建一个测试图像控件特性的应用程序：单击窗体上的“放大”、“缩小”按钮，能使图像框中的图形放大或缩小。 程序代码： Private Sub Command1_Click() Image1.Width = Image1.Width * 1.2 Image1.Height = Image1.Height * 1.2 End Sub Private Sub Command2_Click() Image1.Width = Image1.Width / 1.2 Image1.Height = Image1.Height / 1.2 End Sub Private Sub Command3_Click() End End Sub 直线控件和形状控件的使用 程序4：建立如下图所示的应用程序，通过命令按钮控制直线控件的旋转和形状控件的形状、位置等的变化，掌握直线和形状控件的特点和使用方法。 程序代码： Private Sub Command1_Click() Const Pi As Double = 3.1415926 Dim r As Double, x0 As Double, y0 As Double Dim i As Integer, j As Long Line1.Visible = True r = Sqr((Line1.X2 - Line1.X1) ^ 2 + (Line1.Y2 - Line1.Y1) ^ 2) / 2 x0 = (Line1.X2 + Line1.X1) / 2 y0 = (Line1.Y2 + Line1.Y1) / 2 For i = 1 To 360 Line1.X2 = x0 + r * Cos(i * Pi / 180) Line1.Y2 = y0 + r * Sin(i * Pi / 180) Line1.X1 = x0 - r * Cos(i * Pi / 180) Line1.Y1 = y0 - r * Sin(i * Pi / 180) DoEvents For j = 0 To 2000000 Next j Next i Line1.Vi