Pregunta datacombo

Hola como estás, mi preguntas es la siguiente:
Como puedo desplegar un datacomo cuando recibe el foco, tengo la función y lo hace bien pero solo con el combo, ten envío el código que tengo para que me orientes
De antemano muchas gracias
Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Combo1_GotFocus()
'ComboBox desplegado
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub
Private Sub DataCombo1_GotFocus()
Dim Resp As Long
Resp = SendMessageLong(DataCombo1.hwnd, &H14F, True, 0)
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Objeto 2"
Combo1.AddItem "Objeto 3"
Combo1.AddItem "Objeto 4"
Combo1.AddItem "Objeto 5"
Combo1.AddItem "Objeto 6"
Combo1.AddItem "Objeto 7"
Combo1.Text = "Objeto 1"
MiSql = "SELECT * FROM movil ORDER BY nummovil"
Adodc1.RecordSource = MiSql
Adodc1.Refresh
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "nummovil"
End Sub
1

1 respuesta

Respuesta
1
Prueba colocando en el evento Gotfocus lo siguiente:
KEYBOARD '{F4}'
Suerte y éxitos...
Me podrías dar un ejemplo de como hacerlo, me refiero al procedimiento completo y si llama a una función darme también la función
De antemano muchas gracias
Es muy sencillo en el combo que tienes simplemente colocas en el evento o método GOTFOCUS el código que ya te había dicho:
KEYBOARD '{F4}'
Tan pronto el combo obtenga el enfoque, se desplegará su contenido.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas