vb6 - 配列に名前が含まれている vb6 呼び出しフォーム

Question

Menus という名前の配列があります。要素ごとにフォーム名が含まれています。

それらを動的に呼び出すにはどうすればよいですか?

たとえば、Menus(1) = "Login"、およびMenus(2) = "Logout"の場合、私は言う必要があります

Login.Show

しかし、配列名を使用してこれを行いたいです。私は明らかにこれを行うことはできません:

Menus(X).Show

これはVBで可能ですか、それともこれを回避する方法はありますか?

前もって感謝します！

Answer 1

基本的に実行しようとしているのは、フォームの名前を使用してフォームをインスタンス化してロードすることです。

これを行う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