تشخیص وجود داشتن آرایه کنترلی

[just4froum]

با سلام به همگی :

فرض کنید که ما یک کامند به صورت آرایه داریم که شماره های 0 و 1 و 2 و 3 و 4 و 5 لود شده و بنا به نیاز شماره 2 و 3 آنلود شده.

حالا چطوری باید تشخیص بدیم که شماره های 2 و 3 وجود ندارن ؟

[ASedJavad]

شما میتونی یه on error بذاری بعد سعی کنی یکی یکی به کنترل هات دسترسی پیدا کنی اگه ارور داد یعنی انلود شده

یا میتونی با for each بیای تمام کنترلای موجود رو لیست کنی، اونی که نیست معلوم میشه!

[just4froum]

ممنون ولی بیشتر می خواستم بدونم که روش خاصی وجود داره یا نه که ظاهرا وجود نداره.

[Veteran]

اون هایی رو که پاک میکنید رو در یک ارایه ذخیره کنید
یک کامند باتن بزارید روی فرم و ایندکس اون رو برابر با 0 قرار بدید
3 تا کامند باتن دیگه هم بزارید روی فرم

Dim arr()
Dim x
Dim b
Private Sub Command2_Click()
b = b + 1
c = InputBox("")
Unload Command1(c)
ReDim Preserve arr(b)
arr(b) = c
End Sub

Private Sub Command3_Click()
x = x + 1
Load Command1(x)
Command1(x).Visible = True
Command1(x).Left = Command1(x - 1).Left
Command1(x).Top = Command1(x - 1).Top + Command1(x - 1).Height
End Sub
Private Sub Command4_Click()
For n = 1 To b
Print arr(n)
Next
End Sub