Autor Tema: Re: copiar, cortar y pegar (Leído 1316 veces)

gabperez · « **en:** Martes 16 de Julio de 2002, 22:24 »

voy mejorando. Ahora tengo problemas con copiar, cortar y pegar.
El siguiente código me selecciona bien el texto, pero me da error al querer copiar o cortar: Ayuda please!!!

Private Sub mnuCopiar_Click()
Clipboard.Clear
Clipboard.SelText: text1.SelText
text1.SetFocus
End Sub

Private Sub mnuCortar_Click()
Clipboard.SelText: text1.SelText
text1.SelText = ""
text1.SetFocus
End Sub

Private Sub mnuPegar_Click()
text1.SelText = Clipboard.GetText()
text1.SetFocus
End Sub

cpmario

Usa este código, puedes copiar, cortar y pegar desde cualquier control de tipo TextBox:

Private Sub mnuCopiar_Click()
Clipboard.Clear
Clipboard.SetText ActiveControl.SelText
End Sub

Private Sub mnuCortar_Click()
Clipboard.SetText ActiveControl.SelText
ActiveControl.SelText = ""
End Sub

Private Sub mnuPegar_Click()
ActiveControl.SelText = Clipboard.GetText(vbCFText)
End Sub

SoloCodigo

Autor Tema: Re: copiar, cortar y pegar (Leído 1316 veces)

gabperez

Re: copiar, cortar y pegar

cpmario

copiar, cortar y pegar