Bueno, aquí esta mi primer manual, veremos como Copiar, pegar y cortar lo que haya escrito en un Text Box.
EMPECEMOS
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:
Cita: Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SetFocus
End Sub
En Command 2(de Pegar):
Cita: Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText()
Text1.SetFocus
End Sub
Y en Command 3(de Cortar):
Cita: Private Sub Command3_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
Text1.SetFocus
End Sub
Y listo, ya tienes una aplicacion con estas tres funciones, puedes descargar el código fuente de este manual
aquí Manual por: Darkwolf