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

اضافة من LISTBOX الى اداة TXETBOX

مغلق
بدأه teachawy في 12 يوليو 2004 · 2 رد · 737 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الاخوة الاعزاء الرجاء المساعدة فى اداة ListBox

اذا كان لدى فورم موجود 2 ادوات هى :-

Listbox

Textbox == و خاصية

"textbox1.Multiline=True "

و السؤال هو اذا كانت اداة Listbox تحتوى على تلك العناصر:-

محمد احمد على محمود

و اذا اخترنا على سبيل المثال "محمد" اريد ان يكتب محمد فى اداة النص (Textbox)

و اذا اخترنا على سبيل المثال "احمد" اريد ان يكتب احمد فى اداة النص (Textbox) بشرط ان يكون باداة النص

مايلى :-

محمد

احمد

بمعنى انه كلما اخترت اى عنصر من الListbox فانه يضفه الى اداة النص و لا يلغى العناصر السابقة

فكيف افعل ذلك بالVB.Net

وجزاكم الله خيرا

#2

أضف الكود التالي لل ListBox تحت ال Event (SelectedIndexChanged)

 TextBox1.Text = TextBox1.Text & vbCrLf & ListBox1.SelectedItem

اقتباس
How to get experience without a job, and how to get a job without experience
#3 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text &= ListBox1.SelectedItem & vbCrLf
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("ماجد")
        ListBox1.Items.Add("احمد")
        ListBox1.Items.Add("خالد")
        ListBox1.Items.Add("وليد")

    End Sub

تم تعديل هذه المشاركة بواسطة mn_902 في 12 يوليو 2004 في 21:50

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

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