[احمد خطاب]

السلام عليكم 
اريد ملأ الكومبو بوكس عن طريق التيكست بوكس والزر

[حريف برمجة]

وعليكم السلام ،،

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

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

كود :

ComboBox1.Items.Add(TextBox1.Text)

[احمد خطاب]

السلام عليكم صديقى العزيز 
لك منى ولشخصكم الكريم كل التقدير 
الكود ينفذ تمام لكن للاسف لايتم الحفظ داخل كومبو بوكس بمعنى عند الخروج من المشروع والدخول مرة اخرى يحذف كل ماتم ادراجه ولايحفظ داخل الكومبو بوكس  فما هو الحل ؟

[asemshahen5]

أضف الى السيتنغ اسم جديد ليكن 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  مش واضحة والكود مش شغال

[asemshahen5]

ضع أي كلمة في value مش مشكلة .
اما بالنسبة للكود شغال بتحب أحطهولك بمثال .

[احمد خطاب]

السلام عليكم صديقى العزيز 
اشكر حضرتك شكر خاص جزاك الله عنى خير الجزاء فعلا الكود شغال تمام ونجح نجاح هائل