Dim WYY As Integer
Dim WMM As Integer
WYY = Year(Today)
WMM = Month(Today)
Messagebox提示信息的返回值MsgBoxResult.Yes
增加一个事件(相当于重载)
AddHandler _txtHjiMinValue_0.TextChanged, AddressOf numTxtBox_TextChanged
删除一个事件
RemoveHandler _txtHjiMinValue_0.TextChanged, AddressOf numTxtBox_TextChanged
Keydown的key.value,8是backspace,46是delete
Keypress的时候,忽略输入字符
If e.KeyChar < Chr(Keys.D0) Or e.KeyChar > Chr(Keys.D9) Then
e.KeyChar = Chr(Keys.None)
'或者
'e.Handle = false
'else
'e.Handle=true
End If