SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: Daggoth en Jueves 10 de Mayo de 2007, 20:44

Título: Insertar Texto
Publicado por: Daggoth en Jueves 10 de Mayo de 2007, 20:44
Hola!!!!!!


Mi duda tal vez sea algo tonta, pero no se como resolverla :P  :P  :P .

Tengo un programa en el que una de las opciones es poder pegar texto en el cuadro destinado a ello (un textbox para ser mas exactos). Pues bien, mi duda viene a la hora de pegarlo. Se hacerlo pero solo lo consigo pegar al final de lo escrito y lo que yo quiero es poder colocar el texto en la linea en la que esta el cursor en ese momento y no al final salvo que yo le indique que lo haga en esa linea.

El codigo que uso es:

text1.text = text1.text & Clipboard.GetText

Se que asi solo consigo pegarlo al final respetando lo escrito anteriormente, pero yo quiero que a parte de respetar lo escrito, me pege el texto donde esta el cursor.




Mil gracias por adelantado!!!!!  :D  :D  :D
Título: Re: Insertar Texto
Publicado por: F_Tanori en Jueves 10 de Mayo de 2007, 21:34
Hola


Esta es una manera espero te sirva


Código: Text
  1. Private Sub Command1_Click()
  2.     Dim ls_Antes as string
  3.     ls_Antes = Mid(Text1.Text, 1, Me.Text1.SelStart)
  4.     Text1.Text = ls_Antes & Clipboard.GetText & Mid(Text1.Text, Me.Text1.SelStart + 1)
  5.     Me.Text1.SelStart = Len(ls_Antes) + Len(Clipboard.GetText)
  6.     Me.Text1.SetFocus
  7. End Sub
  8.  


Saludos
Título: Re: Insertar Texto
Publicado por: Epa en Viernes 11 de Mayo de 2007, 03:39
Buenas

Si no me equivoco con:

  Text1.SelText = Clipboard.GetText

alcanza.


Saludos  :hola:
Título: Re: Insertar Texto
Publicado por: F_Tanori en Viernes 11 de Mayo de 2007, 07:30
Cita de: "Epa"
Buenas
Si no me equivoco...
 
Pues no, no te equivocas y es evidente que es una solucion mejor, que tambien me sirve a mi :P pues yo no me sabia esa  :guitar:  :beer:



Saludos
Título: Re: Insertar Texto
Publicado por: Daggoth en Viernes 11 de Mayo de 2007, 20:14
Gracias a los dos, las dos formas van genial.



Un saludo!!!!!!!!