rtf corrisponde ad una rich text box.
Codice per Taglia usando RTF
If rtf.Text = "" Then MsgBox("Non posso tagliare niente...non c'è testo") Else Clipboard.Clear() Clipboard.SetText(rtf.SelectedRtf) rtf.SelectedRtf = "" rtf.Focus() End If
Codice per Copia usando RTF
If rtf.Text = "" Then MsgBox("Nessun testo da copiare") Else Clipboard.Clear() Clipboard.SetText(rtf.SelectedRtf) End If
Codice per Incolla usando RTF
rtf.SelectedRtf = Clipboard.GetText() rtf.Focus()
Aggiungi un commento