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

como evitar cambiar combobox

Estas en el tema de como evitar cambiar combobox en el foro de Visual Basic clásico en Foros del Web. Hola a todos: Tengo un combobox en el que cargo los datos de una tabla pero me he dado cuenta de que son editables y ...
  #1 (permalink)  
Antiguo 30/05/2006, 02:19
 
Fecha de Ingreso: marzo-2005
Mensajes: 276
Antigüedad: 19 años, 2 meses
Puntos: 0
Pregunta como evitar cambiar combobox

Hola a todos:
Tengo un combobox en el que cargo los datos de una tabla pero me he dado cuenta de que son editables y kiero evitar que puedan cambiar los datos, aunque sí tienen que poder elegir un item del combo, como se hace??
  #2 (permalink)  
Antiguo 30/05/2006, 04:43
 
Fecha de Ingreso: noviembre-2005
Mensajes: 751
Antigüedad: 18 años, 6 meses
Puntos: 13
Hola

En las propiedades del combo selecciona Style = 2

--Saludos--
  #3 (permalink)  
Antiguo 30/05/2006, 18:52
Avatar de [EX3]  
Fecha de Ingreso: marzo-2006
Ubicación: Fuenlabrada, Madrid
Mensajes: 203
Antigüedad: 18 años, 1 mes
Puntos: 1
Editado: No lo habia visto. Me quedo con el metodo de Insomnia que es mucho mas efectivo y sencillo de implementar (no recordaba lo de los estilos en este control ) aunque el metodo que propongo permite seleccionar el texto y copiarlo mediante ctrl+c o desde el menu desplegable cosa que el estilo 2 del ComboBox no permite.

-----------------------------------------------------------------------------------------

Mediante la propiedad Lock del ComboBox se puede bloquear cualquier tipo de edicion, pero tambien impide que puedas seleccionar cualquier elemento de la lista con lo que no interesa mucho este metodo. Te pongo el codigo que utilizo yo en mis programas para evitar que se modificque via teclado o via raton el contenido del ComboBox pero que si permita seleccionar cualquier elemento de su lista:
Código:
Dim Sel As Integer

Private Sub Combo1_Change()
If Not Combo1.Text = Combo1.List(Sel) Then Combo1.ListIndex = Sel

End Sub

Private Sub Combo1_Click()
Sel = Combo1.ListIndex

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0

End Sub
Salu2...
__________________
Proyecto dx_lib32 (http://dxlib32.se32.com) Libreria DLL ActiveX para el desarollo de juegos y programas multimedia en Visual Basic 6.0 con la potencia de DirectX

Dice un dicho que "el que calla otorga". En internet tenemos otro que dice "nunca alimentes a un troll" que viene a decir "dejale hablar solo que se ya se cansara de incordiar". Solo los necios creen tener la razon con la ultima palabra.


Última edición por [EX3]; 31/05/2006 a las 00:03
  #4 (permalink)  
Antiguo 01/06/2006, 10:55
 
Fecha de Ingreso: marzo-2005
Mensajes: 141
Antigüedad: 19 años, 1 mes
Puntos: 0
estaba teniendo un problema similar, ahora voy a probar ..
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 14:31.