重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把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 If
End Sub
如果不懂,可以追问
望采纳
unicode的回车和换行符
13和10就是它们的ascii码
相当于程序里的vbCrLf
t.Text = (t.Text strTemp vbCrLf)
选“A",因为asc函数是把里面的参数转换为ACS码(A的asc码为65),然后再把右边的数值付给左侧的x变量。所以x等于65。。。