منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف أقوم بنقل محتويات checkedListbox إلى Textbox ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
 كيف أقوم بنقل محتويات checkedListbox  إلى Textbox  علماً أني أريد نقل المحتويات التي عملت لها checked  فقط

قمت بوضع الكود التالي ولكنه ينفع لنقل عنصر واحد فقط
عند إختيار عنصر جديد يقوم بمسح العنصر الأول من تكست بوكس ويضيف العنصر الجديد
شكراً لكم مقدماً إخواني
وعليكم السلام ورحمة الله وبركاته

بالنسبة للاضافة على مربع النص تحتاج إشارة الوصل (&) كيف تضيف بدون حذف السابق

مثلاً :
كود :
TextBox1.Text &= 1

فكل مرة تطلب الكود أعلاه سيقوم بصف الرقم واحد بجانب القيمة أو النص الموجود في مربع النص.
باسبيدال الرقم (1) بالنص الذي تريد إضافته ستصل لما تريد ..

ولكن بعد مراعات عدم التكرار وغيرها ولا يتسع المجال لطرح مثال شامل لكل هذه الأشياء 
وبالأصح هذه أشياء تحتاج معرفة الأساسيات في الـ VB.net  ..
ويجب على مبرمج معرفتها .. 

وفقك الله..
و عليكم السلام و رحمة الله و بركاته

جرب ما يلي :
إقتباس :
PHP كود :
Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
        TextBox1
.Clear()
 
       For Each ListItem As Integer In CheckedListBox1.CheckedIndices

            TextBox1
.AppendText(CheckedListBox1.Items.Item(ListItem).ToString ",")

 
       Next
    End Sub 
السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لكم إخواني على سرعة الرد ولكن للأسف لم تنجح معي هذه الأكواد

بارك الله فيكم
أنا جربت الطريقتين
كلاهما تعملان بشكل ممتاز 100%