f.shahabadi
شنبه 25 دی 1389, 00:52 صبح
با سلام
میشه در 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
و سپس در برنامه آن را برابر یک لیست باس موجود در فرم قرار داد و انتظار داشت مقادیر در لیست باکس نشان داده شود مرسی
میشه در 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
و سپس در برنامه آن را برابر یک لیست باس موجود در فرم قرار داد و انتظار داشت مقادیر در لیست باکس نشان داده شود مرسی