كد زير فقط مي توان حروف در textنوشت و عدد نمي توان نوشت. روي textbox.text كليك مكنيم 2 بار و رويداد keyprss را انتخاب مي كنيم و كد زير را تايپ مي كنيم
Private Sub text1.text_KeyPress(KeyAscii As Integer))
' Select Case KeyAscii
' Case vbKeyDelete
' Case vbKeyBack
' Case 65 To 90
' Case 97 To 122
' Case Else
' Beep
' KeyAscii = 0
' End Select
End Sub
اين برنامه براي زماني مفيد است كه نخواهيم از اعداد استفاده كنيم
منتظر كد بعدي باشيد.
Private Sub text1.text_KeyPress(KeyAscii As Integer))
' Select Case KeyAscii
' Case vbKeyDelete
' Case vbKeyBack
' Case 65 To 90
' Case 97 To 122
' Case Else
' Beep
' KeyAscii = 0
' End Select
End Sub
اين برنامه براي زماني مفيد است كه نخواهيم از اعداد استفاده كنيم
منتظر كد بعدي باشيد.
آخرین ویرایش: