Como coloco un espacio
Hola en una textbox debo colocar un apellido compuesto y solamente esta permitido que se ingrese un espacio entre ambos, como logro esto
1 Respuesta
Respuesta de asderpunk
1
Amm pues usa controles y código simple.. :)
Espero te sea útil, ami me sirvió espero que ati también.
Dim Ap1, Ap2, cadena As String
Private Sub Command2_Click()
A1 = InputBox("Escribe el 1° Apellido", "Datos")
A2 = InputBox("Escribe el 2° Apellido", "Datos")
cadena = LTrim(A1) & " " & RTrim(A2)
Text1.Text = cadena
End Sub
Private Sub Form_Load()
Label1.Caption = "Apellidos"
End Sub
Private Sub Text1_Change()
Text1.Text = cadena
End Sub
Si necesitas algo más preguntame...
Espero te sea útil, ami me sirvió espero que ati también.
Dim Ap1, Ap2, cadena As String
Private Sub Command2_Click()
A1 = InputBox("Escribe el 1° Apellido", "Datos")
A2 = InputBox("Escribe el 2° Apellido", "Datos")
cadena = LTrim(A1) & " " & RTrim(A2)
Text1.Text = cadena
End Sub
Private Sub Form_Load()
Label1.Caption = "Apellidos"
End Sub
Private Sub Text1_Change()
Text1.Text = cadena
End Sub
Si necesitas algo más preguntame...
No se te olvide Cerrar y calificar la respuesta.
