怎么能让VB中的TEXT文本框字能输入数字而不能输入字符?

发布网友发布时间：2023-12-24 00:10

共2个回答

热心网友时间：2024-04-13 10:34

在TEXT文本框的KeyPress事件中添加如下代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub

热心网友时间：2024-04-13 10:30

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii < 58 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com