28-11-17, 11:45 AM
هذا الكود يقوم بمسح محتوى التيكست عندما تقوم القيمة غير مناسبة
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Val(TextBox1.Text) > 20 Or Val(TextBox1.Text) < 0 Then
TextBox1.Text = ""
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Val(TextBox1.Text) > 20 Or Val(TextBox1.Text) < 0 Then
TextBox1.Text = ""
End If
End Sub