VISUALBASIC程序设计教程-处理图形幻灯片.ppt

处理图形 Visual Basic 程序设计教程 本章主要介绍 绘图属性 绘图方法 图片框 影像框 图形一般指图绘形象，描画出物体的轮廓、形状等。 由图元组成，图元可以是点、线、圆、字符、填充区等。 每个图元有它的数据定义和外貌特征。如线段端点、粗细等。 VB提供了一些控件和方法，绘制图元，最终构成图形 容器是绘制图形或控件的场所 容器中的对象只能在容器内变动。 窗体、框架、图片框是容器 移动容器时，内部对象与容器的相对位置保持不变。 VB容器的图层从前到后为： 前层——非绘图控件所在层，如命令按钮、复选框等； 中间层——绘图控件和标签所在层； 底层——绘图方法显示结果的地方。 图层显示特性依靠：AutoRedraw和ClipControls属性的设置及绘图方法是否在Paint事件过程内。 图像一般是指绘制、摄制或印制的形象。 可将它们装载到图片框、影像框可窗体上 【例10-1】设计一个模拟单摆 ·控件： 图片框控件Picture1：作单摆容器 直线控件Line1：作绳索 形状控件Shape1：作球（设计界面中为矩形） 定时器控件Timer1：控制摆动。 ·2个模块级变量A和D，表示摆动角度和方向。 ·2个事件过程： Form_Load，初始化界面和控件属性 Timer1_Timer，控制单摆的运动。 Private Sub Timer1_Timer() Dim X As Single, Y As Single If D = -1 Then A = A + 2 Else A = A - 2 X = 170 * Sin(A * PI / 180) 确定圆心和直线下端的位置 Y = 170 * Cos(A * PI / 180) Line1.X2 = X: Line1.Y2 = Y 更改直线下端位置 Shape1.Left = X - Shape1.Width / 2 使圆心位置在直线的下端 Shape1.Top = Y - Shape1.Height / 2 If D = -1 And A = 20 Or D = 1 And A = -20 Then D = -D ±20°改方向End Sub ·Scale方法使图片框左上角和右下角坐标分别为(-150,-5)和(150,195)。 ·而170表示着绳索的长度，可以取其它值，但应使整个单摆可见。 ·坐标系是用于确定数与基本几何对象之间对应关系的参考系，是形和数结合的基础。 ·VB坐标系是确定对象和图形位置的参考系。 ·VB中每一个容器采用(x,y)的二维坐标系统 ·每个对象、图形操作，都要使用坐标系。 ·VB坐标系统使用有以下规则： 移动或调整控件大小时，使用容器的坐标系统。 绘图方法和Print方法，使用容器的坐标系统。 10.3.1 VB默认坐标系 ·VB坐标系每个点用(x,y)表示 x是水平方向沿x轴的位置，默认最左端是0 y是垂直方向沿y轴的位置，默认最上端是0 ·坐标单位又称为坐标刻度，默认缇（twips)。 还可以使用磅、像素和毫米等。 ·屏幕的左上角的坐标总是(0,0) ·其它容器在缺省状态下，左上角是(0,0)。 窗体(0,0)点指窗体标题栏下边沿的左上角。 ·使用对象的刻度属性和Scale方法，可重新设置容器的坐标系统。 10.3.2 Scale方法 ·使用Scale方法可以创建自定义刻度。 ·Scale方法的使用格式为： [容器名.]Scale [(x1,y1)-(x2,y2)] 1．容器名指窗体名或图片框控件名。 缺省指当前窗体 2．(x1, y1)和(x2, y2) 为新坐标系统左上角和右下角坐标 3．省略(x1,y1)-(x2,y2)，恢复缺省刻度。 · 例10-1中Picture1.Scale (-150, -5)-(150, 195)更改图片框坐标系如上图。 这样求运动点(x,y)的位置比较方便 设绳索长为170，则当绳索与y轴的夹角为a时，则x=170sina，y=170cosa。 10.4.1 画点—PSet方法 ·绘图方法可画点、画线、画矩形、画椭圆等。 ·格式：[对象名.]PSet (x,y) [,颜色] 1．(x,y)为所画点的坐标位置 2．颜色指点的颜色。缺省时由容器的ForeColor属性决定。 例如：PSet (1000, 1000), RGB(255, 0, 0) 在(1000,1000)处画红点，大小由容器的DrawWidth属性决定。 3．擦除一个点，可采用以背景色重画点。 4． Cls方法可擦除绘图方法及Print方法的输出内容。 【例10-2】绘制一条y=x2的抛物线。Pr