重構代碼－隨筆（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