|
-
Aug 13th, 2003, 12:19 AM
#1
Thread Starter
New Member
cut/copy/paste does not work
Hi, im developing a small app (my first app). well, the thing is that i can't copy, cut or paste any text unless i do it using the menu that appears when right clicking the selected text. If i use the buttons on the menu (Edit -> cut, copy, paste), the buttons on the bar (the little icons) or the shortcuts i assigned (ctrl + c, etc.) then copy/cut/paste won't work.
I genereted this app (MDI app by the way) using the VBA wizard. Here's the genereted code for each action:
Cut:
Private Sub mnuEditarCortar_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtfText.SelRTF
ActiveForm.rtfText.SelText = vbNullString
End Sub
Copy:
Private Sub mnuEditarCopiar_Click()
On Error Resume Next
Clipboard.SetText ActiveForm.rtfText.SelRTF
End Sub
Paste:
Private Sub mnuEditarPegar_Click()
On Error Resume Next
ActiveForm.rtfText.SelRTF = Clipboard.GetText
End Sub
Removing the command "On Error Resume Next" i get the following error when trying to copy a selected text:
Run-time error '438':
Object doesn't support this property or method
So, can anyone help me please?
Thanks
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|