窗口的输入框的KeyPress事件:
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) Then '如果输入的是符号或者标点 e.Cancel = True '则取消此次字符输入ElseIf Char.IsLower(e.KeyChar) Then '如果输入的是小写字母 e.Cancel = True '同样取消此次字符输入 e.Sender.SelectedText = e.KeyChar.ToUpper '同时插入该字符的大写形式End If