طول آرایه؟؟؟

[سپهر-111]

سلام دوستان گل:قلب:

چطور میشه طول ارایه رو بدست اورد

Dim data_1()
data_1 = Array(&H20, &H30, &H40, &H50, &H60)

ممنون میشم اگه راهنمایی کنید

باتشکر:تشویق:

[محسن واژدی]

سلام علیکم

کد زیر را بررسی کنید:
Private Sub Command1_Click()
Dim data_1()
data_1 = Array(&H20, &H30, &H40, &H50, &H60)
MsgBox "Low bound array: " & LBound(data_1) & vbCrLf & "Upper bound array: " & UBound(data_1), vbInformation
End Sub

برای بدست آوردن اولین index آرایه از LBound و بیشتر آن از UBound استفاده میکنیم، اگر در بالای ماژول فرم دستور "Option Base 1" وجود داشته باشد LBound=1 به این معنی که اولین شاخص آرایه از 1 شروع میشود و اگر "Option Base 0" و یا وجود نداشته باشد LBound=0 یعنی اولین شاخص آرایه از صفر شروع شود

موفق باشید