OnCommand事件

ActiveX控件除了提供AddFunction函数，允许Visual Graph调用自己程序中的函数外，Visual Graph还提供了另外一种机制，就是DoCommand和OnCommand配对回调机制。

DoCommand是脚本语言中的函数，它有两个参数，第一个参数是控件的视图类，第二个参数是任意字符串。函数执行后，第二个参数被传递给OnCommand事件的参数。

下面我们以VB为例，说明这种机制的实现方法。

一、在集成开发环境中，新建一个图形文件，并在页面上放置一个椭圆，在椭圆的OnClick事件里面写下面的脚本：

DoCommand( Owner, "Hello" )

二、把文件保存为“e:\test.tbl”

三、打开VB，新建一个工程，然后在主窗口上放一个Visual Graph ActiveX控件。

四、在窗口的OnLoad事件中，运行那个Visual Graph图形文件。

Private Sub Form_Load()
vgctrl1.Run "e:\test.tbl"
End Sub

五、在控件的OnCommand事件中写：

Private Sub vgctrl_oncommand( ByVal ACommand As String )
MsgBox AUnit.Name + " " + ACommand
end sub

六、运行这个程序，鼠标单击椭圆，即执行上面的那个事件OnCommand。