调用Visual Graph的函数

下面以VB为例，说明如何在VB中调用执行Visual Graph中提供的函数。

一、在Visual Graph集成开发环境中新建一个图形文件，选择菜单“程序/添加函数”，出现对话盒，填写内容如下：

注意，一定不要把函数类型设置成“私有函数”，因为VB程序无法访问Visual Graph中的任何私有函数。

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

i = 0
while i < Col
j = 0
while j < Row
d = AddUnit( 0, "circle" )
d.SetBounds( 10 * i, 10 * j, 10, 10 )
j = j + 1
wend
i = i + 1
wend
return UnitCount

三、保存这个文件为“test.tbl”

四、在VB中新建一个工程，在工具栏上按右键，选择菜单“部件”，添加Visual Graph控件。

五、在画面上插入一个Visual Graph控件。

六、在Load中写下面代码：

dim col, row as Integer
vgctrl1.Design ""
col = 10
row = 5
n = vgctrl1.vg.ActiveSheet.Execute "return addcircles( " + cstr( col ) + "," + cstr( row ) + " )"
MsgBox CStr( n )

七、运行这个程序，弹出对话盒，显示50，表示画面上生成了50个圆。

八、如果不需要函数的返回值，或者函数本身没有用return语句返回一个值，则可以直接调用：

vgctrl1.vg.ActiveSheet.Execute "addcircles( " + cstr( col ) + "," + cstr( row ) + " )"