Problem with cut/copy/paste [resolved]

[simonp]

Hello,

I'm using this code to work cut, copy and paste from the menu bar:

Private Sub mnuCopy_Click()
    If TypeOf Screen.ActiveControl Is TextBox Then
        Clipboard.SetText Screen.ActiveControl.SelText
    End If
End Sub

Private Sub mnuCut_Click()
    
    If TypeOf Screen.ActiveControl Is TextBox Then
        Clipboard.SetText Screen.ActiveControl.SelText
        Screen.ActiveControl.SelText = Chr(0)
    End If
    
End Sub

Private Sub mnuPaste_Click()
    
    If TypeOf Screen.ActiveControl Is TextBox Then
        Screen.ActiveControl.SelText = Clipboard.GetText
    End If
  
End Sub

but if I right-click in a text box - it seems to work independantly from the routine I have above. It's as if there were two clipboards?!

Any ideas why this might be happening?

Simon

[DiGiTaIErRoR]

Before you set the clipboard, you should invoke Clipboard.Clear.

Textboxes automatically have the copy/cut/etc support menu.

You can use the richtextbox control and set the autoverbmenu property to false, then it'll not have that menu.

[simonp]

Originally posted by DiGiTaIErRoR
Before you set the clipboard, you should invoke Clipboard.Clear.

That did the job DiGiTaIErRoR

Many thanks

Simon