protector de pantalla

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.