Ejemplos usando el Api de windows para Visual basic

36 - Ejemplo que muestra como cambiar el alto de la lista desplegable de un comboBox con el Api MoveWindow

Código con la función Api MoveWindow para redimensionar ventanas y controles.

Esta función Api en el primer parámetro se debe pasar el Hwnd de la ventana o control que queremos utilizar, las demas son para los valores de la dimensión y posición, Left, Top, Width y Height.

En el ejemplo se utiliza con un control ComboBox. para poder cambiar el alto de la lista desplegable como muestra la imagen.

Api MoveWindow para modificar el alto de un control Combo

En el código fuente hay una sub donde se le pasa el formulario que contiene el Combobox , en el segundo parámetro que es una variable de tipo ComboBox donde le enviamos el combo a cambiar y el tercer parámetro el nuevo alto para la lista desplegable.

Colocar un Combo1 y el siguiente código fuente:

'Función Api MoveWindow Private Declare Function MoveWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal bRepaint As Long) As Long Private Sub Form_Load() Dim i As Integer 'Llenamos algunos elementos For i = 1 To 50 Combo1.AddItem i Next i 'Llamamos a la Sub pasandole el form , el _ combo que queremos cambia de tamaño y el Alto Call Establecer_Alto_Combo(Me, Combo1, 350) End Sub 'Procedimiento que cambia el alto de la lista del combo Public Sub Establecer_Alto_Combo( _ El_Formulario As Form, _ El_ComboBox As ComboBox, _ Alto As Long) Dim old_scale_mode As Integer 'guardamos la escala del form para desúés restaurarla old_scale_mode = El_Formulario.ScaleMode ' Modo de escala en Pixeles El_Formulario.ScaleMode = vbPixels ' Llama al Api MoveWindow Call MoveWindow(El_ComboBox.hwnd, _ El_ComboBox.Left, _ El_ComboBox.Top, _ El_ComboBox.Width, _ Alto, 1) ' Restablecemos el modo de escala del _ formulario al que tenía previamente El_Formulario.ScaleMode = old_scale_mode End Sub

Relacionados

Redimensionar controles en el evento Resize del formulario

Buscar en Recursos vb