Список с использованием модуля класса - PullRequest
Новая
       19

Список с использованием модуля класса

0 голосов
/ 14 апреля 2019

В Visual Basic 6.0 я работаю с массивом и списком.Я хочу, чтобы, когда я нажимал командную кнопку, все строковые значения отображались в списке, поэтому я хотел использовать объекты из класса и вызывать это в форме.Я хотел бы знать, как вызвать строковые значения для listbox из модуля класса в форму.

Я уже пробовал строковый массив, но только для messagebox. Я не знаю, как использовать listbox. Я могу показатьчто я сделал.Я создал метод friendslist (), используя class1.Как видно там, я использовал окно сообщения, я хочу заменить его текстом. Затем вызовите этот текст в command1_click () в качестве значения для списка 

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

Это мой ожидаемый вывод

Form1

1 Ответ

1 голос
/ 14 апреля 2019

Вы можете передать 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
...