VB中,在Text中输入后回车听见“咚”声!
题目:编辑能简单加法A+B=C的程序,例如1+2=3问题:我在text2输入数字后回车,没在text3中得到答案,并且有“咚”声,焦点没有转移,这是为什么?我应该怎么做?...
题目:编辑能简单加法A+B=C的程序,例如1+2=3
问题:我在text2输入数字后回车,没在text3中得到答案,并且有“咚”声,焦点没有转移,这是为什么?我应该怎么做?
这是我的代码:
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text2) Then
Text2 = ""
End If
End If
End Sub
Private Sub Text3_GotFocus()
Text3 = Val(Text1) + Val(Text2)
End Sub
加这句If KeyAscii = 13 Then KeyAscii = 0 ?
那原来的If KeyAscii = 13 Then 还需要吗?
能说具体一点吗,谢谢!!!(你可以在我写的代码上修改!!!) 展开
问题:我在text2输入数字后回车,没在text3中得到答案,并且有“咚”声,焦点没有转移,这是为什么?我应该怎么做?
这是我的代码:
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text2) Then
Text2 = ""
End If
End If
End Sub
Private Sub Text3_GotFocus()
Text3 = Val(Text1) + Val(Text2)
End Sub
加这句If KeyAscii = 13 Then KeyAscii = 0 ?
那原来的If KeyAscii = 13 Then 还需要吗?
能说具体一点吗,谢谢!!!(你可以在我写的代码上修改!!!) 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询