Question

vb怎样让文本框自动求值

例如有四个文本框，分别为进价、数量、售价、利润
如何让其填完前三个文本框，第四个文本框就能自动出值呢？

Answer 1

可以在第三个文本框中加入LostFoucus事件(建议),或KeyPressed事件谈袭
离开第三个文本框时就开洞粗始运算含颤兄
利润=(售价-进价)*数量

Answer 2

'text1为进价，text2为售价，text3为数森宽量，text4为利颂知润此樱亮

Private Sub Countd()
Text4.Text = (Val(Text2.Text) - Val(Text1.Text)) * Val(Text3.Text)
End Sub

Private Sub Text1_LostFocus()
Countd
End Sub

Private Sub Text2_LostFocus()
Countd
End Sub

Private Sub Text3_LostFocus()
Countd
End Sub

Answer 3

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private sub lirun()
if text1.text<>"" and text2.text<>"" and text3.text<>"" then
text4.text=(val(text1.text)-val(text2.text))*val(text3.text)
end if
End sub

Private Sub Text1_Change()
lirun
End Sub

Private Sub Text2_Change()
lirun
End Sub

Private Sub Text3_Change()
lirun
End Sub

text1为哪此售价，text2为进价世缓郑，text3为数量，text4为搜颂利润