Question

vb.net文本框输入后按回车或tab判断是不是数字，不是就跳出提示框，怎么打，我哪里打错啦

Private Sub Text1_LostFocus()

If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
Private Sub Text1_Keypress(ByVal KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 13 Then

If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End If

End Sub

Answer 1

你用的都是vb6的代码，改成：

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub

追问

那按回车的那个怎么改 keycode不对列
还有就是我要写button代码可以双击button 那怎么操作来写lostfocus 和 keypress 呢

追答

按回车的那个我认为是多此一举，LostFocus这个已经实现了，如果需要：
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
'..............
End If
End Sub

你的第二个问题，与VB6相似，你切换到代码窗口，可以看到两个下拉框，左边那个选控件，右边那个选该控件对应的事件