Visual Basic - 1 textbox para 2

Life is soft - evento anual de software empresarial
   
Vista:

1 textbox para 2

Publicado por vladimir (8 intervenciones) el 03/11/2009 01:14:05
mi pregunta es cuando escribo en un textbox por ejemplo

vladimir - makelele

en 2 textbox salga por separado el nombre y la palabra

texbox2 - vladimir

textbox3 - makelele

el codigo plz.. :)
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

RE:1 textbox para 2

Publicado por juan carlos (518 intervenciones) el 03/11/2009 04:44:04
hola vladimir
* si tecleas un espacio en blanco en el text1 al inicio automaticamente se regresa el cursor mas si tecleas un espacio en blanco despues del nombre puedes continuar
* si tecleas un el simbolo (-) en el text1 al inicio automaticamente se regresa el cursor mas si tecleasel simbolo despues del nombre puedes continuar

despues de que tecleas el nombre en el text1 al presionar el simbolo menos(-) automaticamente se escribe el contenido del text1 en el text 2 se va el cursor al final de la cadena se borra el simbolo (-) del text2 y se brinca al text3 para que escribas el apellido y al terminar el apellido y dar un espacio en blanco o sea con la barra espaciadora se pone en el text1 nombre - apellido

espero te sirva este codigo
Dios te bendiga
================================================
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 32) And (Text1 = "") Then KeyAscii = 8
If (KeyAscii = 45) And Len(Text1) < 2 Then KeyAscii = 8
If KeyAscii = 45 Then
Text2 = Text1
Text3.SetFocus
SendKeys "{end}"
KeyAscii = 8
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Text1 = Text1 & " - " & Text3
End If
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

RE:1 textbox para 2

Publicado por vladimir (8 intervenciones) el 03/11/2009 04:56:53
muchas gracias pero ahora tengo un problema..

lo qe pasa es qe tengo qe copiar osea ya contiene el - y si lo escribo como ese codigo no pasa nada..

espero me puedas ayudar juan carlos y qe dios te ayude
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

RE:1 textbox para 2

Publicado por vladimir (8 intervenciones) el 03/11/2009 15:38:38
no me sirve pedro luis... :/ gracias

utilizo visual basic 6 espero me puedan ayudar :)
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

RE:1 textbox para 2

Publicado por Pedro Luis (878 intervenciones) el 03/11/2009 11:29:10
Text2 = Mid(Text1, 1, InStr(Text1, "-") - 1)
Text3 = Mid(Text1, InStr(Text1, "-") + 1, Len(Text1))
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

RE:1 textbox para 2

Publicado por vladimir (8 intervenciones) el 05/11/2009 05:30:43
resuelto muchas gracias a todos lo qe me ayudaron :)

dios los bendiga
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

RE:1 textbox para 2

Publicado por jaime guerrero (8 intervenciones) el 03/11/2009 20:42:23
usa instr() para buscar el guion.

haces un mid de la posicion 1 hasta la del instr(). eso va a text2

luego haces otro mid de la posicion instr()+1 hasta la longitud del lext del text.1 eso va en text3
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

RE:1 textbox para 2

Publicado por vladimir (8 intervenciones) el 05/11/2009 02:29:04
no te entendi podrias darme el codigo ya hecho porfavor :)

gracias!
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

RE:1 textbox para 2

Publicado por juan carlos (518 intervenciones) el 05/11/2009 03:15:11
Hola Vladimir
este codigo automaticamente te inserta el - en el text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Text1.SelText = " - "
SendKeys "{end}"
end sub
==============================
este codigo se brinca el - si ya lo tiene el text1 al dar un espacio ne blanco
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
SendKeys "{end}"
KeyAscii = 32
End If
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

RE:1 textbox para 2

Publicado por vladimir (8 intervenciones) el 05/11/2009 03:24:00
aaa muchas gracias creo qe ya estoy entiendo.. ahora.. el segundo codigo no me funciona :) podrias checarlo porfavor!

gracias juan carlos
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

RE:1 textbox para 2

Publicado por jaime guerrero (361 intervenciones) el 05/11/2009 17:02:35
text1.text="vladimir - makelele"

pos=instr(text1.text,"-")

text2.text=trim(mid(text1.text,1,pos-1))

text3.text=trim(mid(text1.text,pos+1,len(text1.text)-pos))

el valor de text2 es "vladimir"
el valor de text3 es "makelele"

esto lo puedes poner en un boton o en lost focus del text1
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