[F.H.M]

(24-09-24, 08:01 PM)Taha Okla كتب : طريقة بدون قواعد بيانات - مع (ملف XML)

في النافذة الأولى أكتب الكود :

كود :

Imports System.IO

Module Module1
   Public tDTx As New DataTable

   Public Sub dtCombo(pComboBox As ComboBox)
       pComboBox.ValueMember = "Country"
       pComboBox.DisplayMember = "Country"
       pComboBox.DataSource = tDTx
   End Sub

   Public Sub AddTo_tDTx(pText As String)
       tDTx.Rows.Add(pText)
       tDTx.WriteXml("tCountries.xml")
   End Sub

   Public Sub RemoveFrom_tDTx(pIndex As Integer)
       tDTx.Rows.RemoveAt(pIndex)
       tDTx.WriteXml("tCountries.xml")
   End Sub
End Module

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       tDTx.Columns.Add("Country")
       tDTx.TableName = "Countries"

       dtCombo(ComboBox1)

       If File.Exists("tCountries.xml") Then
           tDTx.ReadXml("tCountries.xml")
       End If

       Form2.Show()
   End Sub
End Class

---

في النافذة الثانية أكتب الكود :

كود :

Public Class Form2
   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dtCombo(ComboBox1)
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       AddTo_tDTx(TextBox1.Text)
       TextBox1.Text = ""
       TextBox1.Focus()
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       RemoveFrom_tDTx(ComboBox1.SelectedIndex)
   End Sub
End Class

كثر الله خيرك أخ طه وجزاك الله خير على المساعدة

شغلك ممتاز ورائع 

بس ليش لازم أشغل الفورم 2 مع تشغيل الفورم 1
Form2.Show