vb6调用表单，其名称包含在数组中

Question

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

如何动态调用它们？

例如，如果菜单（1）=“登录”，菜单（2）=“退出”我需要说

Login.Show

但我想使用数组名称来执行此操作。我显然不能这样做：

Menus(X).Show

这在VB中是否可行，或者有解决方法吗？

提前致谢！

Answer 1

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

一种方法是将带有表单名称的字符串传递给表单Collection的{​​{1}}函数：

Add

或者，使用VB6的CallByName功能：

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

Answer 2

您可以使用以下代码：

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