Amigos como faço para habilitar as opções de "Copiar", "Colar" e "Recortar" através do menu do botão direito do mouse para os campos das telas do meu projeto. Estas opções estão disponiveis através do teclado só que muitos usuários desconhecem esses atalhos ou são acostumados a usar o mouse, então gostaria de ativar essa opção através do mouse também. Será que tem jeito?

 

Geralmente estas opções já vem como default nos controles, mas como uso os controles do Microsft Forms elas não estão ativadas.

Vc pode fazer um menu popup com as opções de copiar, colar e recortar. Vc coloca o menu no evento MouseUp e mostra o menu qdo o botão clicado for o direito...

 

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
    PopupMenu mnuTest
End If
End Sub

 

Depois tente assim para cada opção

 

1) recortar

Clipboard.SetText Screen.ActiveControl.SelText

Screen.ActiveControl.SelText = ""
2) Copiar

Clipboard.SetText Screen.ActiveControl.SelText

3) Colar

Screen.ActiveControl.SelText = Clipboard.GetText()

qq dúvida é só postar

 

at+