[Basil Abdallah]

السلام عليكم 

PHP كود :

       Dim Newbutton As New Button
        For ono = 1 To 1000
            Newbutton.Name = "Button" & ono
            Controls.Add(Newbutton)
        Next
        AddHandler Newbutton.Click, AddressOf nebe
        AddHandler Newbutton.DoubleClick, AddressOf nebe2 


هذا الكود يقوم بانشاء زر جديد و كل زر يتم انشائه يكون الاسم Button+1 
الان المطلوب ان يقوم البرنامج باضافة كافة الكائنات الموجودة بالفورم (سواء زر او ليبل او تكست بوكس كل شي ) بليست بوك و اذا تم اختيار عنصر باليست بوكس يقوم بتغير نص اسم الكائن الذي تم اختياره باليست بوكس الى Basil  
==
جربت اضفت للمشروع Listbox وعند انشاء Button جديد يضيف البيانات تاعت البوتون لليست بوكس ولكن المشكلة انو انا بدي لما اختار عنصر باليست بوكس يغير لي نص الكائن الذي تم اختيار اسمه باليست بوكس

[Basil Abdallah]

.............up

[HASAN6.0]

استخدم TRYCAST
https://www.dotnetperls.com/cast-vbnet

[LoveVb]

يمكنك إضافة الاسم(Name) الى الليس بوكس بعد أنشاء الكائن برمجيا
او جلب جميع العناصر وإضافتها الى ListBox

كود :

ListBox1.Items.AddRange(Me.Controls.Cast(Of Control).Select(Function(itm) itm.Name).ToArray)

في الحدث SelectedIndexChanged للـ ListBox

كود :

Me.Controls.Cast(Of Control).Where(Function(itm) itm.Name = ListBox1.SelectedItem.ToString)(0).Text = "LoveVb"

أي استفسار تـفـضل

[طالب برمجة]

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        For ono = 1 To 10
            Dim Newbutton As New Button
            Newbutton.Name = "Button" & ono
            Newbutton.Top = (ono - 1) * Newbutton.Height
            Controls.Add(Newbutton)
            AddHandler Newbutton.Click, AddressOf nebe
        Next
        For Each c As Control In Me.Controls.OfType(Of Button)()
            ListBox1.Items.Add(c.Name)
        Next
        ListBox1.Left = 100
    End Sub


    Private Sub nebe(ByVal sender As System.Object, ByVal e As EventArgs)
        sender.Text = "باسل"
    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim c As Control = Controls(ListBox1.Text)
        c.Text = "Basil"
    End Sub

End Class 


[Basil Abdallah]

شكرا لكم جميعا ايضا استطعت كتابة هذا الكود : 

PHP كود :

        For Each obj In me.Controls.Find(CheckedListBox1.Text, True)
                If obj.Name.Contains("Button") Then
                    obj.Text = "باسل" 
Next