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

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

هل ممكن عمل load لى ملف - مبتدئ - 14-12-12

هل يمكن عمل Save لى items الى فى combobox يعنى لو عملت add بى استخدام هذا الكود
ComboBox1.Items.Add(TextBox1.Text)
هل يمكن عمل Save لى items الى تم وضعه بعد اغلاق المشروع؟

هل ممكن عمل load لى ملف - مبتدئ - 14-12-12

مثلآ عندى 1 button و 1 Combobox و 1 TextBox فى Button كود
كود :
ComboBox1.Items.Add(TextBox1.Text)
مفروض لو وضعت كلمه فى Text وى ضغط على button هاتظهر فى Combobox انا اريد اضافت الكلمف فى ملف NotePad يوجد فى فولدير المشروع يعنى لو عملت add لى كلمة تىضاف فى ComboBox وى NotePad وى عند مسح كلمه من Combobox تتمسح من NotePad وى عند غلق المشروع وى فتحه تانى ComboBox ياخذ Items الى كانت مكتوبه فى قبل غلق المشروع من ملف NotePad

هل ممكن عمل load لى ملف - Osama_Ghareeb - 14-12-12

كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim Arr(ComboBox1.Items.Count - 1) As String
ComboBox1.Items.CopyTo(Arr, 0)
IO.File.WriteAllLines("Data.txt", Arr)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("Data.txt") Then
ComboBox1.Items.AddRange(IO.File.ReadAllLines("Data.txt"))
End If
End Sub


بالتوفيق

هل ممكن عمل load لى ملف - مبتدئ - 14-12-12

Osama_Ghareeb كتب :
كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim Arr(ComboBox1.Items.Count - 1) As String
ComboBox1.Items.CopyTo(Arr, 0)
IO.File.WriteAllLines("Data.txt", Arr)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("Data.txt") Then
ComboBox1.Items.AddRange(IO.File.ReadAllLines("Data.txt"))
End If
End Sub


بالتوفيق

جزاك الله كل خير أخى
أخى كيف يمكن عند اضافت New Item لو وجد Item فى Combobox يظهر رساله هذا الكلمه موجوده من قبل

هل ممكن عمل load لى ملف - Osama_Ghareeb - 14-12-12

كود :
If ComboBox1.Items.Contains([color=#ff0000]"1"[/color]) Then
            MsgBox("موجود مسبقا")
        Else
            ComboBox1.Items.Add([color=#ff0000]"1"[/color])
        End If


هل ممكن عمل load لى ملف - مبتدئ - 14-12-12

Osama_Ghareeb كتب :
كود :
If ComboBox1.Items.Contains([color=#ff0000]"1"[/color]) Then
            MsgBox("موجود مسبقا")
        Else
            ComboBox1.Items.Add([color=#ff0000]"1"[/color])
        End If
جزاك الله كل خير أخى