if text1.text<>"" then
if not isnumeric(text1.text) then
msgbox "不是数值型数据!",48,"提示"
exit sub
else
if text1.text=int(text1.text) then
msgbox "是整数"
else
msgbox "不是整数"
end if
end if
end if
Public Function sffunLimitNumber(ByVal IntVal As Integer) As Integer
''''-------------------1-------------------
''''目 的:只允许在文本框内输入数字、退格、删除及回车键
''''输 入:ByVal IntVal As Integer,任意的键值
''''被传递值:无
''''返 回 值:过滤后的键值
''''输 出:无
''''注 解:
''''用 法:在文本框的KeyPress事件中输入KeyAscii = sffunLimitNumber(KeyAscii)即可
''''修 订 版:
''''-------------------1-------------------
If (IntVal <> vbKeyDelete) _
And (IntVal <> vbKeyBack) _
And (IntVal <> 13) _
And (IntVal < 48 Or IntVal > 57) Then
IntVal = 0
End If
sffunLimitNumber = IntVal