vba窗体中如何将多个textbox的值用固定的字符串连接起来输入到指定的textbox

Question

比如已知：
textbox1.value=x
textbox2.value=y
textbox3.value=z
我需要达到的效果是：
textbox4.value=根据已知数据，长度为x,宽度为y,计算得到面积为z

Answer 1

Private Sub TextBox1_Change()
    Cal
End Sub

Private Sub TextBox2_Change()
    Cal
End Sub


Sub Cal()
    On Error GoTo ErrorLab
    x = Me.TextBox1.Text
    y = Me.TextBox2.Text
    If x = "" Or y = "" Then
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Exit Sub
    End If
    Z = x * y
    Me.TextBox3.Text = Z
    Me.TextBox4.Text = "根据已知数据，长度为" & x & ",宽度为" & y & ",计算得到面积为" & Z
    '如果正常可以退出下面的异常处理
    Exit Sub
ErrorLab:   '这里可以处理异常
    Me.TextBox3.Text = ""
    Me.TextBox4.Text = Error
End Sub