[VISUAL BASIC 6.0]Bloqueando Cópia e Cola no TextBox do Seu Programa

[ander 2]

VISUAL BASIC 6.0]Bloqueando Cópia e Cola no TextBox do Seu Programa

 

Em Todo TextBox Vc Sempre Pode Copiar (CTRL+C)E Colar (CTRL+V) , mas e se vc quiser q essas 2 teclas ñ funcionem?

 

 

Deixe O Text1_KeyPress Assim :

 

Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 3 Then 'Definindo Botão De Control+C Em Caracteres ASCII

KeyAscii = 0 'Definindo Que O Control+C Deve Representar No TextBox

MsgBox ("Impossível Copiar"), vbCritical 'Mensagem Ao Executar A Ação De Copiar

ElseIf KeyAscii = 22 Then 'Definindo O Botão De Control+V Em Caracteres ASCII

KeyAscii = 0 'Definindo Botão Control+V Deve Representar No TextBox

MsgBox ("Impossível colar"), vbCritical 'Mensagem Ao Executar A Ação De Colar

End If

End Sub

 

Se Quiser Bloquear Outras Teclas Vc Tem Q Saber O Valor Dela Em ASCII...

E Trocar Pelos Numeros Que Estão Em Vermelho No Código Acima ↑

Pode Descobrir Isso Com O Meu Programa :

 

RapidShare: Easy Filehosting

 

 

Créditos -

Hixonder.batman