‘文本框中屏蔽q 或 Q If Asc(e.KeyChar) = 81 Or Asc(e.KeyChar) = 113 Thene.KeyChar = ""End If'在Button1_KeyDown下代码:If e.KeyCode = Keys.E ThenButton1.PerformClick()End If