وقتی میخواهیم فقط اعداد را در تکست باکس محدود کنیم و دیگر هیچ کاراکتری در تکست باکس تایپ نشود، از کد زیر استفاده میکنیم.
Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii = 57 Then
Else
KeyAscii = 0
End If
End Sub
برچسبها: تایپ اعداد , Number , Vb6
برچسب : نویسنده : mahdi-gholamia بازدید : 10