VB做电子报时钟(3)

模拟电子钟 带语音报时功能

(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

下面是运行结果:

2、Circle方法

Circle方法用于画圆、椭圆、圆弧和扇形，其语法格式如下：