'只允许输入数字
private sub txtbox_keypress()sub txtbox_keypress(byval sender as object, byval e as system.windows.forms.keypresseventargs) handles txtbox.keypress
if char.isdigit(e.keychar) or e.keychar = chr(8) then
e.handled = false
else
e.handled = true
end if
end sub