重构代码－随笔（1）

原始代码：

    If txtSchool.Text = "" Then
        MsgBox "请输入注册单位!", vbInformation
        CheckRegText = False
        txtSchool.SetFocus
        Exit Function
    End If

1：len(txtSchool.Text)  要比 txtSchool.Text=""快的多。

2：为txtSchool.Text加上Trim

3：去除txtSchool的重复。

结果：

1：StringIsEmpty函数

'判断字符串的长度是否为空
Public Function StringIsEmpty(ByRef sString As String) As Boolean
    sString = Trim(sString)
    StringIsEmpty = Len(sString) = 0
End Function

2：TextBoxIsEmpty函数

'文本框为空
Private Function TextBoxIsEmpty(oTextBox As TextBox, sMessage As String) AS Boolean
    If StringIsEmpty(oTextBox.Text) Then
        MsgBox sMessage, vbInformation
        oTextBox.SetFocus
        TextBoxIsEmpty = True
    End If
End Function

3：最终效果

    If TextBoxIsEmpty(txtPerson, "请输入注册人!") Then Exit Function
    
    If TextBoxIsEmpty(txtConn, "请输入联系电话!") Then Exit Function
    
    If TextBoxIsEmpty(txtSchool, "请输入注册单位!") Then Exit Function