Sección de códigos , trucos y ejemplos para visual basic
<Volver> - Anterior - Siguiente
Contenido
Ejemplo para poder arrastrar elementos desde un control ListBox hacia un control MsFlexGrid
Controles:
Código fuente en un formulario
Este simple ejemplo es prácticamente idéntico al anterior. Aunque no le veo una utilidad concreta, a no ser para optimizar el aspecto visual del DragDrop de los datos, eso por supuesto no quiere decir que no llegue a ser útil y pueda servir para alguna ocasión u opción en algún programa.
Lo que hace, a diferencia del otro código, es que mientras se arrastra el dato hacia la grilla, y todavía no se ha soltado el mouse, se resalta la celda de color, para mostrar cual es la activa. Para ello utiliza las propiedades CellBackColor para cambiar el color de la misma, y para obtener los índices ( de la fila y la columna que nos da la celda ), se utiliza las propiedad MouseCol y MouseRow.
Nota . He modificado este ejemplo en la parte de obtener el índice de fila y columna, ya que el anteior, en que los índices de la columna y fila ( Propiedad Row y Col ) se obtienen en el evento DragDrop, a partir de las coordenadas x e y, y creo, (no lo he probado demasiado), que ese método causa errores, cuando la cantidad de filas sobrepasa el alto del control, al igual que cuano el ancho total de los encabezados, superan el área visual del Grid. Utilizando MouseCol y MouseRow en vez de calcular los índices desde las coordenadas del mouse, creo que es como se debe realizar. Por lo menos no he notado ese fallo haciéndolo de esta forma.
Ejemplo
vista previa
Pegar el siguiente código fuente
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar