Programación VB, cómo hacer clic en el botón desplegable del cuadro combinado para seleccionar más de diez filas de opciones

¿Crees que el cuadro desplegable no es lo suficientemente largo? Si es así, puedes usar el siguiente código:

Función de declaración privada ShellExecute Lib Alias ​​"shell32.dll". "ShellExecuteA" (ByVal hwnd siempre, ByVal lpOperation como cadena, ByVal lpFile como cadena, ByVal lpParameters como cadena, ByVal lpDirectory como cadena, ByVal nShowCmd mientras) mientras

Función de declaración privada MoveWindow Lib "user32 " (ByVal hwnd As Long, ByVal length.

Private Sub SetComboHeight(oComboBox As ComboBox, lNewHeight As Long)

Dim oldscalemode As Integer

'Nota: Este procedimiento no funciona con marcos: usted

'Comentario: no puede establecer ScaleMode en vbPixels, porque

'Comentario: el marco no tiene una propiedad ScaleMode.

'Comentario: Para evitar esto, puede configurar el control principal

'Nota: para que sea el formulario mientras ejecuta este procedimiento.

Si TypeOf oComboBox.Parent es Marco y luego salir de Sub

'Nota: Cambie el ScaleMode en el padre a Píxeles.

oldscalemode = oComboBox.Parent.ScaleMode

oComboBox.Parent.ScaleMode = vbPixels

'Comentario: Cambiar el tamaño de la ventana del cuadro combinado.

MoveWindow oComboBox.hwnd, oComboBox.Left, oComboBox.Top, oComboBox.Width, lNewHeight, 1

'Comentario: Reemplace el antiguo ScaleMode

oComboBox.Parent.ScaleMode = oldscalemode

End Sub

En la CARGA del formulario, puede agregar Call SetComboHeight (Combo1, 270) 'Establecer duración del combo desplegable.

Para llamar.