vb怎样控制一个文本框的输入数值不能是零，且不能为空

新手求教

推荐答案 2011-03-06

在你使用文本框数据的过程中加入判断代码，如：
Private Sub Command1_Click()
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "不能为空！"
Text1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = 0 Then
MsgBox "不能为零！"
Text1.SetFocus
Exit Sub
End If
'这里写你要执行的代码
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://11.wendadaohang.com/zd/P88SqM4SM.html

其他回答

第1个回答 2011-03-06

if Text1.text<>0 and Text1.text<>"" then这样就行了

相似回答

怎样在一个vb的程序中的文本输入框中限制所输入的内容?答：如果在“失去焦点”的事件中触发，会在不希望的时候也触发选用Change较好 Private Sub Text1_Change()If Not IsNumeric(Text1.Text) Then MsgBox "不是数字型的！"Text1.Text = ""Else If Val(Text1.Text) < 0 Or Val(Text1.Text) > 2000 Then MsgBox "范围越界！"Text1.Text = ""End...

大家正在搜

vb在文本框中输入文本 vb文本框能输入下列 vb文本框最多输入6个字符 vb哪个是文本框控件 vb怎么在文本框里面输出 vb怎样将文本框消失 VB文本框输入数据范围 vb文本框显示数值 vb设置文本框不可见