Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

como desactivo Pegar en un textbox

Estas en el tema de como desactivo Pegar en un textbox en el foro de Visual Basic clásico en Foros del Web. en visual basic 6 como se puede deshabilitar la opcion de "pegar" cuando se le da click derecho encima (o mejor deshabilitar todo ese menu) ...
  #1 (permalink)  
Antiguo 02/04/2009, 12:15
 
Fecha de Ingreso: abril-2009
Mensajes: 1
Antigüedad: 15 años, 1 mes
Puntos: 0
como desactivo Pegar en un textbox

en visual basic 6 como se puede deshabilitar la opcion de "pegar" cuando se le da click derecho encima (o mejor deshabilitar todo ese menu)

y tambien como se puede deshabilitar pegar via teclado (ctrl+c o shift+ins)

es para un campo que actua de cotraseña (****) pero si alguien tiene la contraseña en el bloc de notas lo selecciona y va al textbox le da pegar y ya!.. eso no quiero, quiero que no se pueda pegar (porque solo tienen unos segundos para ingresar la contraseña, pero con esto de pegar en menos de un segundo)

gracias, espero que me hayan entendido
  #2 (permalink)  
Antiguo 02/04/2009, 13:15
Avatar de seba123neo  
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 2 meses
Puntos: 19
Respuesta: como desactivo Pegar en un textbox

Hola, con un Hook podes detectar el menu y cancelarlo...mira aca..

Deshabilitar el menú contextual en un ComboBox

saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein
  #3 (permalink)  
Antiguo 03/04/2009, 02:05
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: como desactivo Pegar en un textbox

Con la API SetWindowLong puedes desactivar el menú contextual, pero no evita que el usuario pueda copiar o pegar con el teclado.

Prueba con esto:

Código vb:
Ver original
  1. ' para evitar copiar (Ctrl-C) o pegar (Ctrl-V, Shift-Ins)
  2. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  3. Clipboard.Clear
  4. Clipboard.SetText ""
  5. End Sub
  6.  
  7. ' Para evitar pegar con el boton derecho del ratón
  8. Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9. Clipboard.Clear
  10. Clipboard.SetText ""
  11. End Sub

Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:25.