تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحقق من وجود الاداة واتها لم تحذف
#1
السلام عليكم ورحمة الله وبركاته
اريد اتحقق ان ليبل1 مثلا مازال موجود على الفورم ام تم حذفه
الرد }}}
تم الشكر بواسطة:
#2
كود :
For Each ctrl As Control In Me.Controls
            If ctrl.ToString.Contains("Label1") Then
                MsgBox("موجود")
                MsgBox(ctrl.ToString)
            End If
        Next

[COLOR="#000080"]وضعت لك MsgBox(ctrl.ToString) حتى تفهم مقصدي من الاسم
موفق
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#3
جزاك الله خيرا
انا اقصد مثلا انا واضع تكرار فى فورم 1 وبعد الوصول الى عدد معين يام تغير نص على اداة موجودة على الفورم وفى حالة ادمير هذه الاداة او حذفها تظهر رسالة خطاء
الرد }}}
تم الشكر بواسطة:
#4
كيف يعني ممكن توضح لي اكثر
الرد }}}
تم الشكر بواسطة:
#5
إذا كنت تقصد أن الأداة موضوعة في مصفوفة مثل موضوع آخر لك فإن حذف أي أداة من المصفوفة سوف ينقص العدد للمصفوفة وتعرف لك من خلال Length للمصفوفة

وإذا أضفت للإداة في المصفوفة في مثالك السابق في مشاركة أخرى اسم مثل 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
الرد }}}
تم الشكر بواسطة:
#6
احببت ان أضيف معلومة في مسألة إضافة الآدوات برمجياً وهي امكانية تشابه الأسماء،
في حين أن ذلك لا يمكن من خلال إضافة الأدوات من خلال التصميم
إليك مثال:
كود :
Dim lbl1 As New Label
Dim lbl2 As New Label

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    lbl1.[color=#FF0000]Name[/color] = "[color=#FF0000]Label1[/color]"
    lbl1.Text = "lbl1"
    lbl1.Location = New Point(150, 30)
    lbl1.ForeColor = Color.Blue
    Me.Controls.Add(lbl1)

    lbl2.[color=#FF0000]Name[/color] = "[color=#FF0000]Label1[/color]"
    lbl2.Text = "lbl2"
    lbl2.Location = New Point(150, 50)
    lbl2.ForeColor = Color.Green
    Me.Controls.Add(lbl2)
End Sub

المشكلة تواجهها عند التحكم بأداة مضافة برمجياً بواسطة الاسم وتوجد أداة أخرى بنفس الاسم،
فسيتم تطبيق التحكم في الأداة المضافة أولاً ابتداء من المضافة من خلال التصميم أولا فان لم يجدها فالمضافة برمجياُ (جرب إضافة أداة Label1 في التصميم ثم جرب بدونها)
إليك مثال:
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Controls("[color=#FF0000]Label1[/color]").Location = New Point(150, 100)

End Sub
الرد }}}
تم الشكر بواسطة:
#7
اخوانى MSDOS
جزاكم الله خيرا وججعله فى موازين حسناتكم
استفدت اكثر مما كنت اريد
شكرا لتعاونكم معى
والله كل يوم ازداد حبل لكم ولاعضاء هذا المنتدى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 401 09-01-24, 01:41 AM
آخر رد: Taha Okla
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 509 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
  عدم تشغيل (Debug) للبرنامج عند وجود خطأ atefkhalf2004 3 547 12-11-22, 11:15 AM
آخر رد: odai
  مشكلة كريستتال ريبورت عند وجود نسختين فيجوال علي الجهاز atefkhalf2004 6 1,290 25-10-22, 11:31 PM
آخر رد: mohamedat
  [VB.NET] وجود شبكة عماد سلمان منذر 1 582 10-10-22, 04:14 PM
آخر رد: الماجيك مسعد
  [مثال] كيفيه التحقق من البريد الالكتروني حسن الجلب 7 970 05-08-22, 11:36 PM
آخر رد: سعود
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 770 22-07-22, 09:13 PM
آخر رد: حسن الجلب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم