Comunidad Gambas-es
Ayuda para el uso del clipboard - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: Ayuda para el uso del clipboard (/thread-1927.html)

Páginas: 1 2

Ayuda para el uso del clipboard - Turriano - 11-04-2025

Desearía hacer este programa:
  • -Pulsar botón en el formulario
  • -En el programa, hay un texto ya determinado
  • -Al pulsar ese botón, va ese texto al portapapeles.
¿Sugerencias?

Se trata de una subrutina, de un programa mayor, que facilitará la programación en gambas.
El resto, creo apañarme yo solito.
Y ya iré avanzando lo que vaya haciendo.
Me parece que os va a gustar B-)

RE: Ayuda para el uso del clipboard - Shell - 12-04-2025

Usa la clase Clipboard y su método Paste

Ejemplo, estás en el bloc de notas y seleccionas un texto, usas copy con el botón derecho del ratón.

Ahora en el botón que tienes en el formulario, tienes un TextArea.
Si este TextArea se llama TextArea1 le adjudicas a a su propiedad Text el contenido del Clipboard.

Código:
TextArea1.Text = Clipboard.Paste()


Te adjunto un ejemplo, pero primero deberías  acabar el tuyo. Smile
En este ejemplo solo copia texto, no valdrá para copiar las URL de los navegadores. ( Eso es un tipo de contenido ).

Saludos

RE: Ayuda para el uso del clipboard - Turriano - 12-04-2025

El texto a copiar, estaría dentro del programa (por ejemplo, en una variable de texto).
(12-04-2025, 11:18)Turriano escribió: El texto a copiar, estaría dentro del programa (por ejemplo, en una variable de texto).

¿Sería algo así?
cadena$.Text = Clipboard.copy

Siendo cadena$, el texto a copiar
(12-04-2025, 11:18)Turriano escribió: El texto a copiar, estaría dentro del programa (por ejemplo, en una variable de texto).

¿Sería algo así?
cadena$.Text = Clipboard.copy

Siendo cadena$, el texto a copiar

RE: Ayuda para el uso del clipboard - Shell - 12-04-2025

Mas bien así:

Código:
Public Sub btnCopiar_Click()

  Dim variable As String

  variable = "Algo que copiar"

  Clipboard.Copy(variable)

End

Saludos

He encontrado esto, pero no se manejarlo: - Turriano - 12-04-2025

(12-04-2025, 00:52)Shell escribió: Usa la clase Clipboard y su método Paste

Yo sé que lo que yo quiero, está aquí:

Clipboard.Copy (Textarea1.Text)
'Copy Text into the Clipboard
END
(12-04-2025, 11:49)Shell escribió: Mas bien así:

Código:
Public Sub btnCopiar_Click()

  Dim variable As String

  variable = "Algo que copiar"

  Clipboard.Copy(variable)

End

Saludos
Pero luego no pega nada en el portapapeles.
Mi idea era hacer un programa con botones.
Un botón copiaría un bucle, otros variables, etc.
Así, a la hora de escribir código, no hacía alta más que ir pegando trozos de código enteros, y facilitar así el trabajo y hacerlo más rápido y cómodo.

RE: Ayuda para el uso del clipboard - vuott - 12-04-2025

Quizás esta página pueda ayudarte:

https://www.gambas-it.org/wiki/index.php/Uso_della_classe_Clipboard

RE: Ayuda para el uso del clipboard - Shell - 12-04-2025

Lo que ves en el evento click es:

Es una demostración de como el contenido de una variable definida en algún lugar se pasa al portapapeles.

- Se le asigna "Algo que copiar" a variable. No estás seleccionando algo, lo tienes definido en la variable.
- Se asigna el contenido de la variable al clipboard
- Ese valor que se encuentra en clipboard puedes pegarlo mediante el método Paste.

Intenta las operaciones más básicas.  Copiar y Pegar , con su métodos correspondientes
y después lo aplicas a lo que te interesa.

En este caso sería distinto:

Seleccionamos un texto del control TextArea
Y este se pasa a la variable y luego la misma variable se pasa su contenido al clipboard. Variable que puede prescindirse de ella en este caso.
Código:
Public Sub btnCopiar_Click()

  Dim variable As String

  If TextArea1.Selected Then
    variable = TextArea1.Selection.Text
    Clipboard.Copy(variable, "text/html")
  Endif

End

Y ahora usamos otro botón para pegar el contenido.
En este caso se concatena con el contenido que existía anteriormente en el TextArea.

Código:
Public Sub btnPegar_Click()

  'Solo texto normal no URis
  Me.Title = "Pegando texto en TextArea"
  TextArea1.Text &= Clipboard.Paste()
 ....

End

Saludos

RE: Ayuda para el uso del clipboard - Turriano - 12-04-2025

Voy a probar...
Voy a probar...

No funciona.
Doy click y luego al pegar, no pega nada.

Estas son unas capturas de lo que hice: - Turriano - 12-04-2025

[quote pid="9568" dateline="1744451548"]
Esta es una captura d lo que hice
https://ibb.co/bMmX1zLK

[Imagen: bMmX1zLK]

[/quote]

RE: Ayuda para el uso del clipboard - vuott - 13-04-2025

A mi funciona.