BuildObject方法示例
2015-12-15 22:24:55 来源: 评论:0 点击:
下列示例为
。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
下列示例为 。
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