vb程序编写语言学习.ppt

2. CurrentX、CurrentY属性 CurrentX和CurrentY属性能够设置或 返回一组坐标，这组坐标是当前要显示或 打印操作的坐标。下图的窗体中显示了10个半径 相等、圆心不同的圆。绘制这幅图形的程序如下： Private Sub Form_Click() CurrentX = 800 CurrentY = 800 For i = 1 To 10 Circle (CurrentX+100, CurrentY+100), 500 ‘没有修改CurrentX ，Y的值，但是圆心坐标在变化。 Next End Sub 3. BorderWidth、BorderStyle BorderWidth及BorderStyle属性，指明了使用 图形对象绘图的边框线宽和边框风格。 4. FillColor、FillStyle属性 FillColor及FillStyle属性确定了窗体、图片框中填充图形的外观风格和填充颜色。 5. BackColor、ForeColor、BorderColor、FillColor属性 Visual Basic中，许多控件都有与颜色有关的属性，主要有BackColor、ForeColor、BorderColor和FillColor。 BackColor属性用于设置窗体或控件的背景颜色。 ForeColor属性用于设置窗体或控件的前景颜色。 BorderColor 属性用于设置Shape 控件边框的颜色。 FillColor属性能够用指定的颜色填充Circles 方法或Line方法绘制的封闭区域。 在窗体上画一幅明月高挂、群星闪烁的画面。 要求: 在程序开始运行时，将一个月亮的图形装入到图像框中。 窗体上有一个计时器，其Interval属性值为500，因此计时器每隔0.5秒发生一次Timer事件。Timer事件过程中，在随机产生的500个（x，y）坐标处以白色“点亮”该点。因此出现500个亮点，然后以Cls方法清除屏幕。在下一次Timer事件发生时，又出现另外500个点，然后又清屏。如此反复就出现“群星闪烁”的效果。运行结果如图下所示。 习题 图12.21 图12.7 画矩形的一般格式为：  [对象.]Line[[Step](x1,y1)]-[Step](x2,y2) [,颜色],B[F] (x1,y1)与(x2,y2)是所画矩形的左上角和右下角的坐标，参数B表示要画一个矩形，参数F是指画一个实心的矩形。 除了可以用“颜色”对图形进行填充外，还可以用以前介绍过的FillStyle属性填充图案。 【例6】为矩形填充不同的图案。设计用户界面如 图12.8 在窗体上添加图片框，其大小只比窗体略小一点。 运行时，单击图片框，将执行下面的事件过程： Private Sub Picture1_Click() Picture1.BackColor = QBColor(0) For i = 0 To 7 Picture1.FillStyle = i Picture1.FillColor = QBColor(i + 2) i 1 = i + 1 Picture1.Line (300 * i1, 400 * i1)-(110 * i1, 220 * i1), QBColor(12), B Next i End Sub 程序运行的结果如图12.9所示。 图12.9 画圆的一般格式为：  [对象.]Circle [Step] (x,y),半径[,颜色]  对象指窗体、图片框等， Step后面的一对数字表示相对于当前坐标的位移量。 用Circle方法画圆、椭圆、圆弧及扇形 1 用Circle方法绘制图 【例7】在窗体上画圆， 并由用户来选择圆的颜色及填充的式样。 下面编写事件过程中， 当单击命令按钮“画圆”时，执行以下事件过程： 图12.10 Private Sub cmdCircle_Click() FillStyle = Val(sty.Text) col = Val(col.Text) x = Width y = Height For i = 1 To 10 r = (x * 0.1) * Rnd Circle (Rnd * x, Rnd * y), r, QBColor(col) Next i End Sub 单击“清除”按钮时应执行的过程如下： Private Sub cmdCls_Click() Cls sty.Text=″ ″ col