Блог

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

Я уже пробовал массив строк, но только для messagebox.Я не знаю, как использовать список.Я могу показать, что я сделал. Я создал метод friendslist(), используя class1. Как видно, я использовал 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: " amp; friends(a)
Next
End Sub

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

End Sub
  

Это мой ожидаемый результат

Вы можете передать список в качестве параметра в метод 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