19-09-13, 10:22 PM
السلام عليكم...
أ. كود قبول أعداد صحيحة فقط - نضع الكود التالي في الحدث KeyPress لمربع النص:
ب. كود قبول أعداد حقيقية (بالفاصلة) - نضع الكود التالي في الحدث KeyPress لمربع النص:
نرجو الاستفادة و السلام.
أ. كود قبول أعداد صحيحة فقط - نضع الكود التالي في الحدث KeyPress لمربع النص:
كود :
If KeyAscii > 31 Then
If (KeyAscii < 48) Or (KeyAscii > 57) Then
KeyAscii = 0
End If
End If
ب. كود قبول أعداد حقيقية (بالفاصلة) - نضع الكود التالي في الحدث KeyPress لمربع النص:
كود :
If KeyAscii > 31 Then
If Chr$(KeyAscii) = "." Then
If InStr(Text1.Text, ".") <> 0 Then
If Text1.SelLength > 0 Then
If InStr(Text1.SelText, ".") = 0 Then
KeyAscii = 0
End If
Else
KeyAscii = 0
End If
End If
ElseIf InStr("0123456789", Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
نرجو الاستفادة و السلام.