VB教程：形状（Shape）控件

14.形状控制

功能:可以在窗体中显示矩形、圆形、椭圆形等图形。您不能为此控件编写程序代码。

通用属性:

背景风格:

0-透明

1-不透明

形状:

0矩形

1方形

二维椭圆

三圈

4-圆角矩形

五圆角正方形

例如:一个运动球。

界面:

主要属性设置:定时器1的使能为假；；间隔是100。1是一个红球。

代码:

私有子命令1_Click()

If命令1。caption = " start " then
timer 1 . enabled = true
command 1 . caption = " stop "
else
timer 1 . enabled = false
command 1 . caption = " start "

末端接头

-

私有子定时器1_Timer()

形状1。左=形状1。如果形状1，则向左+ 100
。左>表格1。宽度然后形状1。左= 0

末端接头