تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:
#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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo مشكلة فى كود امر وارد الي مخزن كفاح 6 55 منذ 5 ساعة مضت
آخر رد: مساعدة
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 4 52 منذ 7 ساعة مضت
آخر رد: soper
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 63 منذ 10 ساعة مضت
آخر رد: MOSTAFA.KAMEL
  [سؤال] مشكلة لنت فروم ورك مع برنامجى Mohamed371 2 55 21-01-17, 07:31 PM
آخر رد: Mohamed371
  [سؤال] مشكلة لنت فروم ورك مع برنامجى Mohamed371 0 32 19-01-17, 12:00 PM
آخر رد: Mohamed371
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 68 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مشكلة بسيطة جداً timer 3asfa~mdmra 4 97 15-01-17, 10:09 PM
آخر رد: 3asfa~mdmra
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 98 14-01-17, 08:19 PM
آخر رد: كفاح
  [VB.NET] مشكلة في تغيير لون خلفية الخلية في ال Datagridview Joe kad 10 234 09-01-17, 02:01 AM
آخر رد: مساعدة
  [VB.NET] مشكلة تحويل من 32بت الى 64 بت yemen1 3 96 08-01-17, 01:23 PM
آخر رد: yemen1

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


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