Evitar Edicion y Borrado de ComboBox

[mexican2]

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, como evito que la tecla Delete ó Supr me borre el combobox

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 = ""

[David]

Coloca la propiedad Style a 2 y cuando quieras limpiar coloca:

Código vb:

Combo.ListIndex = -1
 

P.S.: Me refiero a limpiar la selección, que al parecer es a lo que te refieres.

[mexican2]

Gracias pero ya lo intente y tambien me da problemas

Al usar Combo1.ListIndex =-1

Por alguna razon que no entiendo hasta ahora, deberia de funcionar

Por eso creo que lo mas seguro seria usar codigo

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

Este codigo que te planteo le hace falta una sola linea, pero no se cual sea

Creo que es con el numero de tecla que le corresponde a Delete ó Supr

[David]

Yo sigo considerando más eficaz usar el Style 2, ¿qué clase de problemas te da cuando cambias el ListIndex a -1?.

P.S.: Bueno, si de todos modos quieres usar la forma que mencionas prueba usando el evento KeyDown en vez del KeyPress.

[mexican2]

Ya entendi porque me da problemas este codigo:

Combo1.ListIndex =-1

Resulta que el combo lo tengo enlazado con un recordset cuando hago Click en el

cuando ejecuto esta accion Combo1.ListIndex =-1

Me marca error porque no encuentra un registro vacio que coincida con el combo, logico el ListIndex =-1 es un registro vacio

el Error de If, EOF, etc.

Si me puedes ayudar con este error que te explico aqui
o la otra manera que ya te habia comentado que es bloquear la tecla Delete ó Supr

[David]

Cancela también el evento KeyDown, así no ya no se podrá borrar usando la tecla Delete.

Saludos .

[mexican2]

Los Eventos KeyPress y KeyDown no cancelan la tecla Delete ó Supr

Los mas indicado seria:

Usar el numero que corresponde a la tecla DELETE y cancelarla

ó

La otra opcion es: evitar el Error de If, EOF

[David]

Pues yo he probado con el KeyDown y sí, me canceló la tecla Suprimir.

[mexican2]

No funciona conmigo

Ni el evento KeyPress ni tampoco el evento KeyDown

Si me puedes mostrar el codigo exacto que usas tu para el Evento KeyDown

quizas sea diferente al mio

[David]

¿Qué tal si en vez de complicarte la vida le pones la propiedad Locked a True? .

Saludos .

EDITO: A pesar de que de esa forma no permite seleccionar nada, en fin, con el KeyDown sería:

Código vb:

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
 

[mexican2]

Gracias

Lo habia resuelto asi:

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
KeyCode = 0
End If
End Sub

Pero creo que es mas sencillo tu codigo lo voy a usar

Gracias