请教大虾一个问题

webptg 2000-01-04 10:40:00
谁有用于text控件只能接收数字的代码?
当然也可接收方向键、删除键、退格键,
我希望text控件能滤掉那些不能转化为数字的
字符。

...全文
242 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
GoldWood 2000-01-04
  • 打赏
  • 举报
回复
Private Sub Text10_Change()
Dim a As String, x As String, Y As String, b As Integer, i As Integer

a = Text10.Text
b = Len(a)
x = a
Y = a

If b > 0 Then
For i = 1 To b
If Asc(Mid(x, i, 1)) < 48 Or Asc(Mid(x, i, 1)) > 57 Then
If b - i - 1 < 0 Then
Y = Left(a, b - 1)
ElseIf i = 1 Then
Y = Right(a, b - 1)
Else
Y = Left(a, i - 1) + Right(a, b - i)
End If
End If
Next i
End If

Text10.Text = a
End Sub
jco 2000-01-04
  • 打赏
  • 举报
回复
在text的keyPress事件中加入
If KeyAscii = vbKeyTab Or KeyAscii = vbKeyBack Then Exit Sub
Dim a As String
a = Chr(KeyAscii)
If IsNumeric(a) = False And a <> vbkeybackup Then KeyAscii = 0

7,759

社区成员

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

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