Protector En Visual Basic

CONSTRUIR UN PROTECTOR DE PANTALLA

Windows incorpora programas llamados protectores de pantalla, que se ejecutan automáticamente después de un periodo de inactividad. Un protector de pantalla, esutilizado como medida de protección de sus datos y dar larga vida a su monitor, evitando que este llegue a quemarse.

❖ PRÁCTICA


1. Inicie un nuevo proyecto EXE.
2.Establezca la propiedad WindowState a Maximized.


[pic]


3. Establezca la propiedad BorderStyle a None.

[pic]

4. Establezca la propiedad BackColor al color negro.[pic]

Deberá estar observando su formulario como se muestra a continuación.

[pic]


5. A continuación inserte un control Image y un control Timer.


[pic]6. A continuación agregaremos el código que permitirá mostrar las imágenes para el protector de pantalla. Abra su ventana editor de código y agregue las siguientes tres líneas de código en lasección general.


Dim CONTADOR As Integer
Dim NUMEROIMAGEN As Integer
Dim ARREGLO(4)


El contador será utilizado para que el programa nofinalice en el primer movimiento del mouse. Este contador es necesario puesto que Windows envía un par de eventos MouseMove al programa cuando este inicia.
La variable NUMEROIMAGENalmacenará el número de imanen que será desplegada en pantalla.
La variable ARREGLO almacenará las imágenes que serán desplegadas.


7. En la lista de procedimientos de eventosBusque el evento KeyPress y escriba la siguiente orden.


Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub


8. En la lista deprocedimientos de eventos Busque el evento MouseMove y escriba las siguientes líneas de código.


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As...