Início
netodados 1/6/2018, 13:55Bom dia senhores estou com uma divida e se fosse possível gostaria de uma ajuda. Estou criando um formulário com um campo Rich Text porem não quero que esse campo seja copiado o conteúdo. gostaria de desativar as teclas de atalho ou impedir a seleção do texto, (ja desativei as teclas de atalho no frm porem as tecla de atalho do teclado ainda funciona).
2 participantes
Bloquear a seleção de texto Rich Text
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011
Bom dia...
Veja o link abaixo lhe ajuda.
https://www.maximoaccess.com/t10141-resolvidobloquear-opcao-de-colar-nos-formulariosctrlv
Adendo....
1- evento ao apertar uma tecla no campo que precisa bloquear
Private Sub NomeFantasia_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyC And Shift = acCtrlMask Then
KeyCode = 0
MsgBox "Ctrl+C proíbido neste campo...", vbCritical, Me.Caption
Exit Sub
End If
End Sub
2- No formulário, aba outra...menu de atalho = Não
Veja o link abaixo lhe ajuda.
https://www.maximoaccess.com/t10141-resolvidobloquear-opcao-de-colar-nos-formulariosctrlv
Adendo....
1- evento ao apertar uma tecla no campo que precisa bloquear
Private Sub NomeFantasia_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyC And Shift = acCtrlMask Then
KeyCode = 0
MsgBox "Ctrl+C proíbido neste campo...", vbCritical, Me.Caption
Exit Sub
End If
End Sub
2- No formulário, aba outra...menu de atalho = Não
Última edição por Silvio em 1/6/2018, 14:34, editado 1 vez(es) (Motivo da edição : Acréscimo de informação !)
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
netodados- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 24/10/2011
Silvio deu certo obrigado.
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5074
Registrado : 20/04/2011
Bom dia...
Se resolvido, coloque o tópico como resolvido, link abaixo de minha assinatura.
Abraços.
Se resolvido, coloque o tópico como resolvido, link abaixo de minha assinatura.
Abraços.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
|
|
|