View Full Version : طول آرایه؟؟؟
سپهر-111
سه شنبه 27 تیر 1391, 21:00 عصر
سلام دوستان گل:قلب:
چطور میشه طول ارایه رو بدست اورد
Dim data_1()
data_1 = Array(&H20, &H30, &H40, &H50, &H60)
ممنون میشم اگه راهنمایی کنید
باتشکر:تشویق:
محسن واژدی
سه شنبه 27 تیر 1391, 21:13 عصر
سلام علیکم
کد زیر را بررسی کنید:
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 یعنی اولین شاخص آرایه از صفر شروع شود
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.