VB程序设计（全套课件）【完整版】.ppt

* 10.3.2 图像框Image 使用方法与图形框相同。图像框占用更少的内存，描绘得更快。图像框内不能存放其他控件。 Stretch属性 False 图像框可自动改变大小以适应其中的图形 True 图形可根据图像框的大小自动调整尺寸 与图形框一样，在程序运行时可以使用LoadPicture（）在图像框中装入图形 例10.5 本例说明图形框与图像框内图形的加载方法，图形框的Autosize属性与图像框的Stretch属性对加载的图形的影响。 上一页 下一页 本章目录 * 10.3.3 Line控件和Shape控件 1．Line控件 用来画线 设计时Line控件重要属性是BorderWidth和BorderStyle属性。BorderWidth确定线的宽度，BorderStyle确定线的形状。 运行时最重要的属性是x1，y1和x2，y2属性，控制线的两个端点的位置。 2．形状控件Shape 用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。 Shape属性 确定所需要的几何形状 FillStyle属性 指定填充的图案 例10.6 用Shape控件的Shape属性显示Shape控件的6种形状，并填充不同的图案。 上一页 下一页 本章目录 * 10.4 图形方法 10.4.1 Line方法 用于画直线或矩形： [对象.] Line [ [Step] (x1,y1)]－[Step] (x2,y2) [,颜色][,B[F]] (x1，y1)为线段的起点坐标或矩形的左上角坐标； (x2，y2)为线段的终点坐标或矩形的右下角坐标； 关键字Step表示采用当前作图位置的相对值； 关键字B表示画矩形； 关键字F表示用画矩形的颜色来填充矩形，F必须与关键字B一起使用。 上一页 下一页 本章目录 * 10.4.2 Circle方法 用于画圆、椭圆、圆弧和扇形： [对象.]Circle [Step] (x,y),半径[,[颜色][,[起始角][,[终止角][,长短轴比率]]]] (x,y)为圆心坐标，Step表示采用当前作图位置的相对值。 圆弧和扇形通过参数起始角、终止角控制。当起始角、终止角取值在0~2p时为圆弧，当在起始角、终止角取值前加一负号时，画出扇形。 椭圆通过长短轴比率控制，默认值为1时，画出的是圆。 例：在窗体上画同心圆 上一页 下一页 本章目录 Private Sub Form_Click() Dim cx, cy, radius Form1.ScaleMode = 3 cx = Form1.ScaleWidth / 2 cy = Form1.ScaleHeight / 2 For radius = 1 To 100 Circle (cx, cy), radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next radius End Sub * 10.4.3 Pset方法 Pset方法用于画点： [对象.] Pset [Step] (x,y) [,颜色] (x,y)为所画点的坐标，Step表示采用当前位置的相对值。 上一页 下一页 本章目录 例：画正弦曲线。Y=sin(x) Private Sub Form_Click() Dim x As Single, y As Single Scale (-15, 5)-(15, -5) Form1.ForeColor = QBColor(12) Line (0, 4.5)-(0, -4.5) Line (14.5, 0)-(-14.5, 0) For x = 0 To 2 * 3.1415926 Step 0.01 y = Sin(x): Y1 = Cos(x) Form1.ForeColor = QBColor(10) PSet (x, y) Form1.ForeColor = QBColor(6) PSet (x, Y1) Next x End Sub * 10.4.4 Point方法 返回指定点的RGB颜色： [对象.] Point (x,y) (x,y)指定点的坐标。 如果( x, y)点位于对象之外，Point 方法将返回True。 例10.10用Point方法获取一个区域的信息并使用Pset方法进行仿真。 窗体与图形框的坐标系设置值相同，但窗体的实际宽度和高度比图形框大，故仿真输出时放大了原来的字符。 上一页 下一页 本章目录 * 10.5 综合应用 在用绘图方法绘图前，一般需要定义坐标系，定义坐标系通常是采用Scale方法。图形绘制可结合对象的绘图属性来达到特殊效果。凡是具有Picture属性的对象都可以装入图形 。 例10.11利用绘图方法及绘图属性，