PDA

View Full Version : مبتدی: کار با آرایه



milad.biroonvand
پنج شنبه 23 مهر 1388, 14:22 عصر
اگه یه آرایه بصورت زیر داشته باشم



Dim files As String() = New String() {textBox1.Text, textBox2.Text, TextBox5.Text, TextBox4.Text}


چطور می تونم ، مقدار در زمان اجرا به آن اضافه کنم .
ما وقتی می خوام یه ارایه تعریف کنیم ، بصورت زیر اینکار را انجام می دهیم ،
dim x() as string
redim x(10) d

که با دستور redim در زمان اجرا تعدادش رو مشخص میکنیم ، و بصورت زیر در زمان اجرا مقدار دهی می کنیم .
x(0)=textbox1.text
x(1)=textbox1.text

ولی در آریه ی بالا چططور اینکار را باید انجام داد ، یعنی با طوب متغیر باشد و در زمان اجرا در آن مقدار بگذاریم .

anooshiran
پنج شنبه 23 مهر 1388, 18:15 عصر
سلام دوست عزيز





Dim files As String() = New String() {TextBox1.Text, TextBox2.Text, TextBox3.Text}

ReDim Preserve files(UBound(files) + 1)
files(UBound(files)) = TextBox4.Text

milad.biroonvand
شنبه 25 مهر 1388, 09:08 صبح
با تشکر از انوشیران عزیز ،
کاملا درست گفتی