关于 如何限制textbox只输入数字的问题

hongweibin 2003-08-20 05:56:53
请问 各位高手 如何限制textbox中只能输入数字
...全文
121 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
liul17 2003-08-20
  • 打赏
  • 举报
回复
将下面代码贴入窗体中即可(画个Textbox )
Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (Chr(KeyAscii) > "0" And Chr(KeyAscii) < "9" Or Chr(KeyAscii) = "." Or KeyAscii = vbKeyBack) Then

Else
KeyAscii = 0
End If
End Sub

liangfang 2003-08-20
  • 打赏
  • 举报
回复
Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Beep '不是数字就有声音了
End If
End Sub
haipingma 2003-08-20
  • 打赏
  • 举报
回复
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 32 And KeyAscii <= 45) Or KeyAscii = 47 Or _
(KeyAscii >= 58 And KeyAscii <= 126) Then
KeyAscii = 0
Else
If InStr(1, Text1.Text, ".", vbTextCompare) > 0 And KeyAscii = 46 Then
KeyAscii = 0
End If
End If

End Sub
Hiwax 2003-08-20
  • 打赏
  • 举报
回复
yes
bydisplay 2003-08-20
  • 打赏
  • 举报
回复
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Ancien As String
Ancien = Me.Text2
If KeyAscii = 46 And Text2.Tag <> "R" Then KeyAscii = 0: Exit Sub
If IsNumeric(Me.Text2 & Chr(KeyAscii)) Then
Else
KeyAscii = 0
End If

End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧