读写图形属性

读写图形属性

我们需要读和写画面上图形的属性，下面以VB为例说明使用方法：

一、在VB中新建一个工程文件，在工具栏上添加Visual Graph控件。

二、在窗口上添加Visual Graph ActiveX Control控件。

三、在Load事件里写程序：

vgctrl1.Design ""
set d = vgctrl1.vg.ActiveSheet.AddUnit( nothing, "circle" )
d.SetBounds 10, 10, 32, 32
d.BackColor = 0

上面第一句程序新建一个图形文件，第二句添加一个圆。

四、在控件的OnDblClick事件中编写下面的代码：

set d = vgctrl1.vg.ActiveSheet.Units( 0 )
d.Width = 96
d.Height = 64
d.SetPropertyValue "BackColor", 255
MsgBox d.GetPropertyValue( "BackColor" )

五、运行这个程序，双击画面上的椭圆。