[سؤال] اريد جعل مساج بوكس في مصفوفة داخل class واناديها من فورم أخرى

إقتباس :            If TxtStudentName.Text = "" Then
                MsgBox(" يجب أدخال الاسم واللقب ")
                TxtStudentName.Focus()
                Return
            End If
            If TxtAddress.Text = "" Then
                MsgBox(" يجب أدخال العنوان ")
                TxtAddress.Focus()
                Return
            End If
            If TxtN_Fone.Text = "" Then
                MsgBox(" يجب أدخال رقم الهاتف")
                TxtN_Fone.Focus()
                Return
            End If
            If TxtJob.Text = "" Then
                MsgBox("يجب أدخال الوظيفة")
                TxtJob.Focus()
                Return
            End If

كود :

Public Class MoveNextClass





    Public Shared Sub checkText(ByVal TargetForm As Form)

        For Each ctrl As Control In TargetForm.Controls

            If TypeOf ctrl Is TextBox Then

                If ctrl.Name = "TextBox1" And ctrl.Text = Nothing Then

                    MsgBox("  يجب أدخال الاسم واللقب ")

                    ctrl.Focus()

                    Exit Sub

                End If



                If ctrl.Name = "TextBox2" And ctrl.Text = Nothing Then

                    MsgBox("يجب أدخال العنوان")

                    ctrl.Focus()

                    Exit Sub

                End If





                If ctrl.Name = "TextBox3" And ctrl.Text = Nothing Then

                    MsgBox("  يجب أدخال رقم الهاتف")

                    ctrl.Focus()

                    Exit Sub

                End If





                If ctrl.Name = "TextBox4" And ctrl.Text = Nothing Then

                    MsgBox("يجب أدخال الوظيفة")

                    ctrl.Focus()

                    Exit Sub

                End If



            End If

        Next

    End Sub





    ''' <summary>

    ''' للانتقال الى الحقل التالي عند الضغط على انتر

    ''' </summary>

    ''' <param name="e"></param>

    ''' <remarks></remarks>

    Public Shared Sub gotoNextControl(ByVal TargetForm As Form, ByVal e As System.Windows.Forms.KeyPressEventArgs)

        If Char.IsControl(e.KeyChar) Then

            If e.KeyChar.Equals(Chr(Keys.Return)) Then

                TargetForm.SelectNextControl(TargetForm.ActiveControl, True, True, True, False)

                e.Handled = True

            End If

        End If





    End Sub



End Class

كود :

Imports System.Security.Cryptography

Imports System.Text



Public Class Form1

    Private Sub Fields_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress, TextBox5.KeyPress, TextBox4.KeyPress, TextBox3.KeyPress, TextBox2.KeyPress, TextBox1.KeyPress

        Call MoveNextClass.gotoNextControl(Me, e)

    End Sub



 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MoveNextClass.checkText(Me)

    End Sub

End Class

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

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

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