Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged, TextBox9.TextChanged, TextBox10.TextChanged, TextBox11.TextChanged, TextBox12.TextChanged
Dim a, c As Integer
Dim b As String '暂存变量
Label13.Text = "0.00" '储存结果变量
If TextBox12.Text = "" Then TextBox12.Text = "0"
Label12.Text = My.Settings.absent * TextBox12.Text
Label13.Text = Val(Label8.Text) + Val(Label9.Text) + Val(Label10.Text) + (Val(Label11.Text) * My.Settings.ot) - (Val(Label12.Text) * My.Settings.absent)
End Sub
My.Settings.absent=10(不会变)
每当TextBox8.TextChanged, TextBox9.TextChanged, TextBox10.TextChanged, TextBox11.TextChanged, TextBox12.TextChanged的时候,label13就会自动计算全部的值。
当时是label12的值会根据textbox的值改变。原本label12的值是(11*10)=110,当有textbox值变化时,label12.text就会变成11(没有乘10).为什么label12的值无法乘My.Settings.absent的值。