Visual Basic.NET - Ayuda-Como validar Textbox para Telefono

 
Vista:

Ayuda-Como validar Textbox para Telefono

Publicado por David (2 intervenciones) el 13/11/2012 14:56:29
Hola,necesito ayuda para validar un textbox para que me quede con el formato 9999-9999 ademas para que en la primera posición no me acepte espacio y que solo acepte estos números (2,3,7,8,9).he intentado hacerlo con un maskedtextbox con la siguiente validación:

'Código para ingresar solo ciertos números
If Len(Me.telefono_proveedor.Text) = "0" Then
If InStr(1, "2,3,7,8,9" & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If
End If


'código para ingresar solo números
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

Pero esta validación no me funciona con el maskedtextbox..!!!

Nota: esto mismo lo probé con un textbox y si me funciona pero en el textbox no se como darle el formato 9999-9999,ingreso los números y me queda 99999999 sin el guion.!

Espero me entiendan y puedan ayudarme..!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Ayuda-Como validar Textbox para Telefono

Publicado por neotecnowindows (15 intervenciones) el 18/11/2012 18:10:18
Mira a ver si te vale esto

Private Sub MaskedTextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles MaskedTextBox1.KeyPress


If Asc(e.KeyChar) < 49 And Asc(e.KeyChar) > 58 Then
If (Asc(e.KeyChar)) <> 8 Then
Exit Sub
End If
End

49 es para el 0 y 58 es para el 9. Creo que es lo que recuerdo. 8 es para el Backspace para poder borrar algo. Falta chequear que el primer dígito sea los que dices.

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda-Como validar Textbox para Telefono

Publicado por neotecnowindows (15 intervenciones) el 18/11/2012 18:34:15
Para lo que falta, yo creo que con esto también te funcionaría

Private Sub MaskedTextBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MaskedTextBox1.KeyUp

Select Case Mid(MaskedTextBox1.Text, 1, 1)
Case 2, 3, 7, 8, 9
'
Case Else
MaskedTextBox1.Text = ""




End Select
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar