BuildObject 方法示例

下列示例为画面TestPicture添加一个矩形。

Dim iRect As Object

Set iRect = TestPicture.BuildObject("Rect")

iRect.HorizontalPosition = 10.0

iRect.VerticalPosition = 30.0

iRect.EdgeWidth = 5

iRect.FillStyle = 1

iRect.Commit