VB限制窗体内所有文本框为空

最新推荐文章于 2023-05-19 19:00:53 发布

原创

最新推荐文章于 2023-05-19 19:00:53 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #textbox #each

在VB开发中，为提高效率，通常需要批量判断窗体中的多个文本框是否为空。文中介绍了一种从窗体控件角度出发的方法，通过循环检查避免逐个文本框判断。虽然在有允许空的文本框情况下需调整，但整体思路提供了一种解决方案。此外，还讨论了创建函数进行选择性判断文本框的设想，但目前尚未解决如何实现。

做系统的时候经常遇到限制窗体中文本框为空的情况，如果逐个判断代码写起来会很慢，想了个比较简单的方法，从窗体控件的角度出发。

代码如下：

Private Sub cmdOk_Click()
    Dim s As Control
    Dim frm As Form
    For Each s In frm
        If TypeOf s Is TextBox Then
            MsgBox "输入不能为空"
            Exit Sub
        End If
    Next
End Sub

如果窗体中有一个文本框允许空，就不行了，所以还得进一步思考一下。

跟德鹏商量后得出下面这个代码：

Public Sub IsEmpty(pForm As Form)        '模块中定义公有过程判断窗体中的文本框有否有为空的
    Dim a As Control
      
    For Each a In pForm.Controls         '对窗体中的控件逐个遍历
        If a.Name = "txtSno" Then        '判断控件的名称，根据名称进行操作
            If a.Text = "" Then
                MsgBox "学号不能为空", vbOKOnly, "错误"
            End If
        ElseIf a.Name =