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 = ""