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


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

主题：[求助]创建自定义函数的问题
帅哥哟，离线，有人找我吗？
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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我就没看出来哪错了

 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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


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

 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：3559 威望：0 精华：0 注册：2009/6/26 8:01:00 		  发帖心情 Post By：2009/7/29 14:02:00 [显示全部帖子]

dim code as string
code="dim t as winform.table " & chr(13)
Code = Code & "t =e.Form.CreateControl(""到达提示"",ControlTypeEnum.Table) " & Chr(13)
code=code & "t.setbounds(10,10,400,300) " & chr(13)
code=code & "e.form.addcontrol(t)) " & chr(13)
code=code & "return 提示表到窗口"
Functions.add("提示表到窗口",code)
Functions.complie(true)
 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：3559 威望：0 精华：0 注册：2009/6/26 8:01:00 		  发帖心情 Post By：2009/7/29 14:05:00 [显示全部帖子]

还是报错
 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：3559 威望：0 精华：0 注册：2009/6/26 8:01:00 		  发帖心情 Post By：2009/7/29 14:15:00 [显示全部帖子]

换个简单的吧，在窗口加载后，创建一个自定义函数（弹出信息框），如下

dim code as string
code="MessageBox.Show(""Visual Basic一点不难!"")"
code=code & "return 提示表"
Functions.add("提示表",code)
Functions.complie(true)

浏览窗口也报上述错误。。。

 回到顶部
帅哥哟，离线，有人找我吗？
roy78
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：3559 威望：0 精华：0 注册：2009/6/26 8:01:00 		  发帖心情 Post By：2009/7/29 14:52:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-7-29 14:44:00的发言：
呵呵,对于bug,我目前也处理不了啦。
上午将最重要的一个支柱给抽除了，我的程序跑不起来了，没有办法从源代码去分析了，等重新跑起来后，将会是一个轻盈的狐狸精了。



。。。啥意思？呵呵，狡猾的狐狸。我在学习呢。。快解决下吧。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询