وقتی میخواهیم فقط اعداد را در تکست باکس محدود کنیم و دیگر هیچ کاراکتری در تکست باکس تایپ نشود، از کد زیر استفاده میکنیم.
Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub
جمعه دوم تیر ۱۳۹۶ | 12:6
من مهدی غلامی میاندهی کارشناس نرم افزار کامپیوتر و دانشجوی کارشناسی ارشد هستم . امیدوارم لحظات خوبی را در این وبلاگ داشته باشید.