如何执行存放在变量中的命令

来源：百度知道 编辑：UC知道 时间：2024/05/06 13:01:58
我把“Command4.Enabled = True”存放在变量 CMD1中了，如何可以执行变量中的这条命令呢
dim cmd1 As String
cmd1=“Command4.Enabled = True”
怎样执行 cmd1 呢
我有大量一系列的不确定的命令需要执行，常规的方法，会导致程序的修改量很大，所以，我将这些命令存放到数据库中，根据不同的情况，执行不同的命令。

需要调用API函数EbExecuteLine才能实现的，示例如下：

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

Public 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()
ExecuteLine "Form1.Command4.Enabled=True" '注意：一定要加Form1.，否则会报要求对象错误。
End Sub

不容易，为什么要这样做呢？

还不如这样，如果你是想达到这样的目的：按CMD1，执行Command4.Enabled = True

那么代码如下：
Private Sub CMD1_Click()
Command4.Enabled = True
End Sub

但这样的话，执行的内容无法随CMD1.Caption改变