Private Sub TextBox7_KeyPress(ByVal sender 清空As Object, ByVal e 答斗瞎As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress Dim c As Char 销谈 c = e.KeyChar If Not Char.IsLetterOrDigit(c) Then e.Handled = True Beep() End If End Sub