vb程序，动态执行vb代码的问题

[demo001]

请教一个ＶＢ问题

ＶＢ中我记得可以调用一个ＡＰＩ函数

可以动态的执行一段简单的ＶＢ代码的

比如说，将ＶＢ代码写入记事本中

由主程序读取之后动态之行

但是我忘了那个ＡＰＩ函数了

请问那位达人可以指点一二。

[Heister]

好像是 vba里面的一个函数的,我去查查先

[viena]

是VBS吧？

[demo001]

都不是

就是VB本身的一个API函数

函数一个参数是一段String，

这个String可以是一段VB代码，

动态读取，交由主程序执行，

很有用的。

[Heister]

是的,我以前用过的,是一个api ,可以动态执行,但是忘了,好久没用了

[demo001]

楼上的兄弟，能不能帮忙再查查看？

等着急用

[Heister]

我在查啊, 好象是一个 什么 "*vb*.dll" 里面导出的函数,不过实在部记得了,google也没找到

[demo001]

是的，确实是，我以前也用过

可惜硬盘被人格式化了：（

资料丢了

请达人帮忙

[Heister]

你对那个函数名还有印象吗? 说以部分看,说不定msdn 能找到

[Heister]

偶就部信找部到

[Heister]

好像是 vba6.dll 里面的 ExecuteLine
楼主自己试试吧,偶要回家了

[lsftest]

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

[Featured]

楼上的试试看


vbs的话很简单。VB的没做过。
不过应该可以，
毕竟VB是解释性的语言。

[wylcy]

“毕竟VB是解释性的语言”
不是吧，老的VB才是解释性的，现在用的VB只不过支持解释性的运行，生成的EXE是全程编译的

[demo001]

非常感谢楼上两位

问题是这个函数EbExecuteLine 只能在调试模式下用

在编译过后运行会报错。

请问怎么办呢？

[Hassle]

mark

[zlt982001]

微软一直都有提供一个 ms script control (msscript.ocx)的控件，使其他软件可以调用，执行
Vbscript ，这个控件在 Vb的安装盘或Serverpack 都可以找到
可以在 代码中执行 vbscript 的字符串

[lsftest]

问题是这个函数EbExecuteLine 只能在调试模式下用

在编译过后运行会报错。

请问怎么办呢？
=============================
是的，EbExecuteLine只是借用了vbide的解释功能。。。。
如果要做成exe，恐怕就要用ScriptControl控件了。。。
在部件中添加ms script control 1.0
在窗体中添加一个ms script control，一个label，两个text，两个command。。。

程序：
Option Explicit

Private Sub Command1_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.AddCode (Text1.Text)
ScriptControl1.Run ("Test")
End Sub

Private Sub Command2_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.ExecuteStatement (Text2.Text)
End Sub

Private Sub Form_Load()
'Expose the form as frmMainWindow
ScriptControl1.AddObject "frmMainWindow", Me
Text1 = "sub Test()frmMainWindow.label1=""hello"" end sub"
Text2 = "frmMainWindow.BACKCOLOR=VBRED"
End Sub

[demo001]

谢谢楼上的诸位