Vamos a programar una broma, el ejercicio consiste en plantear un formulario con una etiqueta y dos botones, de forma que si el usuario intenta pulsar uno de ellos, este "huye" del cursor del ratón de forma que nunca puede llegar a pulsarlo, viéndose abocado a pulsar el botón que le dejamos "quieto".

Descargar el ejecutable.

Ayuda: Programaremos un MsgBox como respuesta al botón No, ya que ni nos vamos a molestar en programar la respuesta al botón Sí, (se supone que nunca lo vamos a poder pulsar). Para conseguir que el botón Sí "huya" del cursor del ratón deberemos programar el evento MouseMove del botón Sí.

Dentro del evento, podemos usar la función Rnd(), que nos devuelve un número aleatorio entre 0 y 1, de forma que ajustemos la nueva posición del botón con una nuevas coordenadas manipuladas con esta función y teniendo cuidado de no salirnos del formulario.

Abrir el Ejemplo02. Vamos a programar el botón derecho del ratón para mostrar una rejilla con nueve duplicados de la imagen.

Descargar el ejecutable.

Ayuda: Sobre el mismo evento MouseUp de la caja1 que ya teníamos programado, añadiremos el código respuesta al botón derecho del ratón (vbRightButton).

En el PictureBox destino, estableceremos que el fondo sea negro, mediante un método PaintPicture que llene todo el contenedor utilizando el código vbBlackness.

Una forma de hacerlo puede ser el utilizar dos bucles anidados, uno para las tres filas y otro para las tres columnas, de forma que para cada imagen mandemos dos métodos PaintPicture, el primero para establecer el fondo blanco (código vbWhiteness) de cada imagen, y el segundo para copiar la imagen reducida. Deberemos poner cuidado en las proporciones utilizadas para que entren las nueve imágenes en el contenedor.

Nota: La constante para el código vbWhiteness, por si no está predefinida en Visual Basic es: Const vbWhiteness = &HFF0062

Twitter Meneame Delicious Technorati Digg Facebook