border
VB 6
 
 
  #1 (permalink)  
Antiguo 07-11-2008, 14:14:32
Gran Participación en el Foro
 
Registrado: oct 2003
Posts: 129
Créditos: 4.343
mexican Valoración +2
Predeterminado Codigo para evitar Editar y Borrar un ComboBox

Mi pregunta es:
cual es codigo adecuado para evitar la edicion y borrado de un combobox

Con este codigo evito escribir en el combo pero si oprimo la tecla Delete ó Supr me borra el contenido

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Tambien tengo claro que si pongo en el combobox en la propiedad Style = 2, no lo puedo editar
pero esta propiedad me da problemas cuando quiero limpiar el combobox desde codigo
Ejemplo: Combo1.Text = ""
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 07-11-2008, 18:19:03
Avatar de Alella
Super Moderator
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.486
Créditos: 29.143
Alella Valoración +2
Predeterminado Re: Codigo para evitar Editar y Borrar un ComboBox

Hola, que tal.

Mira el siguiente ejemplo, creo que es lo que necesitas:

Código:
 
Option Explicit
Private Sub Form_Load()
Combo1.AddItem "Alf1"
Combo1.AddItem "Alf2"
Combo1.AddItem "Alf3"
Combo1.AddItem "Alf4"
Combo1.AddItem "Alf5"
Combo1.AddItem "Alf6"
End Sub
Public Sub unCombo_KeyDown(KeyCode As Integer)
    If KeyCode = vbKeyDelete Then
        KeyCode = 0
    End If
End Sub
Public Sub unCombo_KeyPress(KeyAscii As Integer)
       If KeyAscii = vbKeyBack Then
           KeyAscii = 0
    End If
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    unCombo_KeyDown KeyCode
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    unCombo_KeyPress KeyAscii
End Sub
Ya nos contarás.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 08-11-2008, 17:38:12
Avatar de seba123neo
Moderador
 
Registrado: nov 2007
Ubicación: Argentina
Posts: 799
Créditos: 5.926
seba123neo Valoración +2
Predeterminado Re: Codigo para evitar Editar y Borrar un ComboBox

o ponele la propiedad Locked = True...
__________________
Todos somos ignorantes; lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 08-11-2008, 21:58:21
Usuario VIP del Foro
 
Registrado: ago 2004
Ubicación: Tunja
Posts: 539
Créditos: 7.315
chronos682 Valoración +2
Contactar con chronos682 a través de MSN Contactar con chronos682 a través de Yahoo
Predeterminado Re: Codigo para evitar Editar y Borrar un ComboBox

Es muy fácil, coloca la propiedad Style del combobox a 2-Dropdown list. Con esta opción no pueden modificar ningun elemento de la lista. No veo cuál problema te pueda causar, si quieres limpiar el combo le pones Combo1.Clear o Combo1.RemoveItem y el índice a eliminar o si lo que quieres es que no quede ningun item seleccionado le pones Combo1.ListIndex = -1. Espero te sea de ayuda.
__________________
HERNAN GUILLERMO SIABATO M.
Medicina - UPTC
chronos682@hotmail.com

Última edición por chronos682 fecha: 08-11-2008 a las 22:03:46.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 10-11-2008, 15:40:28
Gran Participación en el Foro
 
Registrado: oct 2003
Posts: 129
Créditos: 4.343
mexican Valoración +2
Predeterminado Re: Codigo para evitar Editar y Borrar un ComboBox

Gracias por la ayuda de todos

Pero al final lo resolvi basandome en el codigo de Alella, osea asi:

Public Sub Combo_KeyDown(KeyCode As Integer)
KeyCode = 0
End Sub

Public Sub Combo_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Los codigos que me sugeria chronos682 y seba123neo me daban problemas porque el combo lo tengo enlazado a un recordset al hacer click en el combo

Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 09:41:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design