[الحازمي]

أخي بكري

فكرة أخرى بعد فكرة أخي ابراهيم

ممكن تعمل على تغير لو خلفية التيكست بوكس حسب الشرط أو تظهر علامة خطأ بجواره

طريقة تغير خلفية التيكست بوكس مثل

PHP كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Static st As Boolean = False
    If sender.Text.Trim.Length >= 3 Then st = True
    If Not st Then Return
    If sender.Text.Trim.Length < 3 Or sender.Text.Trim.Length > 20 Then
        sender.BackColor = Color.Pink
    Else
        sender.BackColor = Nothing
    End If
End Sub
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
    If sender.Text.Trim.Length < 3 Or sender.Text.Trim.Length > 20 Then
        sender.BackColor = Color.Pink
    End If
    sender.Text = sender.Text.Trim
End Sub 


طريقة ظهور علامة خطأ بجوار التيكست بوكس مثل

PHP كود :

Dim epTextBox1 As New ErrorProvider
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Static st As Boolean = False
    If sender.Text.Trim.Length >= 3 Then st = True
    If Not st Then Return
    If sender.Text.Trim.Length < 3 Or sender.Text.Trim.Length > 20 Then
        epTextBox1.SetError(sender, "يجب إدخال بين 3 و 20 حرف")
    Else
        epTextBox1.SetError(sender, Nothing)
    End If
End Sub
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
    If sender.Text.Trim.Length < 3 Or sender.Text.Trim.Length > 20 Then
        epTextBox1.SetError(sender, "يجب إدخال بين 3 و 20 حرف")
    End If
    sender.Text = sender.Text.Trim
End Sub 


أخي بكري
إن كان هناك ما تريد أن تستفسر عنه في هذين الكودين فأخبرني