كود نقل من التيكست بوكس للكومبو بوكس

كود نقل من التيكست بوكس للكومبو بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود نقل من التيكست بوكس للكومبو بوكس (/showthread.php?tid=28035)

كود نقل من التيكست بوكس للكومبو بوكس - احمد خطاب - 26-12-18

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

RE: كود نقل من التيكست بوكس للكومبو بوكس - حريف برمجة - 26-12-18

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

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

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

كود :

ComboBox1.Items.Add(TextBox1.Text)

RE: كود نقل من التيكست بوكس للكومبو بوكس - احمد خطاب - 27-12-18

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

RE: كود نقل من التيكست بوكس للكومبو بوكس - asemshahen5 - 27-12-18

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

RE: كود نقل من التيكست بوكس للكومبو بوكس - احمد خطاب - 27-12-18

قيمة value مش واضحة والكود مش شغال

RE: كود نقل من التيكست بوكس للكومبو بوكس - asemshahen5 - 28-12-18

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

RE: كود نقل من التيكست بوكس للكومبو بوكس - احمد خطاب - 28-12-18

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