都在一个按钮里检测，怎么弄？
按钮内容
检测text1 text2 text3 text4 .....text10
是否为空
vb 一个命令按钮检测N个text是否为空
答案:2 悬赏:20 手机版
解决时间 2021-07-31 04:03
- 提问者网友：做自己de王妃
- 2021-07-30 06:41
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-07-30 08:13
你可以用数组控件
也就是添加一个text1,然后复制一下,粘贴N个
这样就可以这样用
Dim i As Long
i = Text1.Count
For i = 0 To i
If Text1(i).Text = "" Then MsgBox "这个是空的": Exit Sub
Next i
全部回答
- 1楼网友：零点过十分
- 2021-07-30 08:28
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Text1.Count - 1
If Text1(i).Text = "" Then
MsgBox i & "项不能为空,请重新输入"
Exit Sub
End If
Next
End Sub
Private Sub Form_Load()
Dim j As Integer
For j = 0 To Text1.Count - 1
Text1(j).PasswordChar = "*"
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯