工具栏的使用

下面以vb6.0为例，介绍实现两个Visual Graph ActiveX Control互相访问的方法。

具体做法如下：

一、新建一个图形文件，给该页面添加CurSheet属性如下：

二、在Initialize函数中，写如下代码：

FCurSheet = 0

三、在图库列表中打开bin\controls.tbl，并把一个SpeedButton放到画面上，然后设置其Picture属性为一个20×20的图片（将该图片嵌入文件），如下图：

四、在该按钮的OnClick事件里写如下代码：

FCurSheet.Zoom = FCurSheet.Zoom * 2

五、保存该文件为c:\tools.tbl

六、在vb6.0中创建两个Visual Graph ActiveX Control Window，在窗口的OnLoad事件里写如下代码：

vgctrl1.Run "c:\tools.tbl"

set vg = vgctrl2.Design( "" )

set d = vg.ActiveSheet.AddUnit( nothing, "circle" )

d.SetBounds 10, 10, 100, 100

vgctrl1.vg.ActiveSheet.SetPropertyValue "cursheet", vg.ActiveSheet

七、运行该程序，测试vgctrl1中的按钮对vgctrl2画面执行操作。