Vb6 以代码形式运行字符串

如何调用现有的VB6函数并动态传递参数或执行使用某些已定义对象的语句？例如

Private Const KONST = 123.45
Private Function First()
    Dim var1 As String
    Dim var2 As Date
    Dim var3 As Integer
    ...
    var3 = Second(var1)                 'LINE 1
    ...
    var2 = var2 + IIf(var3 > KONST, 1, -1) 'LINE 2
    ...
    var2 = var2 * KONST                 'LINE 3
    ...
End Function

Private Function Second(ByVal str As String) As Integer
    Second = CInt(str)
End Function

在第1行：函数名

Second

在使用

var1

和返回值时可能是动态的

在第2行：整个

IIf

应该使用

var3

和

KONST

在第3行：整个

var2*KONST

应该是动态的，即在这里我可以写

var2+KONST

或

var3/KONST

或

var3+222

或

1+2

或

myCollection.Item（“Item_Key”）

所有此类动态配置都将在配置文件中

编辑

---

我试图使网格布局和数据填充动态化。网格布局指的是列数、标题、顺序、格式等。总体指的是将数据加载到网格中，在这样做的过程中，有时我们使用一些枚举解析数据库值，在显示数据之前对数据应用一些逻辑，一列的值基于另一列的值等。尽管在某种程度上，这可以通过数据库视图来实现，但为了将所有这些逻辑放在一个中心位置，我们从源代码中执行这些操作。因此，我需要一些方法来动态调用我的vb6代码，并在配置文件中定义调用（函数名、参数、枚举、类型、语句）。

好的，您可以使用

CallByName

（请参阅许多容易找到的示例之一）动态调用对象上的方法和属性

---

但我认为您需要动态执行整个组合语句。为此，可以使用脚本控件（如在VBScript中）。请参阅以获取示例。特别是，它有一个

Eval

函数，可以运行任意语句。

也许您应该澄清两件事：1。你想寄什么？2.你想得到什么？你的问题似乎有点模糊。我认为你需要更具体一些。