vb课件第十章图形操作3.ppt

第9章 图形操作 9.1 图形操作基础 9.2 绘图属性 9.3 图形方法及控件 9.4 综合应用 9.1 图形操作基础 9.1.2 坐标系统 9.1.2 坐标系统 属性ScaleLeft 、 ScaleTop控制容器对象左边和顶端的坐标，根据这两个属性可形成坐标原点。所有对象的ScaleLeft、ScaleTop属性的默认值均为0，坐标原点在对象的左上角。 属性ScaleWidth和ScaleHeight确定对象内部水平方向和垂直方向的单元数。 属性ScaleMode决定容器对象的坐标度量单位，共有8种单位形式。缺省时为Twip。每英寸1440个Twip，20个Twip为1磅。 度量单位转换可使用ScaleX和ScaleY方法： 对象.ScaleX（转换值，原坐标单位，转换坐标单位） 对象.ScaleY（转换值，原坐标单位，转换坐标单位） 改变容器对象的ScaleMode属性值，不会改变容器的大小或它在屏幕上的位置。 自行定义坐标系 9.2 绘图属性 9.2.1 当前坐标 9.2.2 线宽与线型 9.2.3 填充与色彩 9.3 图形方法及控件 9.3.1 Line方法 9.3.2 Circle方法 9.3.3 Pset方法 9.3.4 Point方法 9.4 综合应用 例9.12 通过改变图形形状演示一个陀螺在图形框内转动。 例9.13 演示地球图标的转动，在转动时同时使地球图标在窗体内移动，并变化地球图标的尺寸。 (用PictureClip控件来存放一组图片) 本章小节 Private Sub Form_Click() Const pi = 3.1415926 Dim r, x, y, x0, y0 Form1.Cls n = Val(Text1.Text) r = Form1.ScaleHeight / 4 x0 = Form1.ScaleWidth / 2 y0 = Form1.ScaleHeight / 2 st = pi / n For i = 0 To 2 * pi Step st x = r * Cos(i) + x0 y = r * Sin(i) + y0 Circle (x, y), r * 0.9 Next i End Sub 作用：Pset方法用于画点。 格式：[对象.] Pset [Step](x,y) [,颜色] 说明：(1)参数(x,y)为所画点的坐标； (2)Step表示采用当前位置的相对值； (3)采用背景色画点时可以清除点。 例9.8用Pset方法绘制方程组y1=-5x2+2x+3和y2=x+1的曲线，并求解方程。 分析：采用较小的步长，就可使离散的点连接成曲线。 求解方程实质是找曲线的交点坐标，由于作图时存在误差，故判断时不能用y1=y2，而要使用Abs(y1-y2)误差获得对应的x值。 Private Sub Form_Click() Dim x!, y1!, y2! Form1.Cls Scale (-2, 4)-(2, -2) Line (-2, 0)-(2, 0) Line (0, 4)-(0, -2) For x = -2 To 2 Step 0.0001 y1 = -5 * x * x + 2 * x + 3 y2 = x + 1 PSet (x, y1) PSet (x, y2) If Abs(y1 - y2) 0.001 Then Print Format(x, #0.#####) Next x End Sub 作用：Point方法返回指定点的RGB颜色。 格式：[对象.] Point (x,y) 说明：(x,y)指定点的坐标。如果(x,y)点位于对象之外，Point方法将返回True。 例9.9用Point方法获取一个区域的信息并使用Pset方法进行仿真。 分析：窗体与图形框的坐标系设置值相同，但窗体的实际宽度和高度比图形框大，故仿真输出时放大了原来的字符。 Private Sub Form_Click() Dim i%, j%, mcolor Form1.Cls Picture1.Cls Form1.Scale (0, 0)-(100, 100) Picture1.Scale (0, 0)-(100, 100) Picture1.Print Point 方法防真信息 Form1.DrawWidth = 4 For i = 1 To 100 For j = 1 To 100 mcolor = Picture1.Poin