التأكد من صحة المعلومات المدخلة من قبل المستعمل

بسم الله الرحمن الرحيم هذه فنكشن بسيطة تمكنك من التأكد من أن كل الحقول قد ملأت من طرف المستعمل او حقول معينة

و هذه هي الفنكشن :

Private Function CheckTextBoxs(ByVal Texts() As TextBox) As Boolean
        Dim I As Integer
        For I = 0 To Texts.Length - 1
            If Texts(I).Text = "" Then
                MsgBox(" Please Fill " & Texts(I).Name & " Field", MsgBoxStyle.Critical)
                Return False
            End If
        Next
        Return True
    End Function

حيث تمرر مصفوفة من ال TextBox التي تريد فحصها و من تم يتم فحصها عن طريق الفنكشن و اذا كان اي حقل فارغ يتم اعلام المستعمل بذلك و اسم الحقل الذي يجب أن يملأه

في المرفقات ستجدون مثال بسيط :)

WindowsApplication28.rar