Foxtable(狐表)用户栏目专家坐堂 → [求助]创建自定义函数的问题


  共有20967人关注过本帖树形打印复制链接

主题:[求助]创建自定义函数的问题

帅哥哟,离线,有人找我吗?
roy78
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
[求助]创建自定义函数的问题  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/29 12:17:00 [只看该作者]

字符常量

字符型常量用双引号括起来,例如:

Dim s As String
s =
"NBA"

等效于:

Dim s As String = "NBA"

表示定义一个字符变量s,并将s的值设为“NBA”。

如果字符串中本身包括双引号,那么用每两个双引号表示一个双引号。
将下面的代码复制到命令窗口执行:

Dim s1 = "利马是有名的""无雨之都"""
Output.Show(s1)

你会发现s1的值为:利马是有名的"无雨之都"


 回到顶部
美女呀,离线,留言给我吧!
yangming
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/29 12:21:00 [只看该作者]

自定义函数应该放在函数定义中啊

 回到顶部
帅哥哟,离线,有人找我吗?
roy78
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/7/29 12:38:00 [只看该作者]

我就没看出来哪错了

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/29 12:43:00 [只看该作者]

是不是 "t=e.form.createcontorl("到达提示",controltypeenum.table)" >>>   ""到达提示"?

 回到顶部
帅哥哟,离线,有人找我吗?
roy78
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/7/29 13:09:00 [只看该作者]

不是这问题啊。我在命令窗口中用output.show(code) 可以显示,但没换行。。

 回到顶部
美女呀,离线,留言给我吧!
yangming
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/29 13:18:00 [只看该作者]

Code = Code & "t =e.Form.CreateControl(""到达提示"", ControlTypeEnum.Table)  " & Chr(13)

 回到顶部
帅哥哟,离线,有人找我吗?
roy78
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/7/29 13:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
用了你的代码后的报错

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/29 13:28:00 [只看该作者]

以下是引用roy78在2009-7-29 13:25:00的发言:

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
用了你的代码后的报错

你好像没有用7楼的代码,因为图中没有双双引号啊~    ""到达提示""


 回到顶部
帅哥哟,离线,有人找我吗?
roy78
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/7/29 13:44:00 [只看该作者]

加了双引号,并在functions.complie() 函数中加入了参数 true 后,新的错误提示了。。

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

 回到顶部
总数 23 1 2 3 下一页