- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]创建自定义函数的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3734)
-- 发布时间：2009/7/29 11:43:00
-- [求助]创建自定义函数的问题
我在窗口AfterLoad事件中，想创建一个函数，但报错了
dim code as string
code="dim t as winform.table" & chr(13)
code=code & "t=e.form.createcontorl("到达提示",controltypeenum.table)" & chr(13)
code=code & "t.setbounds(10,10,400,300)" & chr(13)
code=code & "e.form.addcontrol(t))"
Functions.add("到达提示表到窗口",code)
Functions.complie()
此主题相关图片如下：1.jpg
-- 发布时间：2009/7/29 12:17:00
--
字符常量
字符型常量用双引号括起来，例如：
Dim
s As Strings = "NBA"
等效于：
Dim
s As String = "NBA"表示定义一个字符变量s，并将s的值设为“NBA”。
如果字符串中本身包括双引号，那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行：
Dim
s1 = "利马是有名的""无雨之都"""Output.Show(s1)
你会发现s1的值为：利马是有名的"无雨之都"
-- 发布时间：2009/7/29 12:21:00
--
自定义函数应该放在函数定义中啊
-- 发布时间：2009/7/29 12:38:00
--
我就没看出来哪错了
-- 发布时间：2009/7/29 12:43:00
--
是不是 "t=e.form.createcontorl("到达提示",controltypeenum.table)" >>> ""到达提示"" ?
-- 发布时间：2009/7/29 13:09:00
--
不是这问题啊。我在命令窗口中用output.show(code) 可以显示，但没换行。。
-- 发布时间：2009/7/29 13:18:00
--
Code = Code & "t =e.Form.CreateControl(""到达提示"", ControlTypeEnum.Table) " & Chr(13)
-- 发布时间：2009/7/29 13:25:00
--
此主题相关图片如下：1.jpg
用了你的代码后的报错
-- 发布时间：2009/7/29 13:28:00
--
以下是引用roy78在2009-7-29 13:25:00的发言：
此主题相关图片如下：1.jpg
用了你的代码后的报错
此主题相关图片如下：1.jpg用了你的代码后的报错
你好像没有用7楼的代码，因为图中没有双双引号啊～ ""到达提示""
-- 发布时间：2009/7/29 13:44:00
--
加了双引号，并在functions.complie() 函数中加入了参数 true 后，新的错误提示了。。
此主题相关图片如下：3.jpg