vb6 调用形式，名称包含在数组中

Question

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

我怎样才能动态地调用它们？

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

Login.Show

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

Menus(X).Show

这在 VB 中可能吗？或者有办法解决这个问题吗？

提前致谢！

Answer 1

您本质上想做的是使用表单的名称来实例化并加载表单。

一种方法是将包含表单名称的字符串传递给表单 Collection 的 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