我想在 vb6 中验证手机号码

Question

我验证手机号码，但我希望手机号码应以 7,8,9 digits 开头。我想验证手机号码应仅以 7,8,9 digits 开头。

If Len(TextBox11.Text) < 10 Or Len(TextBox11.Text) > 10 Then
                MsgBox("Enter the phone number in 10 digits!", vbExclamation, "")

此代码提供 10 digits 验证，但手机号码应以 7,8,9 digits 开头。

Answer 1

If Len(TextBox11.Text) <> 10 Or Left(TextBox11.Text, 1) <> "7" or Left(TextBox11.Text, 1) <> "8" or Left(TextBox11.Text, 1) <> "9" Then
                MsgBox("Enter the phone number in 10 digits!", vbExclamation, "")
End If

RegEx 是一种进行复杂验证的方法。它位于称为 Microsoft Regular Expressions 5.5 的 VBScript 库中。

[7-9]\d{9}$

7 到 9 之间的数字 [7-9]，后跟数字 \d，应该有 9 个 {9}。 $ 标记输入结束，因此如果超过 10 个字符将不匹配。

Answer 2

我用这个代码很好用

Dim MobileNumber As New Regex("^[7-9][0-9]*")
                If MobileNumber.IsMatch(TextBox11.Text) Then
MsgBox("Valid Mobile number")
else
MsgBox("Not Valid Mobile number")
                End If

Answer 3

10位数字，从7,8,9开始

isValid = TextBox11.Text like "[789]#########"

if (not isValid) then
    msgbox "Invalid"
...

Answer 4

Private Sub Text5_Validate(Cancel As Boolean)
     If (Len(Text5.Text) < 10 Or Len(Text5.Text) > 10) Then
         MsgBox "Enter the phone number in 10 digits!", vbExclamation, ""
     End If
End Sub

Answer 5

Private Sub Text7_LostFocus()
  Dim CHAR As Integer
  Dim TELEPHONE As String
  TELEPHONE = Val(Text7.Text)
  CHAR = Left(TELEPHONE, 1)
  If CHAR < 7 Then
    Msg("ENTR THE CORRECT  MOBILE NUMBER")
    Text7.Text
  Else If (TELEPHONE < 10) Then
    Msg("ENTR THE 10 DIGIT MOBILE NUMBER")
    Text7.Text
    Exit Sub
  End If
End Sub

我想在 vb6 中验证手机号码

I want to give validation for mobile number in vb6

validation

vb6