منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في combobox وارجوا الحل بعد الله - نسخة قابلة للطباعة

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

مشكلة في combobox وارجوا الحل بعد الله - عمر البغدادي - 19-03-13

السلام عليكم .......
شباب عندي مشكلة عندما اضيف عنصر الى combobox عن طريق button فانه يضاف الى combobox وعند ايقاف تنفيذ البرنامج واعادة تشغلية لا يوجد العنصر المضاف مسبقا علما ان البرنامج في الفجوال 2008

مشكلة في combobox وارجوا الحل بعد الله - cvcvcv - 19-03-13

بتنضاف العناصر عن طريق الخاصية items الخاصة بالكومبو بوكس
أو بطريقة أخرى من خلال الكود
combobox1.items.add()

مشكلة في combobox وارجوا الحل بعد الله - Abu Ehab - 19-03-13

السلام عليكم ورحمة الله وبركاته
للعـــــــلم :
لحـــــــفظ أي قيمة مهما كانت تحتاج الى وسيط للحفظ ,, بمعنى : (حقل في جدول ,,, ملف نصي,,, متغير في الرجستري,,, متغير في My.Settings)

مشكلة في combobox وارجوا الحل بعد الله - عمر البغدادي - 19-03-13

السلام عليكم : شكرا على الردود الرد الاول من الاخ صحيح اني استعمل هذا الكود ولكن لا يخزن بشكل دائمي

مشكلة في combobox وارجوا الحل بعد الله - سعود - 19-03-13

اضف ضبط جديد من نوع string collection وعند حدث اغلاق البرنامج احفظ محتويات الكمبوبوكس وعند حدث التحميل حمل البيانات المخزنة في my.settings الى الكومبوبوكس

مشكلة في combobox وارجوا الحل بعد الله - just.coder - 19-03-13

حل بسيط لكنه سيقوم بحفظ البيانات ف ملف خارج البرنامج

كود :
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Dim sw As New IO.StreamWriter(My.Application.Info.DirectoryPath & "\القائمة", False, System.Text.Encoding.UTF8)
        Dim s As String = ""
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            s += ComboBox1.Items.Item(i) & vbCrLf
        Next
        sw.Write(s)
        sw.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim objReader As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\القائمة")
            Dim g As String = objReader.ReadToEnd
            g = Replace(g, vbCrLf, "#")
            Dim rt() As String = g.Split("#")
            For i As Integer = 0 To rt.Length - 1
                ComboBox1.Items.Add(rt(i))
            Next
        Catch ex As Exception
            MsgBox("الملف غير موجود")
        End Try
      
    End Sub