VB ExeCuteLine

来源:互联网 发布:淘宝紫米商学院怎么样 编辑:程序博客网 时间:2024/03/29 09:04

这段代码是我无意中在网上发现的,虽然代码很短,但其所实现的功能却是很强大的.有了这个函数的帮助可以使我们程序的灵活性大大的提升,但编码难度会有一定提高,所以请慎用.

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

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


ExecuteLine 
"VB 命令"

这个函数可以把一个字符串当做VB代码并执行.

例如

ExecuteLine "MsgBox ""Hello World"" "

原创粉丝点击