algo basico de Combobox

[netorres]

Quiero que cuando se pocicionen en el combo box solo puedan seleccionar lo que se llena mediante una constula sql.

Que no escriban en el combobox...

Lo bloquie (locked=true) pero si lo dejo haci para que no escriban no me deja seleccionar...

En realidad no se mucho de esto... me podrian dar una manito....


Gracias por ller esta pregunta!!!

[MikiBroki]

Para evitar que se escriba en un combo lo único que tienes que hacer es establecer la propiedad Style del combo, como "DropDown List".

Un saludo.

[lucasiramos]

Hola. Esta bien lo que te postea MikiBroki, pero en ese caso no va a poder escribir. Si es un combo que tiene muchos elementos, o que almacena nombres (como clientes, artículos, etc) es útil para el usuario poder escribir las primeras letras, luego presionar la flecha abajo del cursor y que seleccione el primer item coincidente. De ahi la importancia de que pueda escribir. Te paso una función que te puede servir. Va en el Lostfocus del combo.

Código:

Dim X As Integer
Dim Str As String
Dim Encontrado As Boolean
If Trim(Combo1.Text) <> "" Then
X = 0
Do While X <= Combo1.ListCount - 1
	If UCase(Trim(Combo1.List(X))) = UCase(Trim(Combo1.Text)) Then
	 Combo1.ListIndex = X
	 Encontrado = True
	 Exit Do
	End If
	X = X + 1
Loop
 
If Encontrado = False Then
	Combo1.SetFocus
End If
Else
Combo1.ListIndex = -1
End If

Este código recorre todos los items del combo y si no coincide con ninguno le pasa el foco al mismo combo, es decir, no lo deja salir hasta que ingrese un item que exista en la lista.

Espero que te sirva. Saludos. Lucas

[netorres]

Lo probare cuando llegue a casa... gracias...

[netorres]

Me Equivoque No Era Un "cobmobox" Es Un Datacombo...?????? No Me Sirve La Funcion Anteror Como La Tendria Que Plicar???



:(

[lucasiramos]

Datacombo no uso, pero ¿No te sirve? ¿Te tira error? ¿Que tipo de error?

Saludos. Lucas

[vbx3m]

Si lo que quieres es que no escriban puedes poner esto:

Private Sub DataCombo1_Click(Area As Integer)
DataCombo1.Locked = False
End Sub

Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
DataCombo1.Locked = True
End Sub

Lo que logras es que cunado quiera escribir se bloquea pero si vas a seleccionar haciendo click se desbloquea y perfectamente lo puedes utilizar...

Espero te sirva...

[netorres]

Gracias!!!!!!!!!