20-08-13, 04:19 AM
إذا كنت تقصد أن الأداة موضوعة في مصفوفة مثل موضوع آخر لك فإن حذف أي أداة من المصفوفة سوف ينقص العدد للمصفوفة وتعرف لك من خلال Length للمصفوفة
وإذا أضفت للإداة في المصفوفة في مثالك السابق في مشاركة أخرى اسم مثل lbl(i).Name= "Label" & i تستطيع التأكد من خلال اسمها بالطريقة التالية
وإذا أضفت للإداة في المصفوفة في مثالك السابق في مشاركة أخرى اسم مثل lbl(i).Name= "Label" & i تستطيع التأكد من خلال اسمها بالطريقة التالية
كود :
If Me.Controls("Label999") Is Nothing Then
MsgBox("الأداة غير موجودة")
End If
If Me.Controls("Label55") IsNot Nothing Then
MsgBox("الأداة موجودة")
End If
' أو
If Me.Controls("Label55") IsNot Nothing Then
MsgBox("الأداة موجودة")
Else
MsgBox("الأداة غير موجودة")
End If