[مبتدئ]

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

[مبتدئ]

مثلآ عندى 1 button و 1 Combobox و 1 TextBox فى Button كود

كود :

ComboBox1.Items.Add(TextBox1.Text)

مفروض لو وضعت كلمه فى Text وى ضغط على button هاتظهر فى Combobox انا اريد اضافت الكلمف فى ملف NotePad يوجد فى فولدير المشروع يعنى لو عملت add لى كلمة تىضاف فى ComboBox وى NotePad وى عند مسح كلمه من Combobox تتمسح من NotePad وى عند غلق المشروع وى فتحه تانى ComboBox ياخذ Items الى كانت مكتوبه فى قبل غلق المشروع من ملف NotePad

[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

بالتوفيق

[مبتدئ]

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 يظهر رساله هذا الكلمه موجوده من قبل

[Osama_Ghareeb]

كود :

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

[مبتدئ]

Osama_Ghareeb كتب :

كود :

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

جزاك الله كل خير أخى