怎么执行vb程序中的text控件中的程序命令？

我用vb编了个小程序，用drive控件、dir控件和file控件将一个txt文档打开在它们下面的一个text空间中。我希望当按下一个按钮的时候，程序自动逐行执行text文档中的命令语句，最好当执行的时候当前行变色。这个程序该怎么写？PS：如果我还想加一个暂停，怎么实现？

2026年09月24日 22:46

有5个网友回答

网友（1）：

你可以用Microsoft Script Control控件来逐行解析执行，比如：

ScriptControl1.AddCode "a=""你好"""
ScriptControl1.AddCode "msgbox a"
ScriptControl1.AddCode "x=25*46"
ScriptControl1.AddCode "msgbox ""25*46="" & x"

如果是要自动运行文本框中的代码，则这样：
Private Sub Command1_Click()
Dim s() As String, i As Long
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
ScriptControl1.AddCode s(i)
Next
End Sub

要注意的是，只有脚本（VBScript或Javascript）代码才能运行，如果是标准的VB代码是不行的哦。

网友（2）：

还小程序？你这个是程序调试工具了。
如果要执行Text命令语句，需要加Microsoft script control 1.0引用。
还是一般的TextBox控件不能实现某行变色，要麼自己写一控件，要麼用RichTextBox(好象是叫这麼名字)，这个控件我没用过，可能行。

但我想，要实现你要做的程序调试工具，可以实现单步调试功能的，用现有的这些东西不容易实现。

网友（3）：

要实现你要做的程序调试工具，可以实现单步调试功能的，用现有的这些东西不容易实现

网友（4）：

根据你的问题，代码可以得出一个结论：您的txtEle的无法控制阵列。

网友（5）：

不能实现。