Question

vb 文本框 文本输入错误后 选择文本内容 并重新输入 而不会按下回车键后进入下一个文本

如何实现 vb 文本框 文本输入错误后 选择文本内容 并重新输入
而不会按下回车键后进入下一个文本
Private Sub TextBox4_AfterUpdate()
Call Fuzhi
If TextBox4.Text = "0" Then
MsgBox "中厚不能为0!"
Else
TextBox7.Text = EdgeThickness
If Val(TextBox7.Text) <= 0 Then
MsgBox "边厚少于或等于0,请重新输入d:"

TextBox4.SelStart = 0
TextBox4.SelLength = Len(TextBox4.Text)
TextBox4.SetFocus
End If
End If
End Sub
为什么我用TextBox4.SelStart = 0
TextBox4.SelLength = Len(TextBox4.Text)
TextBox4.SetFocus
还是不行,按回车后,错误信息会弹出来,但是光标会移动到下一个文本框

Answer 1

把TextBox4.SetFocus放在前面如下：

TextBox4.SetFocus
TextBox4.SelStart = 0
TextBox4.SelLength = Len(TextBox4.Text)