已启用文本框在更改或ddbclick事件中没有响应

Question

    Sub LMtgAmt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim ProgError
    Dim TxtBox As MSForms.TextBox
    Set TxtBox = LMtgAmt
    MsgBox "in click"
    ' first variable is the control - textbox
    'the second variable is the topic:Mortgage =1, PSE = 2, Tacom Ut = 3...
    'The third variable is 1 for Todd and 2 for Linell
    ProgError = Processpayment(TxtBox, "1", "2")
    Exit Sub
End Sub
Sub LMtgAmt_Change()
    Dim ProgError
    Dim TxtBox As MSForms.TextBox
    Set TxtBox = LMtgAmt
    MsgBox "in Change"
    ' first variable is the control - textbox
    'the second variable is the topic:Mortgage =1, PSE = 2, Tacom Ut = 3...
    'The third variable is 1 for Todd and 2 for Linell
    ProgError = Processpayment(TxtBox, "1", "2")
End Sub

Answer 1

除了剪切和替换所有16个文本框之外，我无法找到治疗方法。这解决了问题，但没有找到退出工作的理由。