آرايه پويا

[Alisalari]

سلام
به خدا Search كردم ، نيافتم !

ميخوام بدونم آرايه پويا رو چجوري بايد تعريف كنم ، يعني يه آرايه كه طولش به مقدار يه متغير باشه .

ممنونم

[ƒxmahdi]

ابتدا باید آرایه را بدون عنصر تعریف کنید

Dim Arrayname() As Integer
با استفاده از دستور ReDim می توانید آرایه را تغییر بعد دهید به صورت

ReDim Preserve Arrayname(8) As Integer
کلید واژه Preserve به صورت اختیاری است اگر ذکر نشود مقادیر قبلی در آرایه از بین می روند
دستور زیر پیمودن آرایه از اول تا آخر (یک بعد)

For Fx = LBound(Arrayname) To UBound(Arrayname)
موفق باشید

[.:KeihanCPU:.]

در تایید فرمایشات دوستمون

Ubound یعنی بالاترین اندیس آرایه
Lbound یعنی پایینترین اندیس آرایه.