Commit方法示例
2015-12-15 22:24:54   来源：   评论：0 点击：

下列示例创建一个 iRect，对其进行自定义，然后进行这些修改。

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