Question

VB文本框光标自动返回代码求助?

如果文本框中输入的数不在0和255之间，弹出一个对话框，点确定，然后光标又自动返回文本框，这样的程序怎么写？主要的问题是光标自动返回文本框

Answer 1

Private Sub Command1_Click()
If Text1.Text > 255 Or Text1.Text < 0 Then
MsgBox "弹出一个对话框"
Text1.SetFocus '设置焦点，即返回文本框
End If
End Sub

Answer 2

if 0<val(text1.text)<255 then
msgbox "输入的数不在0和255之间"
text1.setfocus
end if

Answer 3

Private Sub Command1_Click()
If Val(Text1.Text) < 0 Or Val(Text1.Text) > 255 Then
MsgBox "请输入一个0到255之间的数字！"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Answer 4

ertyuiop[