永发信息网

vb代码问题 我不知道怎么回事

答案:3  悬赏:0  手机版
解决时间 2021-06-03 16:14

Private Sub Command1_Click()

If Length(Text1.Text) < 5 Then
MsgBox "请输入内容"
End If

这句话怎么弄?? 那里不正确 我就是意思是: 按提交按钮,假如文本框没有输入文本 则提示请输入内容" 请问要怎么弄啊?

最佳答案
Private Sub Command1_Click()
If Len(Text1.Text) < 5 Then '函数名是Len而不是Length
MsgBox "NO"
End If
End Sub
全部回答

楼上对了:

Private Sub Command1_Click()

If Text1.Text="" Then MsgBox "请输入内容" End If

我也常这样写,简单!

Private Sub Command1_Click()

If Text1.Text="" Then MsgBox "请输入内容" End If

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
黄陂区武汉中国电信(国美合作营业厅)这个地址
现在到底用不用换WIN7啊?给点意见嘛~~~
大话西游宝宝看下
下水道的盖子为什么是圆的
怎样才能让记忆力增加?
爱情的游戏能结束么?
我想要冷静该怎么办
马桶包装袋一般多大的规格
让胡路区大庆百丝特洗衣鞋吧(东湖店)地址有谁
罗志祥的< 呛司呛司>我想整成空间的背景音乐
求鲈鱼的经典做法?
开通50年蓝钻多少钱?
什么样的问题是永恒的?
为什么我的DNF总是被扒
求一首歌!谢谢了!
推荐资讯
姐姐,妹妹的英语不好怎么办
六横六竖[猜一字]
兰州那里看妇科好
一累或者熬夜什么的就低烧是什么原因 每个人
我爱李富兴?
企业现场部门的概念是什么?
硚口区武汉百丽国际(美奇国际广场店)地址在哪
DNF安检之后没有游戏出来 怎么办
问中问!!
开发黄河,治理水患,在上、中、下游的侧重点
谁有金山毒霸2009免费通行证和密码,有的发个
地下城的挂那个好??
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?