在VB中怎样调用外部文件中的代码

 

问题：比如:在"D:/1/123.txt有如下代码: msgbox"123456"
怎样调用它.使程序运行后能弹出123456

答：借助Microsoft(R) Script Control控件可以轻松实现该功能

关键代码

Private Sub cmbRun_Click()
    '通过MS.ScriptControl控件运行VBS脚本
    With ScriptControl1
        .Language = "VBScript"
        .ExecuteStatement Text1.Text
    End With
End Sub

下载源代码工程文件 ScriptVBSample.zip.jpg(9KB) 右键另存为... (注:下载后请修改文件名去掉.jpg后缀)

另附相关文章

 

---

 

Microsoft(R) Script 控件使用户可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic
(R) Scripting Edition 或Microsoft(R) JScript(TM) 的应用程序。用户可以将任何 Automation 对象的对象模型添加
到 Script 控件中，这样该对象的方法和属性就可以为 scripting 引擎所使用。通过将某个应用程序的对象模型和某个
scripting 引擎加以综合，用户就可以创建一个结合了两方面优点的 scripting 应用程序。应用程序不但具有