لیست در آرایه

[Hossis]

چطور می شود آیتم های یک لیست را در آرایه ریخت آنهم با کوتاهترین دستورات
من از این روش استفاده می کنم ولی طولانی است باید راه میانبری وجود داشته باشد

Dim fn() AS String
Dim fnt As String = ""
For i = 0 To lsfont.Items.Count - 1
fnt += lsfont.Items(i) & "|"
Next
fn = fnt.Split("|", lsfont.Items.Count + 1, StringSplitOptions.RemoveEmptyEntries)

[Ghaisard]

سلام

اگه منظورت ListBox هست اينطوري راحت تره:


dim fn() as string

for i = 0 to listbox1.items.count - 1
fn(i) = listbox1.items.item(i)
next

[Hossis]

این خطا میاد
Object reference not set to an instance of an object.
یعنی اول باید به تعداد اعضای لیست, در آزایه عضو ایجاد شود در حالی که می خواهیم با همین دستور , این اعضا را ایجاد کنیم

[Ghaisard]

Dim c As Integer = ListBox1.Items.Count

Dim fn(c) As String

For i = 0 To c - 1

fn(i) = ListBox1.Items.Item(i)

Next