Oppure

Loading
28/02/07 12:27
Hacker
boh,prova a fare prima un setfocus sull'oggetto in cui incolli il testo e poi fai incolla.
aaa
01/03/07 14:54
ho risolto in questo modo (in grassetto la correzione):

Private Sub taglia_Click()
On Error Resume Next
Clipboard.Clear
Clipboard.SetText rtf.SelText
rtf.SelText = ""
End Sub

Private Sub copia_Click()
Clipboard.Clear
Clipboard.SetText Me.rtf.SelText
End Sub

Private Sub incolla_Click()
On Error Resume Next
rtf.SelText = Clipboard.GetText()
End Sub

ora mi manca il comando Annulla, potresti aiutarmi?

grazie:k:
Ultima modifica effettuata da 01/03/07 14:56
01/03/07 18:34
Hacker
il tasto annulla che dici tu sarebbe la funzione comunemente chiamata Undo?
aaa
01/03/07 18:38
esatto...:k:
02/03/07 14:25
Hacker
se aspetti un po' posso farti un esempio su come farne uno letterale.
aaa
02/03/07 14:30
:k:
02/03/07 16:27
P4p3r0g4
be non basterebbe copiare a ogni cambiamento il testo in un'array si stringe (limitandone il numero altrimenti diventa pesantissimo) e con l'undo carichi la stringa precedente?
aaa
02/03/07 16:50
credo vada bene anche così...potreste postarmi il codice x fare tutto ciò?
grazie mille