الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أحذف عنصر من الForm

مغلق
بدأه eias في 16 سبتمبر 2005 · 4 رد · 442 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم...أريد الطريقة التي أحذف بها عنصر (مثلاLabel) قمت بإنشائه وقت تنفيذ البرنامج بالكود..كالتالي:

  Dim l As New Label

        With l
            .Height = 50
            .Width = 50
            .BackColor = Color.Blue
            .Text = "Eias"
            .Location = New Point(100, 100)

        End With

        Me.Controls.Add(l)

بحيث أستطيع مسحة لأرسم العنصر نفسه مرة أخرى في مكان آخر ..يعني مثل مبدأ الوجه الخلفي في الDirect x حيث يقوم

بالمسح بشكل مستمر..وشكرا لكم.

#2

السلام عليكم

يكون الحذف كالتالي

 Me.Controls.Remove(label1)

أو عن طريق الفهرس بهذا الشكل

  Me.Controls.RemoveAt(2)

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#3

أخي الكريم الغملاسي الحقيقة كودك صحيح 100% و لكنه لم يحذف الLabelالمنشأ بل بدأ يحذف الLabel الموجود أصلا بالصفحة واحد تلو الآخر ..و لما استبدلت Label ب l وهو اسم الأداة لم يقبل على الرغم من أني عرفتها Public ..

على كل حال لقد لاحظت بأنه إذاأعدت الأمر نفسه ستحذف الLabel المنشأ تلقائيا يعني المشكلة حلت الحمد لله ..بس ليش صار معي هيك برأيك..

#4

السلام عليكم

عزيزي : الاسم label1 هو تنويه على أن اسم العنصر يفترض أن يكون بدله

كذلك سواءً كان public أو dim أو غير ذلك , فهذا لا علاقة له بالموضوع

السبب أن أيما كان التعريف فهذا ابن النموذج وهو إحدى عناصره controls

،،، قد يكون عدم تمكنك من حذف العنوان label هو أنك قمت بإستنساخ منه في حدث النموذج وليس خارجه

لذلك أنت حصرت تعريفه في ذلك الحدث فقط وهذا ما منع المترجم من معرفة العنصر l

يعني بمعنى أخر بدل أن يكون تعريفك بهذا الشكل

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lblInfo As New Label

        With lblInfo
            .Height = 50
            .Width = 50
            .BackColor = Color.Blue
            .Text = "Eias"
            .Location = New Point(100, 100)
        End With

        Me.Controls.Add(lblInfo)

    End Sub

ليكون بهذا الشكل أحكم بكثير .

  Dim lblInfo As New Label

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With lblInfo
            .Height = 50
            .Width = 50
            .BackColor = Color.Blue
            .Text = "Eias"
            .Location = New Point(100, 100)
        End With
        Me.Controls.Add(lblInfo)
    End Sub

    Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
        Me.Controls.Remove(lblInfo)
    End Sub

بالتوفيق إن شاء الله.

في المثال يتضح المقال

هذا الموضوع مغلق.

مواضيع مشابهة