窗口全局事件:click
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