SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: gabperez en Martes 16 de Julio de 2002, 22:24

Título: Re: copiar, cortar y pegar
Publicado por: 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

Título: copiar, cortar y pegar
Publicado por: cpmario en Miércoles 17 de Julio de 2002, 05:47

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