03-06-13, 06:45 PM
السيد الفاضل تم جل الجزء الاول وهو نوع البيانات المدخلة
ولكن يتبقي الاهم وهو الا يزيد العدد المدخل عن رقم معين من 0 الي 80 مثلا
Private Sub txtBoxesKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not allowedChars.Contains(e.KeyChar) Then
If Val(TextBox3.Text) < 80 Then
e.Handled = True
Else
e.Handled = False
End If
End If
End Sub
ولكن يتبقي الاهم وهو الا يزيد العدد المدخل عن رقم معين من 0 الي 80 مثلا
Private Sub txtBoxesKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not allowedChars.Contains(e.KeyChar) Then
If Val(TextBox3.Text) < 80 Then
e.Handled = True
Else
e.Handled = False
End If
End If
End Sub

