www.pc3enter.tk
یک شنبه 08 اسفند 1395, 13:06 عصر
این یکی از راحت ترین کاری که می تونید انجام دهید تا دیگر در تکس باکس کاربر بتونه عدد وارد کند
فقط کد را کپی کنید
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8, 13
Case Else: KeyAscii = 0
End Select
end sub
و این هم فقط برای زبان فارسی هست
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 129 To 237, 8, 32
Case Else: KeyAscii = 0
end sub
فقط کد را کپی کنید
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8, 13
Case Else: KeyAscii = 0
End Select
end sub
و این هم فقط برای زبان فارسی هست
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 129 To 237, 8, 32
Case Else: KeyAscii = 0
end sub