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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 76 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 52 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 69 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 268 27-11-16, 10:30 AM
آخر رد: adel27
  اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله ahmed salam 44 3,557 25-11-16, 06:34 PM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 179 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] مشكلة في كود البحث khalid475 14 220 11-11-16, 07:52 PM
آخر رد: khalid475
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,109 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان
  [VB.NET] مشكلة في Timer 3asfa~mdmra 1 80 07-11-16, 02:09 PM
آخر رد: hassan

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


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