[浏览完整版]
标题：[求助]创建自定义函数的问题
1楼
roy78 发表于：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
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.jpg2楼
狐狸爸爸 发表于：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的值为：利马是有名的"无雨之都"
3楼
yangming 发表于：2009/7/29 12:21:00自定义函数应该放在函数定义中啊
4楼
roy78 发表于：2009/7/29 12:38:00我就没看出来哪错了
5楼
mr725 发表于：2009/7/29 12:43:00是不是 "t=e.form.createcontorl("到达提示",controltypeenum.table)" >>> ""到达提示"" ?
6楼
roy78 发表于：2009/7/29 13:09:00不是这问题啊。我在命令窗口中用output.show(code) 可以显示，但没换行。。
7楼
yangming 发表于：2009/7/29 13:18:00Code = Code & "t =e.Form.CreateControl(""到达提示"", ControlTypeEnum.Table) " & Chr(13)
8楼
roy78 发表于：2009/7/29 13:25:00此主题相关图片如下：1.jpg
用了你的代码后的报错
9楼
mr725 发表于：2009/7/29 13:28:00以下是引用roy78在2009-7-29 13:25:00的发言：
此主题相关图片如下：1.jpg
用了你的代码后的报错
此主题相关图片如下：1.jpg用了你的代码后的报错
你好像没有用7楼的代码，因为图中没有双双引号啊～ ""到达提示""
10楼
roy78 发表于：2009/7/29 13:44:00加了双引号，并在functions.complie() 函数中加入了参数 true 后，新的错误提示了。。
此主题相关图片如下：3.jpg
此主题相关图片如下：3.jpg