Vb.net VB中的强制约束

Vb.net VB中的强制约束,vb.net,visual-studio-2010,visual-studio,Vb.net,Visual Studio 2010,Visual Studio,最后一个问题 如果我想要强制执行约束,例如,我只想要字母或数字 我该怎么做 Public Property HealthCardNumber() As String Get Return _HealthCardNumber End Get Set(ByVal value As String) _HealthCardNumber = value End Set End Property 谢谢您可以使用正则表达式执行此操作: Publ

最后一个问题

如果我想要强制执行约束,例如,我只想要字母或数字

我该怎么做

Public Property HealthCardNumber() As String
    Get
        Return _HealthCardNumber
    End Get
    Set(ByVal value As String)
        _HealthCardNumber = value
    End Set
End Property

谢谢

您可以使用正则表达式执行此操作:

Public Property HealthCardNumber() As String
  Get
    Return _HealthCardNumber
  End Get
  Set(ByVal value As String)
    Set validatorRegex = CreateObject("VBScript.RegExp")
    validatorRegex.IgnoreCase = True
    validatorRegex.Pattern = "^[a-z0-9]+$"
    validatorRegex.Global = True

    If validatorRegex.Test(value) Then
       _HealthCardNumber = value
    Else
       ' throw invalid value exception, or do whatever you think is appropriate
    End If
  End Set
End Property
上面的示例将匹配字母和/或数字的任意组合字符串

如果您只需要字母,可以使用以下正则表达式:
^[a-z]+$

如果您只需要数字,可以使用以下正则表达式:
^[0-9]+$


对于其他更具体的情况,您可以查找有关正则表达式和字符类的信息。

您可以使用正则表达式:

Public Property HealthCardNumber() As String
  Get
    Return _HealthCardNumber
  End Get
  Set(ByVal value As String)
    Set validatorRegex = CreateObject("VBScript.RegExp")
    validatorRegex.IgnoreCase = True
    validatorRegex.Pattern = "^[a-z0-9]+$"
    validatorRegex.Global = True

    If validatorRegex.Test(value) Then
       _HealthCardNumber = value
    Else
       ' throw invalid value exception, or do whatever you think is appropriate
    End If
  End Set
End Property
上面的示例将匹配字母和/或数字的任意组合字符串

如果您只需要字母,可以使用以下正则表达式:
^[a-z]+$

如果您只需要数字,可以使用以下正则表达式:
^[0-9]+$


对于其他更具体的情况,您可以查找有关正则表达式和字符类的信息。

您可以使用正则表达式:

Public Property HealthCardNumber() As String
  Get
    Return _HealthCardNumber
  End Get
  Set(ByVal value As String)
    Set validatorRegex = CreateObject("VBScript.RegExp")
    validatorRegex.IgnoreCase = True
    validatorRegex.Pattern = "^[a-z0-9]+$"
    validatorRegex.Global = True

    If validatorRegex.Test(value) Then
       _HealthCardNumber = value
    Else
       ' throw invalid value exception, or do whatever you think is appropriate
    End If
  End Set
End Property
上面的示例将匹配字母和/或数字的任意组合字符串

如果您只需要字母,可以使用以下正则表达式:
^[a-z]+$

如果您只需要数字,可以使用以下正则表达式:
^[0-9]+$


对于其他更具体的情况,您可以查找有关正则表达式和字符类的信息。

您可以使用正则表达式:

Public Property HealthCardNumber() As String
  Get
    Return _HealthCardNumber
  End Get
  Set(ByVal value As String)
    Set validatorRegex = CreateObject("VBScript.RegExp")
    validatorRegex.IgnoreCase = True
    validatorRegex.Pattern = "^[a-z0-9]+$"
    validatorRegex.Global = True

    If validatorRegex.Test(value) Then
       _HealthCardNumber = value
    Else
       ' throw invalid value exception, or do whatever you think is appropriate
    End If
  End Set
End Property
上面的示例将匹配字母和/或数字的任意组合字符串

如果您只需要字母,可以使用以下正则表达式:
^[a-z]+$

如果您只需要数字,可以使用以下正则表达式:
^[0-9]+$

对于其他更具体的情况,您可以查找有关正则表达式和字符类的信息