VB中两个文本框之间的计算

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:21:20
我要两个文本框，其中任何一个的数字等于10000减去另一个的。
我碰到的最大麻烦是，当我把一个框中的数据全部退格删除时，另一个不是10000而是报告“实时错误”13，类型不匹配。
小妹再次感激先感谢高手哥哥姐姐了！

Private Sub Text1_Change()
Text2 = 10000 - Val(Text1)
End Sub

Private Sub Text2_Change()
Text1 = 10000 - Val(Text2)
End Sub

加一个判断框中是否为空的,为空时不用计算就行了.
if Edit1.Text<>'' then
Edit2.Text=CStr(10000-CInt(Edit1.Text))
End If

最好还是都转换成数字型在进行计算..这样不会出错

private sub text1_change()
text3=val(text1)-val(text2)
end sub

private sub text2_change()
text3=val(text1)-val(text2)
end sub