Cómo utilizar la barra de desplazamiento con el cuadro de lista en Visual Basic 6.0

El control ListBox se utiliza en Visual Basic no incluye barras de desplazamiento como las propiedades aplicables al igual que los otros controles. Cuando las líneas de texto dentro de un cuadro de lista superan la altura del cuadro de lista, se añade automáticamente una barra de desplazamiento vertical. Las barras de desplazamiento horizontales aparecen cuando las líneas son más largos que el ancho del cuadro de lista en un tipo especial de cuadro de lista que incluye columnas. La barra de desplazamiento vertical añade algunas funciones de visualización cuando el programa incluye la codificación asociada adecuada.

Instrucciones

1 Abra el software de Visual Basic 6.0 y haga clic en "Archivo" y luego "Nuevo proyecto. Utilice la plantilla "EXE estándar" para este ejemplo. Guarde el proyecto haciendo clic en "Archivo" y luego "Guardar proyecto como" y guarde el formulario como "ScrollbarUse" y al Proyecto como "barra de desplazamiento uso."

2 Agregar dos controles ListBox al formulario haciendo doble clic dos veces en este control en la caja de herramientas. Organizar las dos cajas para que estén al lado del otro. Haga clic en el primer cuadro de lista etiquetados Lista1 para mostrar los establecimientos en la parte derecha de la pantalla. Haga doble clic en la propiedad "Lista" y sustituir la configuración por defecto de "(Lista)" por "Número". Cambiar las propiedades altura de ambos Lista1 y Lista2 a "1230" y las propiedades Ancho de ambos para 1215. Haga doble clic en el control de comando en el cuadro de herramientas para agregarlo a la forma. Cambie la propiedad Caption del botón de "Salir".

3 Cuadro de lista sincronizar tanto controla de modo que cuando el usuario se desplaza hacia abajo en uno, la fila correspondiente en la otra sigue. Para ello, escriba el código que aparece a continuación. Nota: Los números son elegidos para ocupar los dos controles ListBox rápidamente con más líneas que el tamaño elegido en el paso 2 puede contener. De lo contrario, no aparecerá la barra de desplazamiento. El símbolo "^" calcula el cubo de cada número.

Private Sub Form_Load ()
Dim i, n, x As Integer
Para i = 1 a 15
Elija List1.AddItem (i, "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11" , "12", "13", "14", "15")
Siguiente
Para n = 1 Para 15
Elija List2.AddItem (n, 1 ^ 3, 2 ^ 3, 3 ^ 3, 4 ^ 3, 5 ^ 3, 6 ^ 3, 7 ^ 3, 8 ^ 3, 9 ^ 3, 10 ^ 3, 11 ^ 3 , 12 ^ 3, 13 ^ 3, 14 ^ 3, 15 ^ 3)
Siguiente
End Sub
Private Sub List1_Click ()
List1.TopIndex = List2.TopIndex
List1.ListIndex = List2.ListIndex
End Sub
Private Sub List2_click ()
List2.TopIndex = List1.TopIndex
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List1_Scroll ()
List2.TopIndex = List1.TopIndex
End Sub
Private Sub List2_scroll ()
List1.TopIndex = List2.TopIndex
End Sub
Private Sub Command1_Click ()
Fin
End Sub

4 Pulse la tecla "F5" para ejecutar este programa y tenga en cuenta cuando se mueve la barra de desplazamiento en la primera lista desplegable, los rollos de resultados de cubo a juego también. Se puede demostrar un truco útil con barras de desplazamiento en un cuadro de lista mediante el cierre del programa con el control "Salir" y volver de nuevo a la vista de formulario en Visual Basic. Haga clic en el cuadro de lista "Cubo" y se arrastra sobre lo que cubre parte de la parte derecha del cuadro de lista "Número". Pulse la tecla "F5" para ejecutar el programa de nuevo. Ahora parece un control gobierna las acciones de ambas cajas.

5 Cambie la propiedad Columnas del cuadro de lista Número de "0" a "1" Sustituir el último número en la línea 4 de la etapa 3 para que diga "esto es una frase muy larga para permitir que la barra de desplazamiento horizontal." Pulse la tecla "F5" de nuevo para ver el efecto con una barra de desplazamiento horizontal.

Consejos y advertencias

• Mediante la adición de código de control del ratón, puede hacer que las barras de desplazamiento se mueven en sincronía cuando el usuario hace clic en otro elemento de una lista.
• A diferencia de las propiedades básicas de la barra de desplazamiento visuales regulares (vertical y horizontal) en otros controles como un cuadro de texto, éstos no existen en el control ListBox. La única manera verá barras de desplazamiento es si el contenido del cuadro de lista superan la altura y / o ancho establecido.