COPIAR, COLAR E RECORTAR ATRAVES DO MOUSE
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 acostumaos a usar o mouse, então gostaria de ativar essa opção através do mouse também. Será que tem jeito?
Amigo, estas opções já vem como default nãos endo necessário nenhuma decodificação especial.
Não esta aprecendo está opção ?
Não esta aprecendo está opção ?
Não, é que estou usando os controles do Microsoft Forms.
o q tu pode fazer, eh criar outro menu, e quando o cara clica com o botao direito, mostrar esse emnu..
e dae nos eventos do menmu
Clipboard.SetText text1.text
text1.text= Clipboard.GetText
e dae nos eventos do menmu
Clipboard.SetText text1.text
text1.text= Clipboard.GetText
Conforme o ORLANDOGN disse está são opções padrões das caixas de texto só que no Microsoft Forms não esta ativado. Será que não tem outra maneira como alguma propriedade do controle que ative esta opção. Fazer um menu na mão e chamar este menu em todos os campos texto das telas acredito não ser viavel a menos que não tenha outro jeito.
Cara, fucei aqui e acredito que não tem outro jeito não, o que vc pode fazer é criar o menu em um form e dpois chamá-lo nos outros, tipo:
Daà as funções de copiar, recortar e colar vc usa:
Copiar:
Recortar:
Colar:
é isso, qualquer dúvida poste...flw
Private Sub TextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu frmMenu.mnuOpcoes
End SubDaà as funções de copiar, recortar e colar vc usa:
Copiar:
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelTextRecortar:
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText
Screen.ActiveControl.SelText = ""Colar:
Screen.ActiveControl.SelText = Clipboard.GetTexté isso, qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas