| | | | | | | [文章信息] | | | 作者: | 潇潇 | | 时间: | 2004-05-18 | | 出处: | Yesky开发者网络 | | 责任编辑: | 方舟 | |
| [文章导读] | | | 经常在论坛上看到很多刚刚想要步入编码领域的爱好者问道:我数学学的不好，能学好编程吗? | |
| |
|
| | | |
|
|
|
|
|
(3) VB绘图方法
1、Line方法
Line方法用于画出一条直线或矩形，其语法格式如下：
格式：[对象] . Line [ [ Step ] ( x1 , y1 ) ] -( x2 ，y2 )[ ，颜色 ] [ ，B [ F ] ]
说明：
(1)对象指的是Line在何处产生结果，它可以是窗体或图形框，默认为当前窗体；
(2)( x1 ，y1 )为线段的起点坐标或矩形的左上角坐标；
(3)(x2，y2)为线段的终点坐标或矩形的右下叫坐标；
(4)关键字Step表示采用当前作图位置的相对值；
(5)关键字B表示画矩形；
(6) 关键字F表示用画矩形的的颜色来填充矩形。缺省F时，矩形的填充由FillColor和FillStyle属性决定。
举个例子:我们在窗体上随机画20条颜色不同得直线.可以这样写:
Private Sub Form _ Click( )
Dim i As Integer
Dim x As Integer
Dim y As Integer
For i = 1 To 20
x = Form1.ScaleWidth * Rnd
y = Form1.ScaleHeight * Rnd
Clr = 15 * Rnd
Line ( Form1.Width/2,Form1.Height/2)-(x,y),QBColor(Clr)
Next i
End Sub |
下面是运行结果:
|
|
|
|
|
|
|
|
