Copiar Texto:
Clipboard.Clear ' Limpiamos el destino
Clipboard.SetText Text1.SelText ' Copiamos el texto seleccionado
Text1.SetFocus
Pegar Texto:
Text1.SelText = Clipboard.GetText() ' Pega el texto contenido en el ClipBoard
Text1.SetFocus
Cortar Texto:
Clipboard.SetText Text1.SelText ' Copia el texto seleccionado
Text1.SelText = "" ' Elimina el texto seleccionado del Text1
Text1.SetFocus
También puedes hacer esto con API's, pasate por la sección.
O usar los procesos implícitos de Windows, estas líneas ahorran mucho código, pero puede tener un resultado no deseado.
SendKeys "^A" ' Seleccionar todo
SendKeys "^C" ' Copiar
SendKeys "^V" ' Pegar
SendKeys "^X" ' Cortar
SendKeys "^Z" ' Deshacer
Posted
sáb, oct 23 1999 20:37
by
Maverick