Copiar varios textbox a portapapeles y colocarlos en cola

Question

Hola Gente! estoy tratando de implementar una mejoría en un soft que arme hace tiempo y no puedo encontrar la solucion.

Lo que estoy necesitando hacer es lo siguiente:

Tengo TRES textbox con datos, lo que quiero hacer es que desde UN SOLO BOTON copiar en el portapapeles los TRES textbox independientes (seria como tres portapapeles), con eso copiado voy a la pagina donde tengo que copiar estos datos y quiero que al apretar CTRL+V (PEGAR) se pegue solo el primer textbox, y de nuevo al apretar CTRL+V se pegue el segundo textbox, y de nuevo al apretar CTRL+V se pegue el tercer textbox.

Se puede hacer algo así?

Gracias!

Answer 1

Si necesitas usar el portapapeles puedes generar una cadena concatenando el contenido de los 3 textbox separados por una cadena de separación que tu elijas.

Dim Sep as String = "#$#"

Clipboard.Clear
Clipboard.SetText (Textbox1.Text & Sep & Textbox2.Text & Sep & Textbox3.Text & Sep) 

El Control + V lo interceptas para seleccionar del portapapeles la cadena hasta el carácter de separación y eliminas ese trozo de cadena.

Dim Cadena_a_devolver as String = ""

If Clipboard.ContainsText then
   Dim TextoPortapapeles As String = Clipboard.GetText
   Dim Pos as integer = TextoPortapapeles.IndesOf(Sep)
   If Pos > 0 Then
      Cadena_a_devolver = TextoPortapapeles.substring(0, Pos)
      TextoPortapapeles = TextoPortapapeles.substring(0, Pos + Sep.Length)
   End If
Endif

---

Saludos, Javier J

Answer 2

Hola Javier!!! gracias por la respuesta, el codigo que me pasaste lo coloque en un boton y el resultado es el siguiente:

1#$#3#$#2#$#

Se te ocurre algo mas?

Yo digo portapapeles porque es lo unico que conozco, la verdad lo que me interesa es hacer eso.

Answer 3

Deleted

Answer 4

Pon el código que estás utilizando para que lo podamos ver.

---

Saludos, Javier J