20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: VB输入过滤

作者: DIY [gongguyu]

论坛用户

Private Sub Command1_Click()
For j = 0 To 7
If Text1(j) = "" Then
ss = MsgBox(Label1(j).Caption & "不能为空", vbExclamation + vbOKOnly, "警告")
Text1(j).SetFocus
Text1(j).SelStart = 0
Text1(j).SelLength = Len(Text1(j).Text)
Exit Sub
End If

大概就是这样，j是个什么东西呀！是不是text1的数量，
Text1(j).SelLength = Len(Text1(j).Text) 这句是什么意思

[此贴被 DIY(gongguyu) 在 01月28日12时18分编辑过]

地主发表时间: 08-01-28 09:19

回复: jhkdiy [jhkdiy]

版主

j在这里代表控件数组下标，当建立多个控件时可以建立控件数组。
Text1(j).SelLength = Len(Text1(j).Text)
这句的意思是将text1(j)这个控件中的文本全部选中。

B1层发表时间: 08-01-28 21:11

回复: DIY [gongguyu]

论坛用户

谢谢你的回复
如果有N个text1 控件，用户输入而且都不能为空，请问怎么样用这个控件数组去校验这个表单!
详细代码要如何写！请版主帮忙指点，本人刚学！

B2层发表时间: 08-01-30 08:53

回复: jhkdiy [jhkdiy]

版主

代码:


Private Sub Command1_Click()
    
    Dim i As Integer
    
    '下面的代码可以不必理会建立了多少个
    '控件，利用count属性获取控件个数
    For i = 0 To Text1.Count
        If Trim(Text1(i).Text) = Empty Then
            MsgBox "文本框的内容不能为空！"
            Text1(i).SetFocus
            Exit Sub
        End If
    Next
    
End Sub

[此贴被 jhkdiy(jhkdiy) 在 02月02日00时32分编辑过]

B3层发表时间: 08-02-02 00:32

论坛: 编程破解