vb6名稱中包含的數組調用窗體

Question

我有一個名爲Menus的數組。它包含每個元素的表單名稱。

我該如何動態調用它們？

例如，如果菜單（1）= 「登錄」，並菜單（2）= 「註銷」我需要說

Login.Show 

，但我想這樣做使用Array名稱。我顯然不能這樣做：

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