世界杀人犯排行榜:VB 中ScriptControl怎么用?

来源:百度文库 编辑:高校问答 时间:2024/04/26 13:19:28
我在主过程中拆除一小段放在一个 vbs 文件里, 在主过程运行时, Sc.run 来执行它

Dim Lstr As String
Open "E:\By_Soft\Soft\ScriptControl\Script.Vbs" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Txt_SC.Text = Txt_SC.Text & Lstr & vbCrLf
Loop
Close #1

SC.Language = "VBScript"
SC.AddCode Txt_SC.Text

程序是写入数据库的,我把一部分代码拆下来单独作为一个过程放在VB程序中的时候,运行正常.

但是我把这段正常的代码复制到Script.Vbs,然后用 sc.run 执行它,却出错

提示:
"实时错误3001"
"变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突"

可是这段代码我再放回来作为一个单独过程..还是正常....

郁闷了...

如表达不清,请Q22441980