- Control Line
La incorporación de elementos gráficos a las aplicaciones hacen que tenga una interfaz más amigable para el usuario.
Visual Basic incorpora una serie de controles gráficos que permiten la incorporación de elementos de este tipo a tus formularios.
Para agregar líneas a los formularios utilizaremos el control Line:
Este control tiene pocas propiedades, se puede establecer el grosor, mediante la propiedad BorderWidth o el color mediante BorderColor. También se puede cambiar el estilo de la línea con la propiedad BorderStyle.
- Control Shape
Con el control Shape (Forma), podemos dibujar distintas figuras como círculos, rectágulos, óvalos...
Para agregar figuras a los formularios utilizaremos el control Shape:
La apariencia inicial de un objeto Shape es siempre un rectágulo. Dicha característica se establece a través de la propiedad Shape.
Otra propiedad interesante de este control es el relleno de las figuras que estableceremos con la propiedad FillStyle.
También, mediante la propiedad FillColor podrás establecer el color de dicho relleno, el color de los bordes con BorderColor.
- Arrastrar con el ratón
Visual Basic permite que el programador indique cuándo y cómo un control puede ser arrastrado con el ratón por la ventana en la que se encuentra.
Los controles situados en la ventana podrán darse cuenta que un determinado control puede está siendo arrastrado por encima de ellos, permitiéndoles responder de la forma adecuada.
Si quieres permitir que el usuario de la aplicación pueda arrastrar un control en tiempo de ejecución puedes hacerlo de dos formas: realizar un arrastre automático o controlar cuándo debe empezar dicho arrastre. Esto se controla mediante la propiedad DragMode del objeto que quieres arrastrar.
Esta propiedad tiene dos valores: manual y automático. En el primer caso tienes que controlar cuándo debe permitirse arrastrar el control. Normalmente esto depende de alguna circunstancia que será comprobada cuando se pulse en dicho control, es decir, en el evento MouseDown.
Si DragMode se establece a automático el usuario prodrá arrastrar el control sin necesidad de que haya que programar nada más. En este caso se pierde el control sobre el arrastre, pero es mucho más sencillo de programar.
Otra circunstancia que hay que tener en cuenta a la hora de arrastrar un objeto es el aspecto que tendrá el puntero del ratón cuando lo haga. Si no se especifica nada en la propiedad DragIcon, Visual Basic muestra un icono como puntero del ratón, que es el contorno del objeto arrastrado. Normalmente te interesará mostrar un icono distinto indicando la acción de arrastrar el objeto.
DragMode y DragIcon son las dos propiedades que tienes que tener en cuenta a la hora de permitir el arrastre de objetos en la aplicación. También hay que tener en cuenta el evento DragOver, sucede cuando el usuario arrastra un objeto por encima de otro, en este último, es decir el destino, el que reconoce el eveto DragOver. El procedimiento de evento DragOver trabaja con cuatro parámetros: Source X, Y y State. El parámetro Source representa el control que está siendo arrastrado, siendo X e Y la posición exacta en la que se encuentra.
El parámetro State indica si el movimiento del ratón, al realizar el arrastre, es para entrar en el objeto destino o para salir del mismo. Todos esto parámetros están situados en la cabecera del procedimiento DragOver.
Si State tiene un valor 0, entonces el movimiento del objeto que está siendo arrastrado es para entrar en el objeto que reconoce el DragOver. En el caso de que State sea igual a 1, el movimiento de arrastre es hacia afuera, es decir, saliendo. Utilizando el valor de éste parámetro podrás decidir qué debe ocurrir.
- Colocar con el ratón
Cuando el usuario de una aplicación pulsa con el ratón en un objeto y lo mueve, está haciendo un arrastre o drag del objeto.
Cuando decide soltar el botón del ratón se dice que está colocando el objeto o que está haciendo un drop. Cuando esto sucede, el evento DragDrop es generado y reconocido por el objeto sobre el que se ha soltado.
Existe la posibilidad de que el usuario suelte el ratón sobre otro objeto o que lo haga en una zona del formulario vacía, en este caso es el formulario el que reconoce el evento DragDrop o el objeto sobre el que se ha soltado.
El procedimiento DragDrop posee en su cabecera tres parámetros que tienen el mismo significado que en el caso DragOver: Source, X e Y.
Debes decidir qué sucede cuando el ususario arrastra un objeto y lo suelta sobre otro. El hecho de soltarlo en una posición distinta a la que se encontraba no implica absolutamente nada, es decir, el objeto no cambiará de posición si no lo indicas expresamente a través de la programación.
Vamos a ver un ejemplo de procedimiento evento DragDrop en el que se indica qué debe ocurrir cuando soltamos el objeto identificado por la cadena "Disquete" en su propiedad Tag:
Private Sub imgDestino_DragDrop (Source As Control, X As Single, Y As Single)
If Source.Tag = "Disquete" Then
imgDestino.Width = imgDestino.Width + 150
imgDestino.Height = imgDestino.Height + 150
Source.Visible = False
End If
End Sub
En este caso aumentarás el tamaño del control destino haciéndolo a través de sus propiedades Heihgt y Width.
 Capítulo
9 |
Capítulo 11 |
Efectos Gráficos
