如何在vb6中定義列表數組？

Question

我想在vb6中聲明一個Listbox數組，我需要幫助來做到這一點。 我曾嘗試這樣的代碼：

Dim list() As ListBox 

，但有以下錯誤：

object variable or with block variable not set 91 

Answer 1

如果提供兩個或多個控件一樣「（名稱）」中的窗體設計器屬性，VB會提示你創建一個控制數組，這可能是你想要的。

如果您需要手動創建數組，請記住您必須對其進行維度設置。例如，

Dim list(0 To 9) As ListBox 

或者：

Dim list() as ListBox 
... 
ReDim list(0 To 9) As ListBox 

但你也必須把列表框在數組中。當你第一次維度數組時，你只能得到數組本身。它的所有條目都被設置爲Nothing，這就是「對象變量或塊變量未設置」的含義。您必須將每個數組條目的Set輸入到有效的ListBox，然後才能使用它。

如果要在運行時將控件添加到表單，請使用Controls.Add。例如：

For i = LBound(list) To UBound(list) 
    Set list(i) = Controls.Add("VB.ListBox", "List" & i, Me) 
    list(i).Visible = True 

    list(i).AddItem "hello" 
    list(i).Move 0, list(i).Height * i 
Next