Question

用VB编写一个程序，实现用户键入检查功能。当一个文本框获得焦点时，系统给出输入提示。当用户

在该文本框输入了非数字后，接着要进行其他操作时，系统给出出错信息。（提示）该程序需要使用VB提供的关于焦点操作LostFocus。其中判断用户输入的是否为数字，可以使用Numeric函数。

Answer 1

不知道你要的是什么版本，以下代码适用于VB6：

Private Sub Text1_GotFocus()
Label1.Caption = "请输入"
End Sub

Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then Label1.Caption = "你输入的不是数字！"
End Sub

需要一个文本框Text1配合一个标签Label1来使用。

追问

为什么像你那样打好像没什么反应

追答

如果窗体上只有一个文本框控件，那么这个文本框控件的“失去焦点”（即LostFocus）事件是不会发生的，因为它的焦点始终无法失去啊，这样的话题目中要求的“接着要进行其他操作时”也就不可能存在了。一定要再加一个可以获取焦点的控件（比如另一个文本框Text2），当把Text1的焦点转移到Text2时，Text1的LostFocus事件才会触发。