Richtextbox

[Flyfree 0]

TEm como bloquer o texto inserido no richtextbox contra cópia? Eu estava usando o Delphi para montar meu aplicativo mas o VB está muito melhor, porém, preciso impedir a cópia do texto. Já tentei todas as propriedades mas ainda assim se selecionar o texto e der ctrl+c o texto é copiado.Alguém pode me ajudar?

[cassitos 2]

dá uma olha neste código, está utilizando o evento KeyDowndo objeto RichText:

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)

'keycode 67 = letra C

'keycode 88 = letra X

'Shift 2 = Ctrl

'Se p Ctrl estiver pressionado e em seguida pressionar a letra C ou X,

'então anular a operação definindo o keycode=0

If Shift = 2 And (KeyCode = 67 Or KeyCode = 88) Then KeyCode = 0

End Sub

[LCS 0]

Porém mesmo incluindo esse codigo no seu programa, o mesmo podera ser copiado via mouse. A não ser que você ja tenha bloqueado ele tb, acredito que com esse codigo tu consiga fazer isso. ta dando erro aqui porem se alguem se habilitar a modificar ficaremos gratos.Private Sub Text1_Click()If Text1.Enabled=TrueThenText1.Enabled = FalseEnd IfEnd Sub

[Flyfree 0]

dá uma olha neste código, está utilizando o evento KeyDowndo objeto RichText:

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)

'keycode 67 = letra C

'keycode 88 = letra X

'Shift 2 = Ctrl

'Se p Ctrl estiver pressionado e em seguida pressionar a letra C ou X,

'então anular a operação definindo o keycode=0

If Shift = 2 And (KeyCode = 67 Or KeyCode = 88) Then KeyCode = 0

End Sub

Olá Cassitos, era isso mesmo que eu queria. Valeu pela ajuda.

 

Porém mesmo incluindo esse codigo no seu programa, o mesmo podera ser copiado via mouse. A não ser que você ja tenha bloqueado ele tb, acredito que com esse codigo tu consiga fazer isso. ta dando erro aqui porem se alguem se habilitar a modificar ficaremos gratos.

 

Private Sub Text1_Click()

If Text1.Enabled=True

Then

Text1.Enabled = False

End If

End Sub

Olá LCS valeu pela força, o codigo que o Cassitos passou funcionou, visto que o mouse já está bloqueado. valeu mesmo.