تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في combobox وارجوا الحل بعد الله
#1
السلام عليكم .......
شباب عندي مشكلة عندما اضيف عنصر الى combobox عن طريق button فانه يضاف الى combobox وعند ايقاف تنفيذ البرنامج واعادة تشغلية لا يوجد العنصر المضاف مسبقا علما ان البرنامج في الفجوال 2008
الرد }}}}
تم الشكر بواسطة:
#2
بتنضاف العناصر عن طريق الخاصية items الخاصة بالكومبو بوكس
أو بطريقة أخرى من خلال الكود
combobox1.items.add()
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
للعـــــــلم :
لحـــــــفظ أي قيمة مهما كانت تحتاج الى وسيط للحفظ ,, بمعنى : (حقل في جدول ,,, ملف نصي,,, متغير في الرجستري,,, متغير في My.Settings)

Abu Ehab : Microsoft Partner  & Systems Developer
  Facebook   Youtube    Twitter   
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم : شكرا على الردود الرد الاول من الاخ صحيح اني استعمل هذا الكود ولكن لا يخزن بشكل دائمي
الرد }}}}
تم الشكر بواسطة:
#5
اضف ضبط جديد من نوع string collection وعند حدث اغلاق البرنامج احفظ محتويات الكمبوبوكس وعند حدث التحميل حمل البيانات المخزنة في my.settings الى الكومبوبوكس
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#6
حل بسيط لكنه سيقوم بحفظ البيانات ف ملف خارج البرنامج

كود :
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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في حل مشكلة المشروع المرفق لانواع بحث مختلفة khaled12345 7 69 أمس, 09:37 PM
آخر رد: khaled12345
Star مشكلة جمع الكسور في sql server RADOS 2 50 أمس, 06:28 AM
آخر رد: RADOS
  مشكلة في البحث بالتاريخ ____وايضا ____ بين تاريخين khaled12345 7 144 24-05-17, 03:55 PM
آخر رد: khaled12345
  [VB.NET] مشكلة في تعلم لغة vb.net anis789 3 116 24-05-17, 03:08 AM
آخر رد: silverlight
  مشكلة تفعيل ظهور checkbox في الفورم عامر الجبوري 4 89 21-05-17, 02:22 PM
آخر رد: alma2
  حل مشكلة " البرامج لا تعمل" عبدالرحمن المكاوي 4 91 20-05-17, 12:43 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 96 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] حل مشكلة الارقام في الاداة DataGridview أبو نقطة 2 60 19-05-17, 12:10 PM
آخر رد: alma2
  ارجو المساعدة حفظكم الله rabeh.ram 2 95 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  مشكلة في كود جملة ال insert khaled12345 2 66 14-05-17, 10:20 AM
آخر رد: khaled12345

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم