【VB】VB 按文本文件中的字符串VB语句执行

VB 按文本文件中的字符串 VB 语句执行：

    这玩意儿怎么说呢，就是执行一段文本、字符串格式的VB语句、代码。类似于 PHP、Asp 中的 Execute()、Eval() 函数。把一段字符串形式的代码、语句按照编译器的形式执行，不是很难理解。

    下文中加粗部分既是要执行的 VB 语句、代码，注意双引号的写法（一个换成两个）。本函数支持多行语句执行，支持使用“:”（冒号）连接多条语句，支持多行执行（要使用 text 等控件写 VB 语句，也可以从文本文件中直接读取，加载后执行）。

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

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
    ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Command1_Click()
    Dim Result As Boolean
    Result = ExecuteLine("MsgBox ""执行成功！"", vbInformation, ""提示：""")
End Sub