VB教程：形状（Shape）控件

2026-02-06

14、形状（Shape）控件

作用：可以在Form中显示矩形、圆、椭圆等图形。不能为此控件编写程序代码。

常用属性：

BackStyle：

0——透明的

1——不透明的

Shape：

0——长方形

1——正方形

2——椭圆

3——圆

4——圆角长方形

5——圆角正方形

例子：运动的小球

界面：

主要属性设置：Timer1的Enable为False；Interval为100。Shape1为红色小球。

代码：

Private Sub Command1_Click()

If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If

End Sub

--------------------------------------------------------------------------------

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 100
If Shape1.Left > Form1.Width Then Shape1.Left = 0

End Sub

本文来自 280文秘网(https://www.it280.com)，转载请保留网址和出处

【VB教程：形状（Shape）控件】相关文章：