如下在vb.net中，if asc（e.keychar）=13有错误？该怎么解决呢？

Question

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.KeyPress If Asc(e.keychar) = 13 Then If Not IsNumeric(TextBox2.Text) Then TextBox2.Text = "" TextBox2.Focus() End If End If End Sub

Answer 1

把ByVal e as System.EventArgs改为ByVal e As System.Windows.Forms.KeyPressEventArgs即可

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress    If Asc(e.KeyChar) = 13 Then        If Not IsNumeric(TextBox2.Text) Then            TextBox2.Text = ""            TextBox2.Focus()        End If    End IfEnd Sub