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

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

التكست بوكس اسمه (TextBox1)
الكومبو بوكس اسمه (ComboBox1)

في الزر ضع الكود التالي :

كود :
ComboBox1.Items.Add(TextBox1.Text)
السلام عليكم صديقى العزيز 
لك منى ولشخصكم الكريم كل التقدير 
الكود ينفذ تمام لكن للاسف لايتم الحفظ داخل كومبو بوكس بمعنى عند الخروج من المشروع والدخول مرة اخرى يحذف كل ماتم ادراجه ولايحفظ داخل الكومبو بوكس  فما هو الحل ؟
أضف الى السيتنغ اسم جديد ليكن Test من نوع String.Collection و ضع الكود التالي في الزر .


كود :
ComboBox1.Items.Add(TextBox1.Text)
       My.Settings.Test.Add(TextBox1.Text)
       My.Settings.Save()
عند تحميل القورم ضع الكود التالي :

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For Each arr As String In My.Settings.Test
           ComboBox1.Items.Add(arr)
       Next
   End Sub
قيمة value  مش واضحة والكود مش شغال
ضع أي كلمة في value مش مشكلة .
اما بالنسبة للكود شغال بتحب أحطهولك بمثال .
السلام عليكم صديقى العزيز 
اشكر حضرتك شكر خاص جزاك الله عنى خير الجزاء فعلا الكود شغال تمام ونجح نجاح هائل