Question

vb的画矩形图问题

Pic1.Line (100, 100)-(100 + a, 100 + b), , BF
这语句中为什么不是pic.Line(100+a,100+b)-(100,100)。。。BF又是什么意思？
pic1.Fillcolor = vbBottonFace又是什么意思？

Answer 1

Pic1.Line (100, 100)-(100 + a, 100 + b), , BF
跟
Pic1.Line (100 + a, 100 + b)-(100, 100), , BF
的效果是一样的，型薯只不过是把起点和终点对换过来而已（就像数学中从A点到卜弯者B点画一条线段，跟从B点到A点画一条线段是一样的）。

BF是表示要画实心的矩形，如果是
Pic1.Line (100, 100)-(100 + a, 100 + b)
则是画一条线段。如果是
Pic1.Line (100, 100)-(100 + a, 100 + b), , B
则是画一个空心的矩形

pic1.Fillcolor = vbBottonFace是表示在Pic1中画图的时闹芦候，把标准按钮的表面颜色作为实心的封闭图形（圆、矩形、三角形等等）的填充色

Answer 2

放一个键灶timer控件,把陆伍interval设置为800

option
explicit
dim
x1,
y1,
x2,
y2
private
sub
form_load()
x1
=
me.scalewidth
/
2
y1
=
me.scaleheight
/
2
end
sub
private
sub
timer1_timer()
randomize
x2
=
int(101
*
rnd)
*
10
'这里我乘了10,如果生成0-100的数,在坐标系上稿悉扮太小了,看不清
y2
=
int(101
*
rnd)
*
10
line
(x1,
y1)-(x2,
y2),
,
b
x1
=
x2
y1
=
y2
end
sub

Answer 3

1、[这里为什么这里多了一个Not,后面的几个IF语句都没有Not的?]
not表示对 drawing取反再参与if的判断御带高。
2、[这里定义坐标为什么是用冒号:的,而不是用分号；的?]
：相当于分行，也就是本应当写两行或多行的，中间用:隔开就可以写在一行了。
3、[这里后面的两个逗号跟B是什么意思的?]
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。

(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。

Step 可选的。关键字，指定相对于线的起点的终点坐标。

(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点镇尺坐标。

color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定行塌颜色。

B 可选的。如果包括，则利用对角坐标画出矩形。

F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。