انتقال من textbox لأخر بشرط

اعملي جملة If

if textBox1.text="" then
msgbox("entry missing")
else
'your code
........................
end if

السلام عليكم

فى حدث Leave الخاص بى TextBox ممكن تكتبى شرط مثال

    Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        If Me.TextBox1.Text.Trim = String.Empty Then
            TextBox1.Focus()
        End If
    End Sub

السلام عليكم ورحمه الله وبركاته

شكرا على هذه السرعة فى الرد

وشكرا أستاذ أبوفهمى على مساعدتى ولكن ما اريده هو ما كتبه اللأستاذ waleedhm

جزاكم الله كل الخير

لا شكر على واجب ... المشكلة انو انسيت اكمل ال code بس يلا الاستاذ وليد سبقني لفعل الخير :D

بس بدي اسأل الاخ وليد هسا المؤشر ما راح ينتقل الا ازا عبيت ال TextBox طيب في حالة انتقل عن طريق الماوس ل TextBox اخر .... بنتقل ولا لا ؟؟

اقتباس

طيب في حالة انتقل عن طريق الماوس ل TextBox اخر .... بنتقل ولا لا ؟؟

الإجابة هى لا لن ينتقل إلى اى مكان اخر إلا بملء الtextbox حتى أنه أيضـًا لن يغلق الform

السلام عليكم يوجد لمربع النص الحدث Validating ويتم استغلاله لاجازة البيانات

اولا لابد من اسناد القيمةCausesValidation = True.لمربع النص

Private Sub txtZip_Validating(ByVal sender As Object, ByVal _
    e As System.ComponentModel.CancelEventArgs) Handles _
    txtZip.Validating
    ' See if the text is 5 digits.
    If Not (txtZip.Text Like "#####") Then
        ' The Zip code is invalid.
        ' Cancel the event moving off of the control.
        e.Cancel = True


        txtZip.Select(0, txtZip.Text.Length)

        ' Give the ErrorProvider the error message to
        ' display.
        ErrorProvider1.SetError(txtZip, "Invalid ZIP code " & _
            "format")
    End If
End Sub

' The ZIP code is valid. Clear the error.
Private Sub txtZip_Validated(ByVal sender As Object, ByVal _
    e As System.EventArgs) Handles txtZip.Validated
    ErrorProvider1.SetError(txtZip, "")
End Sub