以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码中能否像EXCEL vba中那样 代码中调用别的代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80464)

--  作者:celchentao
--  发布时间:2016/1/23 16:31:00
--  代码中能否像EXCEL vba中那样 代码中调用别的代码
各位大侠  代码中能否像EXCEL vba中那样 代码中调用别的代码?
--  作者:celchentao
--  发布时间:2016/1/23 16:34:00
--  
例如  如果输入的值为A 则执行 A1代码(A1代码包含诸多条件逻辑判断和诸多计算)  如果输入值为B 则执行B1代码(B1代码包含诸多条件逻辑判断和诸多计算) 如果输入值为C则.................................
--  作者:Hyphen
--  发布时间:2016/1/23 16:44:00
--  
参考:http://www.foxtable.com/help/topics/1487.htm
--  作者:celchentao
--  发布时间:2016/1/23 17:12:00
--  
这个好复杂 看不大明白  有没有简单点的  设置好代码  然后直接调用这段代码的 名称这样


--  作者:Hyphen
--  发布时间:2016/1/23 17:27:00
--  
已经很简单了,下面代码放到命令窗口执行看看

Dim Code As String = "msgbox(""Hello Foxtable!"")" \'定义代码块
Functions.Remove("Hello") \' 移除同名代码
Functions.Add("Hello",Code) \'添加代码块,命名为"Hello"
Functions.Complie() \' 编译代码


\'编译后我们就可以在任意地方调用此代码块:
Functions.Execute("Hello")

--  作者:celchentao
--  发布时间:2016/1/23 17:29:00
--  
谢谢  我研究一下