新Visual Basic程序设计及应用 教学课件 郑丽敏 VB第10章.pptVIP

* 10.4 绘图属性 2.设置线宽 DrawWidth 属性 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。 格式为：[Object.]DrawWidth [= Size] 其中：Object 为对象表达式，可以是窗体、图片框和打印机对象。Size为数值表达式，其范围从 1 到 32767。该值以像素为单位表示线宽。缺省值为 1，即一个像素宽。 * * 10.4 绘图属性 3.设置线型DrawStyle 属性 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状 设置值及含义 * 内收实线 6 VbInsideSolid 无线 5 VbInvisible 双点划线 4 VbDashDotDot 点划线 3 VbDashDot 点线 2 VbDot 虚线 1 VbDash （缺省值）实线 0 VbSolid 描述 设置值 常数 * 10.4 绘图属性 【例10-6】 画出各种线型的直线。 * * 10.4 绘图属性 【代码编写】 Dim i as integer Private Sub Form_Click() ScaleHeight = 8 ScaleWidth = 8 For i = 0 To 6 ‘取线形状 DrawStyle = i ‘画线 Line (2, i + 1)-(ScaleWidth * 2 / 3, i + 1) Next i 【运行结果】如右图所示 * 解答 For i = 0 To 6 CurrentX = 0 CurrentY = i + 1 If i 5 Then Print DrawStyle: + Str(i) Else Print DrawStyle: + Str(i) + 不可见 End If Next i End Sub * 10.4 绘图属性 4、AutoRedraw属性 设置和返回对象或控件是否能自动重绘。若值为True，使Form对象或PictureBox控件的自动重绘有效。否则对象不接受绘制事件（Paint事件）。 重绘:当改变对象大小或隐藏在另一个对象后又重新显示的情况下，重新将以前使用Print方法输出的文本信息和绘图方法绘制的图形显示出来。 * * 10.5 图形方法 10.5.1 Cls方法 Cls方法用于清除所有图形方法和Print方法显示的文本或图形，并将光标移动到原点位置。 其语法格式为： [对象.]Cls 例如，清除窗体或图像框中的文本或图画： Form1.Cls Picture1.Cls 注意：Cls方法的使用与AutoRedraw属性的设置有关系。 * * 10.5 图形方法 10.5.2 PSet方法 PSet方法可以在对象的指定位置按确定的像素颜色画点。 其语法格式为： [对象.]PSet [Step] (x, y) [,Color] 说明：对象名指窗体或图片框。缺省时为窗体；参数 x 和 y 指定点的位置坐标，是单精度参数，可以接受整数或分数的输入。 * * 10.5 图形方法 【例10-7】 用Pset方法在Form_Paint()事件中绘制数学曲线。 * * 10.5 图形方法 【代码编写】 Private Sub Form_Paint() For i = 0 To 5000 PSet (i, 1200), vbRed 画水平线 正弦曲线线 PSet (i, 600 * Sin(0.3 * i * 3.1416 / 180) + 1200), vbGreen 余弦曲线线 PSet (i, 600 * Cos(0.3 * i * 3.1416 / 180) + 1200), vbBlue Next i End Sub 【运行结果】如右图所示 * 解答 * 10.5 图形方法 10.5.3 Line方法 1. Line方法(画线) Line方法可以在对象上的两点之间画直线或矩形 格式为： [对象.]Line [[Step](x1,y1)]-[Step] (x2,y2) [,color] [,B[F]] 说明：(x1,y1)为起点坐标，(x2,y2)为终点坐标，如果省略(x1,y1)，则起点位于由CurrentX和CurrentY指示的位置。带Step关键字表示与当前坐标的相对位置。 * * 10.5 图形方法 【例10-8】 执行Line方法后，CurrentX和CurrentY属性被设置为终点，利用此特性可用Line方法画连接线 * * 10.5 图形方法 【代码编写】 Private Sub Form_Click() Line