تابعی که یک لیست برگرداند در vb6

[f.shahabadi]

با سلام
میشه در vb6 از طریق کد یک لیست باکس تعریف کرد مقداردهی نمود و سپس آن را از تابع برگشت داد با کد زیر:
Public Function setprint() As ListBox
Dim list As ListBox
For i = 0 To 100
If m(i) = 1 Then
list.AddItem (i)
End If
Next i
setprint = list
End Function
و سپس در برنامه آن را برابر یک لیست باس موجود در فرم قرار داد و انتظار داشت مقادیر در لیست باکس نشان داده شود مرسی

[vbhamed]

سلام

به جاي اين كار ليست باكس مورد نظر رو به عنوان پارامتر به تابع بدين تا تابع پرش كنه، نمونه :


Private Sub FillList(lst As ListBox)

lst.AddItem "1"
lst.AddItem "2"
lst.AddItem "3"
lst.AddItem "4"
lst.AddItem "5"

End Sub

Private Sub Form_Load()

FillList List1

FillList List2

End Sub