以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  内部函数未执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153275)

--  作者:qaz17909
--  发布时间:2020/8/5 17:35:00
--  内部函数未执行
想用内部函数替代代码,做了如下测试未成功。
窗口有个“Lable1”控件,想afterload窗口后标签显示为:你好
定义内部函数(函数名为“显示”):
Dim sb As New StringBuilder
sb.AppendLine("e.Form.Controls(""Label1"").text = ""你好""")
Dim code As String = sb.ToString
Return code
然后在窗口的afterload事件中写入:Functions.Execute("显示"),为什么没起作用?


--  作者:有点蓝
--  发布时间:2020/8/5 17:42:00
--  
定义内部函数(函数名为“显示”):
Dim e  = args(0)
e.Form.Controls("Label1").text = "你好"

窗口的afterload事件中写入:
Functions.Execute("显示",e)

--  作者:qaz17909
--  发布时间:2021/4/8 13:34:00
--  
原来的项目都正常的,可以引用内部函数,但我另存新建的项目却没有效果,这是为什么?
定义”表格居中1“内部函数:
Dim e = Args(0)
执行代码
然后调用:Functions.Execute("表格居中1",e)却没有反应,旧项目里正常。


--  作者:有点蓝
--  发布时间:2021/4/8 13:47:00
--  
关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。
--  作者:qaz17909
--  发布时间:2021/4/8 13:54:00
--  
可以了,谢谢!