Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
If KeyAscii >= 32 And KeyAscii <= 47 Then
KeyAscii = 0
Beep 'Beep表示PC喇叭会响一声
End If
End Sub

这样依然可以输入汉字的，请问要如何修改才可以做到只允许输入数字？

[此贴子已经被作者于2007-9-30 22:05:56编辑过]

Private Sub Text1_KeyPress(index as integer,KeyAscii As Integer)
if index=0 or index=3 then
if keyascii<48 and keyascii<>13 and keyascii<>8 then
keyascii=0
msgbox "输入字符必须在0到9之间",48,"提示"
elseif keyascii >57 and keyascii<>13 and keyascii<>8 then
keyascii=0
msgbox "输入字符必须在0到9之间",48,"提示"
end if
end if
end sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack '允许0-9数字和退格键
Case Asc(".") '允许一个小数点
If InStr(1, Text1, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
Beep '其他的发出Beep声音
End Select
End Sub

这个有错哦

编译错误:
过程声明与同名事件或过程的描述不匹配

[此贴子已经被作者于2007-9-30 20:32:45编辑过]

谢谢

他那个text1是控件数组，你不会自己把index去掉么。