vb6 - 数组中包含名称的vb6调用表单

Question

我有一个名为 Menus 的数组。它包含每个元素的表单名称。

如何动态调用它们？

例如，如果Menus(1) = "Login"和Menus(2) = "Logout"我需要说

Login.Show

但我想使用数组名称来做到这一点。我显然不能这样做：

Menus(X).Show

这在VB中是可能的还是有办法解决这个问题？

提前致谢！

Answer 1

您实际上要做的是使用表单的名称来实例化和加载表单。

一种方法是将带有表单名称的字符串传递给 FormCollection的Add函数：

Dim f As Form
Set f = Forms.Add(Menus(X))
f.Show

或者，使用 VB6 的CallByName函数：

Dim f As Form
Set f = CallByName(Forms, "Add", VbMethod, Menus(X))
f.Show

Answer 2

您可以使用以下代码：

Form form = Menus[x] as Form 
Form.show