如何从另一种形式调用公共函数

Question

Frm1包含验证textbox的代码：

Public Function AlphabeticalOnly(ByVal Str As String) As Boolean
    Dim pattern As String = "^[a-zA-Z\s]+$"
    Dim reg As New Regex(pattern)
    If reg.IsMatch(Str) = False Then
        MsgBox(Str & " is invalid! Please enter alphabetical characters only!", MsgBoxStyle.Critical, "Error")
    End If
    Return reg.IsMatch(Str)
End Function

因为验证的次数比较多，我不想在其他形式中重复所有代码。

Private Sub btnDone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDone.Click
If AlphabeticalOnly(txtName.Text) = False Then
        Exit Sub
End If
...
End Sub

我用另一种形式尝试了上面的代码，但是错误列表显示AlphabeticalOnly没有声明。

我需要在代码中添加什么吗？

Answer 1

首先，不要把函数放在一个form上。如果是所有表单共享的公共代码，放在自己的类文件中。

其次，此通用代码不应通过消息框提示用户。这个函数应该只是执行逻辑而已。 （这也使函数更容易进行单元测试。）然后允许使用代码（在本例中为表单）与用户交互。 （特别是因为当前的实现检查了两次匹配，这不是必需的。）

由于此函数不依赖对象状态，您可以将其设为Shared。像这样的：

Public Class CommonFunctions
    Public Shared Function IsAlphabeticalOnly(ByVal Str As String) As Boolean
        Dim pattern As String = "^[a-zA-Z\s]+$"
        Dim reg As New Regex(pattern)
        Return reg.IsMatch(Str)
    End Function
End Class

然后您可以在表单上调用该函数：

If CommonFunctions.IsAlphabeticalOnly(txtName.Text) = False Then
    MsgBox(Str & " is invalid! Please enter alphabetical characters only!", MsgBoxStyle.Critical, "Error")
End If