Question

VB，如何编码设置，让Text1非空。（我已经设了个数字判断语句）

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then

MsgBox "请只输入数字！重新输入"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Answer 1

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then

MsgBox "请只输入数字！重新输入"

Text1.Text = ""

Text1.SetFocus

elseif len(text1.text)=0 then
MsgBox "输入不能为空！重新输入"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

如果是为了防止文本框失去焦点时依然为空,可以在失去焦点事件里加入验证判断语句!

Answer 2

Private Sub Text1_Change()
Static flag As Boolean
If flag Then Exit Sub
flag = True
If Not IsNumeric(Text1.Text) Then
If Text1.Text <> "" Then
MsgBox "请只输入数字！重新输入"
Text1.Text = ""
Else
MsgBox "不能为空！"
End If
Text1.SetFocus
End If
flag = False
End Sub

Answer 3

If Not IsNumeric(Text1.Text) Then
MsgBox "请只输入数字！重新输入"
Text1.SetFocus
End If

’Text1.Text = ""