comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Copiar, pegar y cortar lo que haya escrito en un Text Box

  • 0 Respuestas
  • 1942 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5401
  • Actividad:
    38.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 04:00:13 pm »
Para comenzar creamos un nuevo form y le metemos tres Commands Botonns y un Text Box.
Luego le cambiamos el texto a los botones por: Copiar, Pegar y Cortar y en el textbox escribimos cualquier cosa, yo en este caso voy a poner "Esto es un ejemplo de Copiar, Pegar y Cortar"


Bien, ahora vamos a escribir el código.
En el Command 1(el de Copiar) escribimos esto:

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SetFocus
End Sub

En Command 2(de Pegar):

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText()
Text1.SetFocus
End Sub

Y en Command 3(de Cortar):

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Private Sub Command3_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
Text1.SetFocus
End Sub


Manual por: Darkwolf


 

¿Te gustó el post? COMPARTILO!