У меня есть текстовое поле для номера телефона, которое форматирует номер телефона, чтобы оно выглядело следующим образом:
(123) 456-7891
, но я хочу, чтобы оно изменилось на просто цифры, когдапользователь закончил ввод данных:
1234567891
Вот мой код для форматирования числа:
Dim newNumber As String
If txtContactNumberNew.Text.Length = 0 Then
txtContactNumberNew.Text = "N/A"
ElseIf txtContactNumberNew.Text.Length = 10 Then
newNumber = "(" & txtContactNumberNew.Text.Substring(0, 3) & ") " & txtContactNumberNew.Text.Substring(3, 3) & "-" & txtContactNumberNew.Text.Substring(6, 4)
txtContactNumberNew.Text = newNumber
ElseIf txtContactNumberNew.Text.Length > 10 Then
newNumber = "(" & txtContactNumberNew.Text.Substring(0, 3) & ") " & txtContactNumberNew.Text.Substring(3, 3) & "-" & txtContactNumberNew.Text.Substring(6, 4) & " x " & txtContactNumberNew.Text.Substring(10)
txtContactNumberNew.Text = newNumber
ElseIf txtContactNumberNew.Text.Length < 10 Then
MsgBox("Not enough Numbers! Please retype the Phone number", vbExclamation, "Not enough Numbers")
Return
End If
Поскольку я добавил круглые скобки, это изменило бы мой счет символов?Я просто хочу, чтобы форматирование было удалено после заполнения формы.