منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اضافة اسماء الكائنات الموجودة بالفورم بListbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اضافة اسماء الكائنات الموجودة بالفورم بListbox (/showthread.php?tid=23492)



اضافة اسماء الكائنات الموجودة بالفورم بListbox - Basil Abdallah - 23-01-18

السلام عليكم 


PHP كود :
       Dim Newbutton As New Button
        For ono 
1 To 1000
            Newbutton
.Name "Button" ono
            Controls
.Add(Newbutton)
 
       Next
        AddHandler Newbutton
.ClickAddressOf nebe
        AddHandler Newbutton
.DoubleClickAddressOf nebe2 
هذا الكود يقوم بانشاء زر جديد و كل زر يتم انشائه يكون الاسم Button+1 
الان المطلوب ان يقوم البرنامج باضافة كافة الكائنات الموجودة بالفورم (سواء زر او ليبل او تكست بوكس كل شي ) بليست بوك و اذا تم اختيار عنصر باليست بوكس يقوم بتغير نص اسم الكائن الذي تم اختياره باليست بوكس الى Basil  
==
جربت اضفت للمشروع Listbox وعند انشاء Button جديد يضيف البيانات تاعت البوتون لليست بوكس ولكن المشكلة انو انا بدي لما اختار عنصر باليست بوكس يغير لي نص الكائن الذي تم اختيار اسمه باليست بوكس


RE: اضافة الكائنات الموجودة بالفورم بـListbox - Basil Abdallah - 24-01-18

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


RE: اضافة اسماء الكائنات الموجودة بالفورم بListbox - HASAN6.0 - 24-01-18

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


RE: اضافة اسماء الكائنات الموجودة بالفورم بListbox - LoveVb - 25-01-18

يمكنك إضافة الاسم(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"

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


RE: اضافة اسماء الكائنات الموجودة بالفورم بListbox - طالب برمجة - 25-01-18

PHP كود :
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles 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.ClickAddressOf 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.ObjectByVal e As EventArgs)
 
       sender.Text "باسل"
 
   End Sub


    Private Sub ListBox1_SelectedIndexChanged
(ByVal sender As ObjectByVal e As EventArgsHandles ListBox1.SelectedIndexChanged
        Dim c 
As Control Controls(ListBox1.Text)
 
       c.Text "Basil"
 
   End Sub

End 
Class 



RE: اضافة اسماء الكائنات الموجودة بالفورم بListbox - Basil Abdallah - 25-01-18

شكرا لكم جميعا ايضا استطعت كتابة هذا الكود : 
PHP كود :
        For Each obj In me.Controls.Find(CheckedListBox1.TextTrue)
 
               If obj.Name.Contains("Button"Then
                    obj
.Text "باسل" 
Next