27-12-17, 02:23 PM
If Not IsNumeric(TextBox3.Text) Then
MessageBox.Show("يجب كتابة ارقام فقط!")
TextBox3.Text = ""
Exit Sub
End If
Or
'هنا التأكد من القيمة الموجودة في التكست
If Val(TextBox3.Text) > 20000 Or Val(TextBox3.Text) < 0 Then
MsgBox("عفواً.. يجب ان تكون القيمة ابتداءً من 0 حتى 20000")
TextBox3.Text = ""
End If
MessageBox.Show("يجب كتابة ارقام فقط!")
TextBox3.Text = ""
Exit Sub
End If
Or
'هنا التأكد من القيمة الموجودة في التكست
If Val(TextBox3.Text) > 20000 Or Val(TextBox3.Text) < 0 Then
MsgBox("عفواً.. يجب ان تكون القيمة ابتداءً من 0 حتى 20000")
TextBox3.Text = ""
End If
(وَقُل رَّبِّ زِدْنِي عِلْمًا)