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

112 - Mover controles con ScrollBar en forma automática

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:

Option Explicit 'Constantes par SendMessage Const WM_VSCROLL = &H115 Const SB_BOTTOM = 7 Const SB_TOP = 6 'Api SendMessage Private Declare Function SendMessage _ Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Dim ret As Long 'Sube y baja el ListBox '************************** Private Sub Command1_Click() Desplazar List1, SB_TOP End Sub Private Sub Command2_Click() Desplazar List1, SB_BOTTOM End Sub 'Sube y baja el ListView '************************** Private Sub Command3_Click() Desplazar ListView1, SB_TOP End Sub Private Sub Command4_Click() Desplazar ListView1, SB_BOTTOM End Sub Private Sub Form_Load() Dim i As Integer 'Llenamos el Listbox con algunos datos For i = 0 To 1000 List1.AddItem "Elemento: " & i Next 'Llenamos el Listview con algunos datos For i = 0 To 1000 ListView1.ListItems.Add , , "Elemento: " & i Next Command1.Caption = " Subir ListBox " Command2.Caption = " Bajar ListBox " Command3.Caption = " Subir ListView " Command4.Caption = " Bajar ListView " End Sub Private Sub Desplazar(control As control, Accion As Long) 'Ejecutamos SendMessage pasandole el control y el mensaje ret = SendMessage(control.hWnd, WM_VSCROLL, Accion, 0) End Sub

Buscar en Recursos vb