我如何使这个文本框实时更新

Question

基本上我想要一个这样的文本框:

TextBox5.Text = TextBox4.Text / TextBox2.Text

它工作，但如果我不尝试输入一些东西到文本框，它不会更新。

Answer 1

您可以同时处理TextBox_TextChanged事件，并尝试将字符串解析为double。如果两者都成功，那么进行计算并更新TextBox。

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
doMath()
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
doMath()
End Sub
Private Sub doMath()
Dim tb2 As Double, tb4 As Double
If Double.TryParse(TextBox2.Text, tb2) AndAlso Double.TryParse(TextBox4.Text, tb4) Then
TextBox5.Text = (tb4 / tb2).ToString()
Else
TextBox5.Text = ""
End If
End Sub

当其他两个文本框都是有效的双精度时，该文本框将立即更新商数。

记住不要尝试使用字符串做数学运算。你可能想把Option Strict On放在代码文件的顶部这样编译器就会告诉你不能用这样的字符串做数学运算TextBox4.Text / TextBox2.Text