Clipboard handling |
[Top] [Chapter] [Previous] [Next] |
Please do not use the Clipboard object. You can simply call PasteFromClipboard, CopyToClipboard and CutToClipboard.
Private Sub mnuEditPaste_Click() On Error Resume Next ' ActiveForm.rtfText.SelRTF = Clipboard.GetText ActiveForm.rtfText.Memo.PasteFromClipboard End Sub
Private Sub mnuEditCopy_Click() On Error Resume Next 'Clipboard.SetText ActiveForm.rtfText.SelRTF ActiveForm.rtfText.Memo.CopyToClipboard End Sub
Private Sub mnuEditCut_Click() On Error Resume Next 'Clipboard.SetText ActiveForm.rtfText.SelRTF 'ActiveForm.rtfText.SelText = vbNullString ActiveForm.rtfText.Memo.CutToClipboard End Sub
For UNDO we call the "Undo" action
Private Sub mnuEditUndo_Click() ActiveForm.rtfText.wpaProcess "Undo", "" End Sub |