15-03-16, 11:56 PM
سؤالك لطيف جدا لكن من الواصح انك سألته بدون ما تدرك أبعاده جيدا
و لأن السؤال عجبني اسمحي لي أجاوبك بشكل مختلف قليلا
اولا MessageBox من الممكن اضافتها الي مصفوفة ولكن علي هيئة DialogResult
و الكود التالي يوضح ذلك و هو عبارة عن كلاس بسيط يمكن استدعاؤه من اي مكان في مشروعك بل ويمكن الاستغناء عن الكلاس ان احببت و تستخدم الدالة الموجودة به في اي كلاس اخر بحيث تستدعيها بنفس مكان وجودها
الدالة الموجودة في الكلاس أعلاه توضح كيفية اضافة اي عدد من الرسائل انت تريده
و يتم استرجاع اي رسالة من المصفوفة عن طريق تمرير index الخاص بها فقط لا غير
و الكود التالي يوضح ذلك
الأن لنعود الي الكود الخاص بك و كيف نستخدم نفس الأسلوب لاستعادة رسالة ما
انا طبعا لم أعدل في الكود الخاص بك و لا اعلم هل به أخطاء ام لا و لكني استخدمته كما هو لتوضيح كيفية اظهار الرسالة المطلوبة مع كل تكست بوكس
و لأن السؤال عجبني اسمحي لي أجاوبك بشكل مختلف قليلا
اولا MessageBox من الممكن اضافتها الي مصفوفة ولكن علي هيئة DialogResult
و الكود التالي يوضح ذلك و هو عبارة عن كلاس بسيط يمكن استدعاؤه من اي مكان في مشروعك بل ويمكن الاستغناء عن الكلاس ان احببت و تستخدم الدالة الموجودة به في اي كلاس اخر بحيث تستدعيها بنفس مكان وجودها
PHP كود :
Friend NotInheritable Class Messages
Public Shared Iterator Function GetMessages() As IEnumerable(Of Func(Of DialogResult))
Yield Function() MessageBox.Show("يجب أدخال الاسم واللقب", "Error")
Yield Function() MessageBox.Show("يجب أدخال العنوان", "Error")
Yield Function() MessageBox.Show("يجب أدخال رقم الهاتف", "Error")
Yield Function() MessageBox.Show("يجب أدخال الوظيفة", "Error")
' Add more messagees with the smae way
Return
End Function
End Class
الدالة الموجودة في الكلاس أعلاه توضح كيفية اضافة اي عدد من الرسائل انت تريده
و يتم استرجاع اي رسالة من المصفوفة عن طريق تمرير index الخاص بها فقط لا غير
و الكود التالي يوضح ذلك
PHP كود :
For i As Integer = 0 To Messages.GetMessages().Count - 1
Messages.GetMessages()(i)()
Next
الأن لنعود الي الكود الخاص بك و كيف نستخدم نفس الأسلوب لاستعادة رسالة ما
انا طبعا لم أعدل في الكود الخاص بك و لا اعلم هل به أخطاء ام لا و لكني استخدمته كما هو لتوضيح كيفية اظهار الرسالة المطلوبة مع كل تكست بوكس
PHP كود :
If TxtStudentName.Text = "" Then
Messages.GetMessages()(0)()
TxtStudentName.Focus()
Return
End If
If TxtAddress.Text = "" Then
Messages.GetMessages()(1)()
TxtAddress.Focus()
Return
End If
If TxtN_Fone.Text = "" Then
Messages.GetMessages()(2)()
TxtN_Fone.Focus()
Return
End If
If TxtJob.Text = "" Then
Messages.GetMessages()(3)()
TxtJob.Focus()
Return
End If

