您所在位置：主题：我又遇到一个奇怪的问题，请大家帮助
聪明一袋烟
[专家分：330] 发布于 2010-09-06 23:29:00
Private Sub Command1_Click()
Print Text1.Text
End Sub
Private Sub Form_Load()
Command1.Default = True
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
这个程序很奇怪，我单击按钮时，文本框中若有非数字型字符则会从新输入，可是我按回车却直接输出（无论文本框中有什么），难道按钮不获得焦点也能被操作吗？请各位高人明示！！！！！！！
Print Text1.Text
End Sub
Private Sub Form_Load()
Command1.Default = True
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
这个程序很奇怪，我单击按钮时，文本框中若有非数字型字符则会从新输入，可是我按回车却直接输出（无论文本框中有什么），难道按钮不获得焦点也能被操作吗？请各位高人明示！！！！！！！
