# Re: 有关字串及数字

Posted by Someone on December 25, 1998 at 08:44:35:

In Reply to: 有关字串及数字 posted by 仔仔 on December 24, 1998 at 21:24:35:

: 我只是个初学者，以下有二个笨问题想问问各位高手，希望能为我解答，谢谢!
: 一、假如写了一个数学程式而一个运算式中应当不会出现字串，例如:Val (text1)=Val(text2)+Val(text3)中，其中text2和text3中应该填入一个数值，但是如果填入者为一字串时，程式会因发生错误而关闭，我想在这时蹦现出一个msgbox以跳过这种错误发生避免程式的关闭时，我该怎么写这段程式呢?

A:
分别在Text2与Text3的KeyPress事件下加入
If Not (Chr(KeyAscii) Like "[0-9.]") Then
MsgBox "此栏只允许输入数字与小数点。", vbCritical, "输入错误"
KeyAscii = 0 '此行加入KeyAscii = 0可让非数字按键不显示出来
End If

Follow Ups:

- Re:Re: 有关字串及数字 仔仔 19:01:34 12/25/98 (2)
  - Image 闪动问题无解 小吴 15:46:03 12/29/98 (1)
    - Re: Image 闪动问题无解 仔仔 21:27:35 12/29/98 (0)