تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد جعل مساج بوكس في مصفوفة داخل class واناديها من فورم أخرى
#5
هذا حل أسهل لك قليلا حتي لا تدخل في متاهة مع Index
وهذا اصبح أسهل لأنك هنا تتعامل مع Enum باسماء الرسائل

اضف الكلاسات التالية الي مشروعك

PHP كود :
Friend NotInheritable Class Messages

    Public Shared 
Function GetMessage(kind As MessagesKind) As DialogResult
        Select 
Case kind
            Case MessagesKind
.Name
                Return GetMessages
()(CInt(MessagesKind.Name))()

 
           Case MessagesKind.Address
                Return GetMessages
()(CInt(MessagesKind.Address))()

 
           Case MessagesKind.Phone
                Return GetMessages
()(CInt(MessagesKind.Phone))()

 
           Case MessagesKind.Occupation
                Return GetMessages
()(CInt(MessagesKind.Occupation))()

 
       End Select
        Return Nothing
    End 
Function

 
   Private 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

Public Enum MessagesKind
    Name = 0
    Address = 1
    Phone = 2
    Occupation = 3
End Enum 

و الكود التالي يوضح التعديل و طريقة الاستخدام مع الكود الخاص بك

PHP كود :
       If TxtStudentName.Text "" Then
            Messages
.GetMessage(MessagesKind.Name)
 
           TxtStudentName.Focus()
 
           Return
        End 
If

 
       If TxtAddress.Text "" Then
            Messages
.GetMessage(MessagesKind.Address)
 
           TxtAddress.Focus()
 
           Return
        End 
If
 
       If TxtN_Fone.Text "" Then
            Messages
.GetMessage(MessagesKind.Phone)
 
           TxtN_Fone.Focus()
 
           Return
        End 
If
 
       If TxtJob.Text "" Then
            Messages
.GetMessage(MessagesKind.Occupation)
 
           TxtJob.Focus()
 
           Return
        End 
If 

أنت فقط و بشكل مبدئي يجب أن تتعلم المصفوفات و كيفية بناء مصفوفة فهذا الأمر هام جدا و أساسي لأي مبرمج
ادرس المصفوفات و بعدين نتناقش و ثق تماما انك لو فهمت المصفوفات فلن تحتاج لأي نقاش
الرد }}}
تم الشكر بواسطة: عدنان الشمري , عدنان الشمري


الردود في هذا الموضوع
RE: اريد جعل مساج بوكس في مصفوفة داخل class واناديها من فورم أخرى - بواسطة silverlight - 16-03-16, 01:01 AM


التنقل السريع :


يقوم بقرائة الموضوع: