Question

我试图在Text Changed事件中使用visual basic程序，当输入值时，程序将存储该值的文本框，当删除该值并输入新值时，它将使用第一个值并与新值比较新值＆gt;从第一个值减去第一个值的新值（新值 - 第一个值），如果新值＆lt;从第一个值开始，它将从新值减去第一个值（第一个值 - 新值），结果是另一个文本框

Dim f As String
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    If TextBox2.Text > f Then
        TextBox18.Text = TextBox2.Text - f
        f = (TextBox2.Text)
    End If

我使这段代码有效，但是当新值为（10）或更大时它不起作用

Answer 1

尝试以下方法：

Dim f As String
Private Sub TextBox2_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
If not string.isnullOrEmpty(TextBox2.Text) Then
If CDbl(TextBox2.Text) > CDbl(f) Then
    TextBox18.Text = CStr(CDbl(TextBox2.Text) - CDbl(f))
    f = TextBox2.Text
End If
End If
End Sub

在visual basic中计算程序

1 个答案: