كود :
'تعريف متغيرات'
Dim File1, ID, FullName, Salary, Tell, Mobail, Note As String
'كود تحمييل الفورم'
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'تحديد مكان ملف النوت باد'
File1 = Application.StartupPath & "\Asem.txt"
'كود التحقق من وجود الملف في المسار المحدد'
If IO.File.Exists(File1) Then
'تعريف متغير لاستخدامه في البحث'
Dim msg As String = String.Empty
'وضع قيمة للمتغير رقم السجل الاول'
msg = 1
'فتح ملف النوت باد من الموقع المحدد في المتغير فايل1'
FileOpen(1, File1, OpenMode.Input)
'تفريغ اللسيت بوكس'
ListBox1.Items.Clear()
'عمل لوب لتحميل النص الموجود في النوت باد'
Do While Not EOF(1) '
'تعبئة المتغيرات بالقيم الموجودة بملف النوت باد'
Input(1, ID) : Input(1, FullName) : Input(1, Salary) : Input(1, Tell) : Input(1, Mobail) : Input(1, Note)
'التحقق من المتغيير مسج=المتغيير أيدي'
If msg = ID Then
'تعبئة صناديق النص من المتغيرات المعبئة حسب الاسم'
Txt_ID.Text = ID
Txt_FullName.Text = FullName
TextBox3.Text = Salary
TextBox4.Text = Tell
Txt_Mobail.Text = Mobail
Txt_Note.Text = Note
End If
'تعبئة الليست بوكس بالمتغيير الخاص بالاسم'
ListBox1.Items.Add(FullName)
'انهاء اللوب'
Loop
'إغلاق الملف'
FileClose(1)
Else
'إذا كان ملف النوت باد غيير موجود يقوم بتشغييل زر الاضافة'
BtnAdd_Click(Nothing, Nothing)
End If
'تحديد الازرار التي تفعل'
BtnAdd.Enabled = True
BtnFindID.Enabled = True
BtnFindName.Enabled = True
BtnClose.Enabled = True
BtnSave.Enabled = False
BtnCancel.Enabled = False
End Sub
'كود زر تفريغ صناديق النص ووضع رقم الايدي'
Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
'عمل لووب لتحمييل الادوات التي على الفورم'
For i = 0 To Me.Controls.Count - 1
'كود التحقق من أن الاداة هي صندوق نص'
If TypeOf Me.Controls(i) Is TextBox Then
'تفريغ صناديق النص'
Me.Controls(i).Text = String.Empty
End If
Next
'اذا كانت الليست بوكس فارغة'
If ListBox1.Items.Count = 0 Then
'يعطي رقم 1 للايدي'
Txt_ID.Text = 1
Else 'غير فارغة'
'يعطي للايدي مجموع سطور الموجود + 1'
Txt_ID.Text = ListBox1.Items.Count + 1
End If
'تحديد الازرار التي تفعل'
BtnAdd.Enabled = False
BtnFindID.Enabled = False
BtnFindName.Enabled = False
BtnClose.Enabled = False
BtnSave.Enabled = True
BtnCancel.Enabled = True
End Sub
'كود زر الاغلاق'
Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
'إغلاق'
Close()
End Sub
'كود زر الحفظ'
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
'فتح الملف للحفظ'
FileOpen(1, File1, OpenMode.Append)
'كتابة السطر و القيمة المراد حفظها'
WriteLine(1, Txt_ID.Text)
WriteLine(1, Txt_FullName.Text)
WriteLine(1, TextBox3.Text)
WriteLine(1, TextBox4.Text)
WriteLine(1, Txt_Mobail.Text)
WriteLine(1, Txt_Note.Text)
'إغلاق الملف بعد وضع السطور به و حفظها'
FileClose(1)
'كود إعادة تحميل الفورم'
Form1_Load(Nothing, Nothing)
End Sub
'كود زر إلغاء الحفظ'
Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
'كود إعادة تحميل الفورم'
Form1_Load(Nothing, Nothing)
End Sub
'كود زر البحث عن طريق الايدي'
Private Sub BtnFindID_Click(sender As Object, e As EventArgs) Handles BtnFindID.Click
'تعريف متغير لاستخدامه في البحث'
Dim msg As String = String.Empty
'كود التحقق من ان صندوق نص الايدي فارغ'
If Txt_ID.Text = String.Empty Then
'رسالة تطلب تعبئة صندوق نص الايدي'
MsgBox("الرجاء إدخال الرقم في حقل الرقم", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else 'كود التحقق من ان صندوق نص الايدي ليس فارغ'
'وضع قيمة للمتغير من صندوق نص الايدي'
msg = Txt_ID.Text
'فتح ملف النوت باد من الموقع المحدد في المتغير فايل1'
FileOpen(1, File1, OpenMode.Input)
'تفريغ اللسيت بوكس'
ListBox1.Items.Clear()
'عمل لوب لتحميل النص الموجود في النوت باد'
Do While Not EOF(1)
'تعبئة المتغيرات بالقيم الموجودة بملف النوت باد'
Input(1, ID) : Input(1, FullName) : Input(1, Salary) : Input(1, Tell) : Input(1, Mobail) : Input(1, Note)
'التحقق من المتغيير مسج=المتغيير أيدي'
If msg = ID Then
'تعبئة صناديق النص من المتغيرات المعبئة حسب الاسم'
Txt_ID.Text = ID
Txt_FullName.Text = FullName
TextBox3.Text = Salary
TextBox4.Text = Tell
Txt_Mobail.Text = Mobail
Txt_Note.Text = Note
End If
'تعبئة الليست بوكس بالمتغيير الخاص بالاسم'
ListBox1.Items.Add(FullName)
'انهاء اللوب'
Loop
'إغلاق الملف'
FileClose(1)
End If
End Sub
'كود زر البحث عن طريق الاسم'
Private Sub BtnFindName_Click(sender As Object, e As EventArgs) Handles BtnFindName.Click
'تعريف متغير لاستخدامه في البحث'
Dim msg As String = String.Empty
'كود التحقق من ان صندوق نص الاسم فارغ'
If Txt_FullName.Text = "" Then
'رسالة تطلب تعبئة صندوق نص الاسم'
MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else 'كود التحقق من ان صندوق نص الايدي ليس فارغ'
'وضع قيمة للمتغير من صندوق نص الاسم'
msg = Txt_FullName.Text
'فتح ملف النوت باد من الموقع المحدد في المتغير فايل1'
FileOpen(1, File1, OpenMode.Input)
'تفريغ اللسيت بوكس'
ListBox1.Items.Clear()
'عمل لوب لتحميل النص الموجود في النوت باد'
Do While Not EOF(1)
'تعبئة المتغيرات بالقيم الموجودة بملف النوت باد'
Input(1, ID) : Input(1, FullName) : Input(1, Salary) : Input(1, Tell) : Input(1, Mobail) : Input(1, Note)
'التحقق من المتغيير مسج=المتغيير الاسم'
If msg = FullName Then
'تعبئة صناديق النص من المتغيرات المعبئة حسب الاسم'
Txt_ID.Text = ID
Txt_FullName.Text = FullName
TextBox3.Text = Salary
TextBox4.Text = Tell
Txt_Mobail.Text = Mobail
Txt_Note.Text = Note
End If
'تعبئة الليست بوكس بالمتغيير الخاص بالاسم'
ListBox1.Items.Add(FullName)
Loop
'إغلاق الملف'
FileClose(1)
End If
End Sub
جزاك الله كل خير والله فعلا البرنامج ده قريب جدا مما اريد