تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة اسماء الكائنات الموجودة بالفورم بListbox
#1
السلام عليكم 


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 جديد يضيف البيانات تاعت البوتون لليست بوكس ولكن المشكلة انو انا بدي لما اختار عنصر باليست بوكس يغير لي نص الكائن الذي تم اختيار اسمه باليست بوكس
Basil Abdallah 

الرد
تم الشكر بواسطة:
#2
.............up
Basil Abdallah 

الرد
تم الشكر بواسطة:
#3
استخدم TRYCAST
https://www.dotnetperls.com/cast-vbnet
الرد
تم الشكر بواسطة: LoveVb , Basil Abdallah
#4
يمكنك إضافة الاسم(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"

أي استفسار تـفـضل
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد
تم الشكر بواسطة: Basil Abdallah
#5
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 
الرد
تم الشكر بواسطة: Basil Abdallah
#6
شكرا لكم جميعا ايضا استطعت كتابة هذا الكود : 
PHP كود :
        For Each obj In me.Controls.Find(CheckedListBox1.TextTrue)
 
               If obj.Name.Contains("Button"Then
                    obj
.Text "باسل" 
Next 
Basil Abdallah 

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 427 08-10-20, 05:07 AM
آخر رد: Ad Heart
  اضافة button في مكان محدد علي قورم atefkhalf2004 9 395 05-10-20, 10:08 AM
آخر رد: atefkhalf2004
  [VB.NET] اضافة اللغة واستردادها من ملف بصيغة ini ميدو الفنان 11 1,086 25-09-20, 04:08 PM
آخر رد: عمور2016
  اضافة ملف pdf الى قاعدة بيانات sql server 2012 moh developer 5 206 25-09-20, 03:01 PM
آخر رد: moh developer
  مشكلة في كود اضافة الى sql 2012 moh developer 13 550 25-09-20, 01:25 AM
آخر رد: Mohamad Anan
  هل يمكن اضافة اشعار صوتى mostafa nada 3 213 22-09-20, 03:36 PM
آخر رد: mostafa nada
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 440 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  هل يجب اضافة ملف الريبورت فيور مع مشروع الفيجوال ستوديو adnan gharbi 2 233 02-09-20, 09:27 PM
آخر رد: adnan gharbi
  استعراض الملفات الموجودة في سلة المحذوفات EbrNaj00 2 263 02-09-20, 02:24 AM
آخر رد: EbrNaj00
Question [سؤال] اضافة ميعاد التسليم للبرنامج maaadooo2001 1 216 01-09-20, 04:37 PM
آخر رد: اسامه الهرماوي

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


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