[ناجي إبراهيم]

السلام عليكم...


أ. كود قبول أعداد صحيحة فقط - نضع الكود التالي في الحدث 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

نرجو الاستفادة و السلام.