como ingresar guiones en un text box vb2005

[luisito1]

hola genios de la programacion, le queria consultar si hay alguna propiedad que me permita ingresar un guion medio ("-") cada una cierta cantidada de valores ingresados ( como los que se ponen al ingresar los key o seriales...
desde ya muchas gracias


la idea es que queda asi 03532-15649654 y tambien queria saber si el guion a la hora de guardar los datos se almacena o solo deja un espacio? mejor sino se almacena en la base de datos xq la columna es de tipo int (sql server) desde ya muchisimas gracias por su tiempo

[Aquaventus]

Hola luisito1!!! bueno eso lo podrias hacer de la siguiente manera, en el evento keypress del textbox:

Código vb.net:

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim texto As String = TextBox1.Text
        If TextBox1.Text.Length = 5 Then
            texto = texto + "-" + e.KeyChar
            TextBox1.Text = texto
            e.Handled = True
            TextBox1.Select(TextBox1.Text.Length, 0)
        End If
    End Sub
 

Y para que quites el "-" al momento de guardar harias esto... por ejemplo al hacer clic en un boton:

Código vb.net:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim texto As String = TextBox1.Text
        texto = texto.Remove(5, 1)
        TextBox1.Text = texto
End Sub
 

Espero te haya sido util. Saludos! .

[luisito1]

Iniciado por Aquaventus

Hola luisito1!!! bueno eso lo podrias hacer de la siguiente manera, en el evento keypress del textbox:

Código vb.net:

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim texto As String = TextBox1.Text
        If TextBox1.Text.Length = 5 Then
            texto = texto + "-" + e.KeyChar
            TextBox1.Text = texto
            e.Handled = True
            TextBox1.Select(TextBox1.Text.Length, 0)
        End If
    End Sub
 

Y para que quites el "-" al momento de guardar harias esto... por ejemplo al hacer clic en un boton:

Código vb.net:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim texto As String = TextBox1.Text
        texto = texto.Remove(5, 1)
        TextBox1.Text = texto
End Sub
 

Espero te haya sido util. Saludos! .

COMO SIEMPRE TE PASASTE CON LA AYUDA MUCHISIMAS GRACIAS HERMANO