Dim ncb As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
If e.sender.Text = "退格" If ncb.text.length > 0 ncb.text = left( ncb.text ,ncb.text.length-1 ) End If e.cancel = True Else If e.sender.name.contains("NumericComboBox1") = False ncb.text = ncb.text & e.sender.text End If End If