VB6 执行字符串命令（VB代码）

最新推荐文章于 2022-10-19 15:22:46 发布

小鸿叔

最新推荐文章于 2022-10-19 15:22:46 发布

阅读量4.9k

点赞数 1

分类专栏： VB 文章标签： vb command vba cmd function string

本文链接：https://blog.csdn.net/jyh_jack/article/details/2671104

版权

VB 专栏收录该内容

77 篇文章 8 订阅

订阅专栏

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

Function StepLine(ByVal cmd As String) As Long
    StepLine = EbExecuteLine(StrPtr(ByVal cmd), 0, 0, 0)
End Function

Private Sub Command1_Click()
    StepLine "Form1.Caption = ""测试"" "
End Sub