请教一个VB脚本问题。

zodane 2006-11-28 09:40:25
想这样一段外部代码, 能够在VB主程序中执行。
脚本使用script control 来执行
脚本代码:
Public sub Result(Aday, i)
 for i= 1 to Aday
  Man.ep=Man.ep-10
  next i
End sub

程序代码:
Public Sub Done()
With FrmMain.ScMain '读取脚本
.Language = "vbscript"
.Modules.Add "Event" outcode为保存脚本的字符变量名.
.Modules("Event").AddCode outcode (错误发生在这句,提示语句没有结束)
.AddObject "Man", TieXue, True
.AddObject "SA", SYSA, True
.AddObject "se", SYSE, True
.Modules("Event").Run "Result", GetLday, Vday, VTime
.Reset
End With
  .......
End Sub

跪求达人帮助 .急.
在网上找了许多资料,才学到这些 。。哎 。
...全文
74 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧