怎样写全局函数？

[iduck]

我只发现加入控件的自定义函数，请您指点，在哪里加入全局的函数。
同时，我还有一个问题，在写DO Form的时候是不是只能用路径全程，可不可以用相对路径，谢谢！

[newfang]

写在主程序里面………………
function fun_name (...)
...
...
return ...

[iduck]

主程序在什么地方呢？是不是初始的表单？谢谢！

[落单枫叶]

在“命令”窗口中键入如下命令： （VFP6）
DO (HOME(2) + 'tastrade\tastrade')
看看代码里的main程序，都很清楚。
你按照它的setpath()程序做了以后，就可以直接执行而不用任何路径说明了，直接do form xxx、do menu xxx。
另外，主程序就是你设置的程序、表单、菜单为整个程序的入口处，即你右击某一程序或表单或菜单之后，有一个命令“设置主文件”，以突出黑体显示的那个文件就是。必须且只有一个主文件。

[落单枫叶]

MODIFY PROJECT (HOME(2) + 'tastrade\tastrade')
刚才命令写错了，应该是这个命令。
全局函数你可以做一个程序，然后
set proc to 程序名
就像你看到的utility.prg一样，你可以找到程序里会有一句
set proc to utility.prg
这样你无论什么时候都可以使用在里面定义的任何函数和过程。

[落单枫叶]

set proc to utility.prg
这一句是在类库TSGEN的类environment中set 过程里！！

[flyingpigs]

将你要用的自定义函数写在一个PRG文件中,如funcs.prg,函数定义格式为:
function functionname(paras)
...


endf

然后在你的主程序中加入:set procedure to funcs.prg

[flyingpigs]

用SET PATH TO 设置你的各目录,这样就可以不用全部路径了

[newfang]

主程序是调用你第一个表单的prg啊！！！！
一般都包括程序的环境设置的set...命令和调用表单的do form...命令。