Sección de códigos , trucos y ejemplos para visual basic


112 - Mover controles con ScrollBar en forma automática

<Volver> - Anterior - Siguiente



 

 

El siguiente ejemplo lo que hace es mediante una sola llamada al Api SendMessage, poder ir al principio o final de cualquier control que posea barras de scroll, TextBox, Listbox, DataGrid, FlexGrid etc.. etc..

A SendMessage se le debe enviar en el primer parámetro el HWND del control. Luego para ir al principio se le pasa una constante llamada SB_TOP y para ir al final se le envía SB_BOTTOM

El ejemplo tiene una función muy simple llamada Desplazar. A esta se le debe enviar el control, y en el segundo parámetro la acción, por ejemplo si queremos utilizarla con un control ListView para ir al final de la lista sería de esta manera:

 

 

Desplazar ListView1, SB_BOTTOM

 

..para ir al principio:

Desplazar ListView1, SB_TOP

 

Para probar el ejemplo de muestra, colocar en un formulario un control ListView1, un List1 . También agregar 4 Command: Command1 y Command2 para subir y bajar el Listbox y el Command3 y Command4 para el ListView

 

Código fuente en un form:

 



Buscar en Recursos vb