ely
27 de Julio del 2004

hola, quisiera que me ayudaran a hacer un protector de pantalla, en donde una linea se mueva de un lado a otro de la pantalla, en un determinado tiempo. gracias

Javier Perez Fernandez
27 de Julio del 2004

La forma de crear un salvapantallas con Visual Basic es muy simple.
Basta con crear un proyecto con un formulario al que se le a帽adir谩n
los controles que conformar谩n el interfaz del salvapantallas, junto al
c贸digo que se quiera incluir.
Al generar el fichero ejecutable se debe dar la extensi贸n SCR, y el
fichero debe guardarse en el directorio por defecto de Windows.

Un ejemplo: crear un proyecto est谩ndar en VB y asignar las siguientes
propiedades al formulario por defecto:
WindowState = 2 'Maximized
BorderStyle = 0 'None
Incluir en el formulario una etiqueta con un texto descriptivo.
Incluir a continuaci贸n el siguiente c贸digo:

Private Sub Form_Click()
'El salvapantallas se desactiva al hacer click sobre el formulario
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'El salvapantallas se desactiva al pulsar una tecla
Unload Me
End Sub

Private Sub Form_Load()
'No se permita m谩s de una instancia del salvapantallas
If App.PrevInstance Then Unload Me
End Sub

Generar el fichero ejecutable con la extensi贸n SCR, y guardarlo en el
directorio por defecto de Windows.
Si a continuaci贸n indicamos 茅ste como salvapantallas por defecto en
las propiedades del escritorio de Windows, cuando se venza el retardo
de tiempo indicado, el formulario maximizado ser谩 visualizado como
salvapantallas. Para volver al escritorio bastar谩 con pulsar una tecla
o hacer click con el rat贸n.