列表框使用类模块

Posted 2021-04-18

在visual basic 6.0中，我正在研究数组和列表框。我希望当我单击命令按钮时，所有字符串值都将显示在列表框中，因此我想使用类中的对象并在表单中调用它。我想知道如何从类模块调用listbox的字符串值到表单。

我已经尝试过字符串数组，但仅用于messagebox。我不知道如何使用listbox。我可以显示我做了什么。我使用class1创建了一个方法friendslist（）。在那里我看到我使用messagebox我想用文本替换它。然后在command1_click（）中调用那些文本作为listbox的值

Dim friends(5) As String
friends(0) = "Anna"
friends(1) = "Mona"
friends(2) = "Marie"
friends(3) = "Kent"
friends(4) = "Jona"
friends(5) = "Fatima"

For a = 0 To 5
MsgBox "Your friends are: " & friends(a)
Next
End Sub

Private Sub Command1_Click()
Dim myfriends As New Class1
Call myfriends.friendslist

End Sub

这是我的预期输出

答案

您可以将ListBox作为参数传递给friendslist（）方法。

' insert this code into Class1
Public Sub FriendsList(oList As ListBox)
    Dim a As Long
    Dim friends(5) As String
    friends(0) = "Anna"
    friends(1) = "Mona"
    friends(2) = "Marie"
    friends(3) = "Kent"
    friends(4) = "Jona"
    friends(5) = "Fatima"

    oList.Clear
    For a = LBound(friends) To UBound(friends)
        oList.AddItem friends(a)
    Next a
End Sub

' insert this code into form
Private Sub Command1_Click()
    Dim oFriends As Class1
    Set oFriends = New Class1
    oFriends.FriendsList List1    ' instead of List1, type the actual name of ListBox control
    Set oFriends = Nothing
End Sub