VisualBasic程序设计及应用郑丽敏VB第10章节幻灯片.pptVIP

馋死 PPT研究院 POWERPOINT ACADEMY * * * * * * * 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 (1000, 1000)-(2000, 2000), QBColor(0) Print 1； Line -(4000, 4000), QBColor(2) Print 2 Form2.Line (100, 500)-Step(1000, 350), QBColor(4) Print 3 Form2.Line Step(200, 1000)-Step(1000, 1000), QBColor(6) Print 4 Line (500, 200)-(3000, 4000), QBColor(12) Print 5 End Sub 【运行结果】如右图所示 * 解答 * 10.5 图形方法 10.5.3 Line方法 2. 用 Line方法绘制矩形 格式为： ［对象.］Line［［Step ］( xl